Macro pour recup valeur en fonction du mois
Bonjour,
Je dois en fin de mois alimenter un tableau pour garder un historique de mes chiffres.
Je dois reporter les données en fin de mois du tableau 2 vers le tableau 1.
Je veux faire une macro pour automatiser les copier-coller.
L'idée c'est de lui dire, en fonction du mois tu me copies les données.
Je bloque elle n'est pas fonctionnelle.
Pouvez-vous m'aider svp ?
Merci par avance.
Sub recap_mois()
Dim colonne As Integer
colonne = 4
Sheets("Feuill2").Select
While Month("J23") <> Month(Cells(3, colonne))
colonne = colonne + 3
Range("J25:L28").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Wend
End SubBonjour
Votre fichier ne correspond pas à la macro que vous postez, donc pas possible de comprendre et de faire dans ce fichier le résultat final attendu
Cordialement
Bonjour
Déjà :
While Month("J23") <> Month(Cells(3, colonne))remplacer par
While Month(Range("J23")) <> Month(Cells(3, colonne))Bye