Séléction multiples de boutons VBA

djcony2000 Messages postés 1 Date d'inscription Statut Membre Dernière intervention -
Utilisateur anonyme - 25 août 2008 à 15:17

Bonjour,
Alors voilà, j'ai un petit problème, et j'ai eu beau chercher toute la matiné sur google et divers forum je n'ai aps trouver (il faut dire aussi que je ne sais pas trop comment exprimer ma question...)
Le problème est le suivant :
J'ai 25 boutons sur un userform
qui sont nommés BTN_1 , BTN_2, ..... , BTN_25
et je voudrais faire une procedure ou je fais des trucs avec eux
et pour ça il faut que je fasse une boucle qui choisisse les boutons un par un
quelquechose du genre :

for i = 1 to 25
BTN_i.select
with selection
.caption = .........
end with
next i
(par exemple)

Le problème c'est que j'arrive pas a selectionner mes boutons
genre si je met BTN_1.select il me selectionnera le bouton 1
par contre il faudrai que je créé une variable ou qqe chose comme ça pour qu'il me choppe tout les boutons un par un du bouton 1 au bouton 25
j'ai aussi essayé un truc du genre

dim bouton as commandbutton
(ou dim bouton as commandbutton.name)
for i = 1 to 25
bouton = "BTN_" & i
bouton.select
with selection
.caption = .........
end with
next i

Mais ça marche pas non plus :(:(:(:(

Sil you plait aidez moi, ma vie en dépend (ou pas loin...) ^^

Merci d'avance ;)

Afficher la suite

A voir également:

Séléction multiples de boutons VBA
A quoi servent les boutons de couleur sur une telecommande - Guide
Comment réinitialiser un téléphone avec les boutons - Guide
Application pour reconnaître les boutons - Accueil - Outils
Excel compter cellule couleur sans vba - Guide
Vba l'indice n'appartient pas a la selection ✓ - Forum VB / VBA

1 réponse

Réponse 1 / 1

Utilisateur anonyme

Bonjour,

Exemple type :

Option Explicit

Private Sub cmd_Execute_Click()

    Dim Bouton As Controls
    Dim Boucle As Integer
    Dim strMessage As String
    
    Set Bouton = Me.Controls
    
    For Boucle = 1 To 25
        strMessage = strMessage & vbLf & Bouton("BTN" & Boucle).Caption
    Next Boucle
        
    MsgBox strMessage
    
End Sub
'

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

erreur d'execution 9, l'indice n'appartient pas à la sélection

Erreur d'exécution 13 Incompatibilité de type

Erreur d'exécution '13': Incompatibilité de Type

erreur 13 incompatibilité de type VBA excel

Votre réponse

Discussions similaires