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
A voir également:
- Macro pour copier une plage de données
- Fuite données maif - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Comment copier une vidéo youtube - Guide
- Super copier - Télécharger - Gestion de fichiers
- Effacer les données de navigation sur android - Guide
2 réponses
Bonsoir,
Si j'ai bien compris, il suffit que tu remplace $M$32 par $M$33.
Si j'ai bien compris, il suffit que tu remplace $M$32 par $M$33.
jeanpi
Je veux arrêter a chaque fois la sélection a la dernière ligne qui contient le nom sélectionné. Ça peut être la ligne 23 ou la ligne 50 puisque mon tableau évolue tous les jours.
