Toujours mon copier coller qui pose une colle

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Toujours mon copier coller qui pose une colle

jacques84

Peut-être que ma demande n'était pas assez explicite alors j'ai crée un petit fichier qui explique exactement ma requète mais je ne trouve pas l'astuce pour le joindre .

Merci de votre aide

PS Je voulais juste copier et coller des formats de cellules à des endroits précis et pas contigus

Publicité

galopin01

bonjour,
il faut charger ton dossier ici créer le lien et nous le communiquer.
A+

---------------
roger

jacques84

Merci voici le lien

http://cjoint.com/?fzlvuyoNs5

kiki29

Utiliser le macro recorder puis optimiser à la main

jacques84

Bonjour kiki
j'ai bien essayé mais je dois le faire cellule après cellule ça me prend un temps fou
as tu une idée pour aller plus vite ?

galopin01

bonsoir,
Est-ce qu'on peut considérer que TOUTES les feuilles (sans execeptions) qui précèdent janvier doivent être copiées dans les mensuelles ?
A+

---------------
roger

galopin01

bonsoir,
en l'absence de réponse, j'ai considéré que la réponse à ma précédente question était oui !
La macro suivante répond à ton besoin : Toutes les feuilles qui précèdent "Janvier "sont ventilées sur les mois et dates respectives.
Il faut que toutes les feuilles "Mois" existe, car il n'y a pas de gestion d'erreur.
De plus les feuilles "Mois" doivent se trouver dans leur ordre naturel (janvier, février...) car pour simplifier le code, le numéro de chaque mois à été utilisé pour indexer les feuilles...

Code :

Sub Galopin()
Dim i%, j%, k%, iRS%, iTC%, z$
Application.Calculation = xlManual
i = Worksheets("janvier" ).Index
For j = 1 To i - 1 'Pour chaque agent
With Worksheets(j)
z = .Name
For iMth = 1 To 12
Worksheets(iMth + i - 1).Cells(j + 1, 1) = z
Next
For k = 1 To 34 Step 3 'pour chaque mois
iRS = 5 'iRowSource
iTC = 2 'iTargetColumn
Do While .Cells(iRS, k) <> "" 'pour chaque jour du mois
.Range(.Cells(iRS, k + 1), .Cells(iRS, k + 2)).Copy _
Worksheets(((k + 2) / 3) + i - 1).Cells(j + 1, iTC)
iRS = iRS + 1
iTC = iTC + 2
Loop
Next
.Calculate
End With
Next
Application.Calculation = xlCalculationAutomatic
End Sub

A+

---------------
roger

jacques84

Merci Roger
Oui tu t'es donné la bonne réponse

J'essaie ton code et en tout cas merci
je te tiens au courant

jack

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Toujours mon copier coller qui pose une colle

Sujets relatifs
[C] Copier un fichier octet par octet dans un tableau	Copier une cellule en conservant toute la mise en forme
Biblio/Fonction C++ pour manipuler fichier (couper/coller) sous OSX	copier coller à un endroit précis
macro copier coller 2 colonnes sur une ligne	[Batch]verifier les fichiers et copier les modifiés uniquement??
connexion base de donnee pose problème	Copier les données d'un fichier vers un autre fichier
Plus de sujets relatifs à : Toujours mon copier coller qui pose une colle

Page générée en 0.041 secondes