Macro pour copier une plage de données
jeanpi
-
Gord21 Messages postés 928 Statut Membre -
Gord21 Messages postés 928 Statut Membre -
Bonjour,
Voilà mon soucis.sous exvel 2007 je veux faire une macro pour copier des lignes d'un tableau sur le critère d'une sélection d'un nom effectué a partir d'un filtre. Ma macro arrête de fonctionner dès que je rajoute une ligne dans mon tableau. Donc je ne sais pas mettre en place la variable qui permette de sélectionner les lignes en plus.Au début et à la fin de ma macro.
Exemple ci-dessous.Sub essai()
'
' essai Macro
'
'
ActiveSheet.Range("$A$6:$M$32").AutoFilter Field:=3, Criteria1:="Divers"
Range("A8:M31").Select
Selection.Copy
Sheets("divers").Select
Range("A4").Select
ActiveSheet.Paste
Sheets("journal").Select
ActiveSheet.Range("$A$6:$M$32").AutoFilter Field:=3
ActiveWindow.SmallScroll Down:=6
Range("B33").Select
End Sub
Si quelqu'un a la solution merci d'avance
Voilà mon soucis.sous exvel 2007 je veux faire une macro pour copier des lignes d'un tableau sur le critère d'une sélection d'un nom effectué a partir d'un filtre. Ma macro arrête de fonctionner dès que je rajoute une ligne dans mon tableau. Donc je ne sais pas mettre en place la variable qui permette de sélectionner les lignes en plus.Au début et à la fin de ma macro.
Exemple ci-dessous.Sub essai()
'
' essai Macro
'
'
ActiveSheet.Range("$A$6:$M$32").AutoFilter Field:=3, Criteria1:="Divers"
Range("A8:M31").Select
Selection.Copy
Sheets("divers").Select
Range("A4").Select
ActiveSheet.Paste
Sheets("journal").Select
ActiveSheet.Range("$A$6:$M$32").AutoFilter Field:=3
ActiveWindow.SmallScroll Down:=6
Range("B33").Select
End Sub
Si quelqu'un a la solution merci d'avance
Configuration: Windows XP / Firefox 3.6
2 réponses
-
Bonsoir,
Si j'ai bien compris, il suffit que tu remplace $M$32 par $M$33.
-
Bonjour,
Ce n'est pas ce que j'avais compris. Dans ton cas, il faut remplacé
ActiveSheet.Range("$A$6:$M$32")
par
ActiveSheet.Range("$A$6:" & Range("$M$6").End(xlDown).Address)
Ca simule l'action Ctrl + flèche en bas.
N'hésite pas si ça ne te convient pas.
