Variable dans un Call

Bonjour,

est - il possible de mettre une variable dans un Call, exemple :

dim i
i = 2
while i  <>  24
     Call CommandButton & i & _Click
     i= i+1
wend

Mais ce code marche pas bien sur...

Cdt.

Bonjour

A vérifier si c'est dans le sens que tu cherches

Merci mais cela ne marche pas dans mon fichier :

impossible d'executer la macro CommandButton3_Click Il est possible qu'elle ne soit pas disponible dans ce classeur ou que toutes les macros soient désactivées

Cdt.

Bonjour

Essaie plutôt xomme ceci

Application.Run "CommandButton" & i & "_Click"

Si ok n'oublie pas de cloturer le fil --> clique sur le V vert

Amicalement

J'ai essayer avec Application.Run mais toujours je même message!

même avec

Application.Run ThisWorkbook.Name & "!CommandButton" & i & "_Click"

et bien toujours le même message, je ne vois pas d'ou vien le problème, avec Call ça marche mais pas avec Run...

re

Avec ce que je t'ai proposé cela fonctionne.

Tu reçois quoi comme message ?

Les codes sont tous dans le même fichier ?

Avec ce code :

dim i
i = 3
While i <> 4
    While i <> 4
        Application.Run "CommandButton" & i & "_Click"
        i = i + 1
    Wend

Je reçois ce message :

impossible d'executer la macro CommandButton3_Click Il est possible qu'elle ne soit pas disponible dans ce classeur ou que toutes les macros soient désactivées

Les codes sont tous dans le même fichier.

re,

Pourquoi fais-tu une boucle alors que i=3 au départ. Cela veut dire que la boucle While ne se fera qu'une seule fois. Je ne vois pas l'intérêt.

le nom de ta sub appelée est bien ceci ?? --> Sub CommandButton3_Click() et où est-elle placée dans ton fichier ? Dans un module je suppose.

Voici mon vrai code :

sub machin
dim i
dim a
i = 3
a  = 5
 While i <> 24
        F_BarreAttente.Caption = a & "%"
        F_BarreAttente.Label1.Width = 3
        DoEvents
        F_BarreAttente.Label2 = "blabla"
        Application.Run "CommandButton" & i & "_Click"
        i = i + 1
        a = a + 5
    Wend
end sub

Private Sub CommandButton3_Click() 
Dim CellChe As Range
Dim Titre As String
Set CellChe = Sheets("Feuil1").Range("B2")
Titre = Sheets("Feuil1").Range("A2").Value
Call propriétés(CellChe, Titre)
End Sub

Re,

Voilà ton problème --> Private Sub CommandButton3_Click()

Mets cette macro dans un module et nomme la comme ceci --> Sub CommandButton3_Click()

Effectivement ça marche quand je place la macro dans un module

MAIS le bouton associé à Sub CommandButton3_Click() ne marche plus!

ça m'embête de mettre 2 fois le même code pour tous les boutons : une fois dans le module et une fois dans le code de la feuille je trouve que ca fait brouillon... comme c'est un projet à rendre et à présenter il faut que ce soit parfait!

Donc quel est la solution?

Re,

Au lieu de créer le bouton par Affichage / Barre d'outils / Outils de controle, crée le par Affichage / Barre d'outils / formulaire et puis associe le à la Sub CommandButton3_Click que tu as mise dans le module.

Nikel je vais faire ça.

Merci beaucoup pour ton aide Dan.

Cordialement.