Concaténation nom checkbox

Bonjour,

Je souhaite pouvoir concaténer un nom de checkbox comme suit, "01" étant remplacé à terme par une variable.
If UserForm1.OLEObjects("Machine" & "01").Value = True Then.....
ou par la suite:
If UserForm1.OLEObjects("Machine" & i).Value = True Then

MAis j'ai une erreur "Membre de méthode ou de donnée introuvable".

Pouvez vous m'aider?

MErci,

Bonjour,

Si i = 1 alors cela va donner "Machine1". Pour avoir 01 il faut utiliser la fonction Format()

Code:

---

If UserForm1.OLEObjects("Machine" & Format(i,"00")).Value = True Then

---

Cordialement.

Bonjour Eric,

Merci pour ce retour sur la gestion de la variable. Je prends note.

Le pb c'est que même la première ligne ne fonctionne pas, à savoir:

Code:

---

If UserForm1.OLEObjects("Machine" & "01").Value = True Then

---

Ca me renvoie le même code erreur hors là il interprète bien "Machine01" comme nom.

Donc si tu as une idée, je suis preneur. Merci.:)

Complément d'information suite autre sujet similaire lu sur le forum ici: j'ai rajouté ".object" devant "value" mais ca ne fonctionne pas non plus, même code erreur.

Code:

---

If UserForm1.OLEObjects("Machine" & "01").Object.Value = True Then

---

Bonjour,
Sauf erreur de ma part, on n'utilise pas la collection OleObjects dans un UserForm mais dans une feuille (objet Worksheet)
Dans un UserForm on utilise la collection Controls

Merci Philippe, ca fonctionne nickel !!