Macro pour copier-coller vers un onglet fonction d'1 date
Bonjour à tous,
Je cherche à faire un copier coller particulier.
En fonction d'une date connue, je veux diriger automatiquement la copie de cellules vers l'onglet du mois correspondant (voir fichier joint pour explications complémentaires).
Excel 97 et 2003
https://www.excel-pratique.com/~files/doc2/lAa0NClasseur1.xls
D'avance merci.
Bonsoir,
Essaie ce code à placer en VBA dans un module et lui associer ton bouton.
Sub copier()
'Macro dan pour olive7677 le 08/11/2009
'http://www.excel-pratique.com/forum/viewtopic.php?t=14037
Dim i As Integer, lg As Integer
Dim feuille As String
For i = 1 To Sheets("calcul").Range("A65536").End(xlUp).Row
If Not IsEmpty(Range("A" & i)) Then
feuille = Format(Range("A" & i), "mmmm")
lg = Sheets(feuille).Range("A65536").End(xlUp).Row + 1
Sheets("calcul").Range("A" & i & ":B" & i).Copy Sheets(feuille).Range("A" & lg)
End If
Next
End SubVeille à ce que le nom des onglets soit bien conforme aux mois utilisés par excel. Le mieux est de mettre tout en minuscule.
Amicalement
Dan
désolé pour le doublon mais il me semble ne pas avoir posté au bon endroit la première fois.
Coté macro je l' ai inserré dans le VBA et une fois associé au bouton j' ai un message d'erreur à l' execution "erreur d'execution 9"; indice en dehors de la plage.
Ci-dessous, le ligne de la macro à laquelle le VBA plante:
lg = Sheets(feuille).Range("A65536").End(xlUp).Row + 1
Vu que je ne parviens pas à "traduire" les instructions de la macro, je n'avance pas et sollicite donc ton aide.
Cordialement
Bonjour,
C'est parce que ta feuille "Février" est mal nommée, il y a un c à la place du v.("Fécrier").
Cordialement,
Sujet à solder. Après correction, ça fonctionne...mais je ne sais toujours pas comment ça marche.
Merci à tous.