Automatiser une macro
Bonjour le forum
J'ai fait une macro (Macro1) qui execute 6 autres macros(Macro2, Go, Macro11, Macro15, Raz, et Macro6 qui termine).
Lorsque ces macros sont terminées je dois recliquer chaque fois sur macro1 pour executer le cycles, tant qu'il y a des données dans la feuil "Tirages".
Je voudrais pouvoir ne plus cliquer chaque fois sur la macro1, du moins le faire une fois jusqu'a épuisement des données de la feuil "Tirages".
Comment faut-il modifier la macro.
Merci
Voici le lien pour le fichier
Mon fichier ne passe pas par cjoint il fait 31900Ko, comment faut-il faire
J'ai fait une macro (Macro1) qui execute 6 autres macros(Macro2, Go, Macro11, Macro15, Raz, et Macro6 qui termine).
Lorsque ces macros sont terminées je dois recliquer chaque fois sur macro1 pour executer le cycles, tant qu'il y a des données dans la feuil "Tirages".
Je voudrais pouvoir ne plus cliquer chaque fois sur la macro1, du moins le faire une fois jusqu'a épuisement des données de la feuil "Tirages".
Comment faut-il modifier la macro.
Merci
Voici le lien pour le fichier
Mon fichier ne passe pas par cjoint il fait 31900Ko, comment faut-il faire
Configuration: Windows / Firefox 72.0
3 réponses
-
ContributeurBonjour,
Tu cherches la dernière ligne de ta feuille "Tirages"
Ensuite tu mets au début de ta macro 6:
If ligne = derniére ligne Then Exit Sub
en fin de macro 6 tu lances ta macro 1
-
Bonjour Le Pivert
Voici la macro6, est-ce correct car j'ai un message " pas assez de N° en ligne A "
Sub Macro6()
'
' Macro6 Macro
'
Sheets("Tirages").Select
If ligne = 20 Then Exit Sub
Range("A2:T4000").Select
Application.CutCopyMode = False
Selection.Copy
Range("A1").Select
ActiveSheet.Paste
Range("A1").Select
Sheets("combi").Select
Range("A18").Select
Call Macro1
End Sub
Merci-
ContributeurPour trouver la dernière ligne voir ceci:
https://vbaforexcel.wordpress.com/2013/08/31/determiner-la-derniere-lignecolonne-dun-tableau/
Lorsque ces macros sont terminées je dois recliquer chaque fois sur macro1 pour executer le cycles, tant qu'il y a des données dans la feuil "Tirages".
il faut donc trouver la ligne sur laquelle s'arrête ta macro. Quand tu arrives sur la dernière ligne ta macro s'arrête
Dim ligne as Long'trouver la ligne où s'arrête la macro Dim derligne As Long'trouver la dernière ligne de la feuille If ligne = derligne Then Exit Sub
Voilà
@+ Le Pivert
-
-
Bonjour Le Pivert, le forum
Ou mettre ces 3 lignes dans la derniere macro6
merci
