Automatiser une macro

Fermé

jad73 Messages postés 29 Date d'inscription mardi 5 mai 2009 Statut Membre Dernière intervention 4 février 2020 - 30 janv. 2020 à 18:12
jad73 Messages postés 29 Date d'inscription mardi 5 mai 2009 Statut Membre Dernière intervention 4 février 2020 - 4 févr. 2020 à 18:54

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

Configuration: Windows / Firefox 72.0

A voir également:

Automatiser une macro
Macro word - Guide
Macro logiciel - Télécharger - Organisation
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Macro recorder - Télécharger - Confidentialité
Excel récupérer couleur cellule sans macro ✓ - Forum Bureautique

3 réponses

Réponse 1 / 3

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
30 janv. 2020 à 18:49

Bonjour,

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

Réponse 2 / 3

jad73 Messages postés 29 Date d'inscription mardi 5 mai 2009 Statut Membre Dernière intervention 4 février 2020
30 janv. 2020 à 21:31

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

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
31 janv. 2020 à 07:57

Pour 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

Réponse 3 / 3

jad73 Messages postés 29 Date d'inscription mardi 5 mai 2009 Statut Membre Dernière intervention 4 février 2020
4 févr. 2020 à 18:54

Bonjour Le Pivert, le forum
Ou mettre ces 3 lignes dans la derniere macro6
merci

Discussions similaires

document html

titre encadré

Transformer un chiffre en lettres dans excel sans macro

Copie automatique tableau Excel sans macro

Lien de téléchargement de nbLettre.xla

Discussions similaires

Newsletters