Lancement de macro depuis une variable "non réinitialisable"

Version imprimable

28/02/2023, 14h44
lepmi412

Lancement de macro depuis une variable "non réinitialisable"

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

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:

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

02/03/2023, 10h59
Tête de chat
Bonjour,

le pb était là :
Code:

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...

:)
02/03/2023, 12h51
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
02/03/2023, 14h54
Tête de chat

Re

Citation:

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:

Cells(l, 1).Value

est équivalent à

Code:

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:

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

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