Séléction multiples de boutons VBA

Fermé
djcony2000 Messages postés 1 Date d'inscription lundi 25 août 2008 Statut Membre Dernière intervention 25 août 2008 - 25 août 2008 à 11:30
 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 ;)

1 réponse

Réponse 1 / 1
Utilisateur anonyme
25 août 2008 à 15:17
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
'
0

Discussions similaires

"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

Bonjour,
Nous avons un problème dans la programmation de notre VBA. Voici notre programme:

Sub Bloucle1Bull()
Dim a, k As Integer

k = 2
Do While Worksheets("formulaire").Cells(2, 2) Worksheets("formulaire").Cells(k, 4)
k = k + 1
Loop


a = 2
Do While Worksheets("formulaire").Cells(k + 1, 4) Worksheets("BDD Call").Cells(a, 1) Or (Worksheets("BDD Call").Cells(a, 4) = (Worksheets("Bullspread").Cells(2, 3) + 100)) Or Worksheets("BDD Call").Cells(a, 7) Worksheets("bullspread").Cells(2, 7)
a = a + 1
Loop

''''''''''''on recopie la ligne du premier call trouvé pour le jour 2 ...

2 réponses
erreur d'execution 9, l'indice n'appartient pas à la sélection
isidoh -
isidoh -

Bonjour,

j'ai un petit problème de code,
Bon en gros je voudrais coller les valeurs de certaines cellules de tous les onglets (89) du classeur "Copie de MASTERFILE BASF Serie_Sept to Dec 2012_V2.xls" vers un autre classeur que j'ai nommé "BDD" sur l'onglet nommé BDD également.

voila le code que j ai écrit:

Sub Macro()

Dim i As Integer
Dim k As Integer
Dim ws As Worksheet

For i = 2 To 90
For j = 3 To 91
'
Workbooks("BDD").Sheets("BDD").Range("A" & i).Value = Workbooks("Copie de MASTERFILE BASF Serie_Sept to Dec 2012_V2.xls").Sheets("Feuil").Range("C12")

18 réponses
l'indice n'appartient pas à la selection
sabw -
sabw -

Bonjour,

Voici la macro
Sub Macro124RDMTPE()

Dim mavar As Long
Dim mavard As Long
Dim mavard1 As Long
mavar = Sheets("Variable macro").Range("B1").Value
mavard = Sheets("Variable macro").Range("B3").Value
mavard1 = Sheets("Variable macro").Range("B4").Value
Sheets("124 Feuil").Select
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(5, 1), Array(10, 1), Array(16, 9), Array(17, 1), _
Array(24, 1), Array(32, 9), Array(69, 1), Array(75, 1), Array(81, 1), Array(87, 9), Array...

2 réponses
Erreur '9' l'indice n'appartient pas à la sélection
Ela_1005 -
Utilisateur anonyme -

Bonjour,

J'ai créé un document Excel (avec macros) qui est hébergé sur le réseau de mon entreprise. L'utilisation sur mon pc ne pose aucun pb, tout fonctionne parfaitement !

En revanche lorsque ma chef utilise ce fichier sur son pc, " l'erreur '9' l'indice n'appartient pas à la sélection" apparait et je ne comprends absolument pas pourquoi ...

Avez-vous une solution svp ?

Merci

Configuration: Windows 7 / Mozilla 11.0

5 réponses
Erreur d'exécution 13 Incompatibilité de type
grace -
pijaku -

Bonjour,

Je ne comprend pas pourquoi j'ai une erreur d'execution 13 : incompatibilité de type car mon code marchait très bien avant...Je met en gras la ligne où il y a l'erreur


'affichage des feuilles concernées et vérification des champs Sheets("Recap").Visible = True If Cathégories = "" Then MsgBox "Sélectionnez une catégorie de défauts dans la liste déroulante" ElseIf défauts = "" Then MsgBox "Sélectionnez un défauts qualité dans la liste déroulante" Exit Sub End If Dim i As Integer Dim n As Integer n = 3 i = 2 MsgBox "Veuillez patienter pendant le traitement..." Application.Cursor = xlWait 'affiche le sablier 'Suppression des don...

5 réponses