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
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Macro word - Guide
Jitbit macro recorder - Télécharger - Confidentialité
Macro logiciel - Télécharger - Organisation
Dans la présentation à télécharger, sarah avait encadré directement le titre de certaines diapositives avant d’automatiser cette mise en forme pour tout le document. sur quelles diapositives avait-elle encadré directement le titre ? - Forum Bureautique

3 réponses

Réponse 1 / 3

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
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 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
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

Encadrement d'un Titre intégré au cadre

faire une boucle sans VBA

Transformer un chiffre en lettres dans excel sans macro

recup couleur de cellule sans macro