Discussion :

[gregsk77]

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,

[EricDgn]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Cordialement.

[gregsk77]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[gregsk77]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe Tulliez]

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

[gregsk77]

Merci Philippe, ca fonctionne nickel !!