Toujours mon copier coller qui pose une colle

Toujours mon copier coller qui pose une colle - VB/VBA/VBS - Programmation

Marsh Posté le 25-05-2006 à 09:35:06    

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

Reply

Marsh Posté le 25-05-2006 à 09:35:06   

Reply

Marsh Posté le 25-05-2006 à 10:39:44    

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


---------------
roger
Reply

Marsh Posté le 25-05-2006 à 11:22:40    

Merci  voici le lien
 
http://cjoint.com/?fzlvuyoNs5
 

Reply

Marsh Posté le 25-05-2006 à 11:48:35    

Utiliser le macro recorder puis optimiser à la main

Reply

Marsh Posté le 25-05-2006 à 14:46:27    

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 ?

Reply

Marsh Posté le 25-05-2006 à 20:25:36    

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
Reply

Marsh Posté le 25-05-2006 à 22:31:31    

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 :
  1. Sub Galopin()
  2. Dim i%, j%, k%, iRS%, iTC%, z$
  3. Application.Calculation = xlManual
  4. i = Worksheets("janvier" ).Index
  5. For j = 1 To i - 1  'Pour chaque agent
  6. With Worksheets(j)
  7. z = .Name
  8.   For iMth = 1 To 12
  9.     Worksheets(iMth + i - 1).Cells(j + 1, 1) = z
  10.   Next
  11.   For k = 1 To 34 Step 3  'pour chaque mois
  12.     iRS = 5 'iRowSource
  13.     iTC = 2 'iTargetColumn
  14.     Do While .Cells(iRS, k) <> ""  'pour chaque jour du mois
  15.       .Range(.Cells(iRS, k + 1), .Cells(iRS, k + 2)).Copy _
  16.       Worksheets(((k + 2) / 3) + i - 1).Cells(j + 1, iTC)
  17.       iRS = iRS + 1
  18.       iTC = iTC + 2
  19.     Loop
  20.   Next
  21.   .Calculate
  22. End With
  23. Next
  24. Application.Calculation = xlCalculationAutomatic
  25. End Sub


A+


---------------
roger
Reply

Marsh Posté le 27-05-2006 à 07:46:58    

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

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed