Discussion :

[lepmi412]

Bonjour

Je voudrais lancer à partir d'une macro principale des petites macros externes si et seulement une cellule correspondante est cochée.
(Dans Excel, il y a une colonne mentionnant les noms de macros et une colonne avec des cellules à cocher par un x).
Or cette macro en VBA Excel 2019 ne fonctionne que pour lancer la première macro (validée par la coche x) mais ne permet en aucun cas de lancer les macro suivantes. Comme si la variable nommacro ne peut etre réinitialisée !!
Si vous avez une solution? je vous en remercie grandement, Cordialement,


Sub lancemacro()
Dim nommacro As String

For l = 26 To 34
nommacro = Cells(l, 11).Text
If Cells(t, 10).Value = "x" Then Application.Run nommacro
Next l

Range("a1").Select
End Sub

[a_diard]

Bonjour
j'ai essayé ceci , en mettant les données dans les premières lignes et colonnes de la feuille Excel, ca fonctionne.

Bonne Journée.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub lancemacro()
Dim nommacro As String
For l = 1 To 4
nommacro = Cells(l, 2).Text
If Cells(l, 1).Value = "x" Then Application.Run nommacro
Next l
Range("a1").Select
End Sub
Sub macro1()
MsgBox "macr01"
End Sub
Sub macro2()
MsgBox "macr02"
End Sub
Sub macro3()
MsgBox "macr03"
End Sub
Sub macro4()
MsgBox "macr04"
End Sub

[Tête de chat]

Bonjour,

le pb était là :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
For l = 26 To 34
nommacro = Cells(l, 11).Text
If Cells(t, 10).Value = "x" Then Application.Run nommacro
Next l

Donc :
1. ajoute en tête de module un option explicit et déclare toutes tes variables
2. utilise des noms un peu plus longs pour y voir plus clair...

[lepmi412]

Merci. Cela fonctionne.
(cela ne vient pas de l'erreur de variable l,t car j'avais simplifié la macro avant de la posté (et certainement fait une erreur entre temps). Car en fait je tronque une partie du texte de la cellule pour récupérer le nom de macro.)
J'ai refais les tests dans ma macro principale avec la troncature de texte pour récupérer le nom exact de la macro et cela fonctionne bien.
Désolé de mon post, je ne sais pourquoi.

Par contre quand je lance la macro principale pas à pas (F8), je vois l'affichage de la valeur de la variable nommacro seulement à sa première définition.
Apres une itération de la boucle, l'affichage ne se fait plus et affiche rien quand je passe la souris sur Nommacro.

Est-ce peut-être du fait que j'ai rajouté dernièrement
Application.Calculation = xlCalculationManual
pour que la macro aille plus rapidement.
Je ne sais

Merci pour vos interventions (a-diard, tete de chat), désolé
vincent

[Tête de chat]

Re

Apres une itération de la boucle, l'affichage ne se fait plus et affiche rien quand je passe la souris sur Nommacro.
Je ne sais

Peut-être aussi que que pendant l'appel de la macro il s'est passé des choses.
n'oublie pas que

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(l, 1).Value

est équivalent à

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.Cells(l, 1).Value

Si entre temps tu as ouvert un classeur, activé une feuille... la feuille active a pu changer.
Remplace par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ThisWorkBook.Sheets("Feuil1").Cells(l, 1).Value

où Feuil1 est le nom de ta feuille...