Concatener une variable en fin de nom d'optionButton dans une boucle

Bonjour j'ai la macro suivante :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Sub Toto() Dim g As Byte For g = 1 To 11 With UserForm.MultiPage1.Pages(0) If .Papier & g = True Then Range("ChoixBord" & g).Value = "PAPIER" ElseIf .Pdf & g = True Then Range("ChoixBord" & g).Value = "PDF" Else Range("ChoixBord" & g).Value = "PAPIER+PDF" End If End With Next g End Sub

---

La ligne n°9 (If .Papier & g = True Then) me pose problème (erreur 438)

L'idée est d'avoir : If .Papier1 = True Then (où Papier1 est le nom d'un OptionButton)

Qu'est-ce que je fais mal ?

Merci.

Citation:

---

Envoyé par TruffExcel

La ligne n°9 (If .Papier & g = True Then) me pose problème (erreur 438)

L'idée est d'avoir : If .Papier1 = True Then (où Papier1 est le nom d'un OptionButton)

---

VBA ne gère pas les macro-variables.
La meilleur solution pour faire ça est de placer en début de code les références de tes boutons dans une variable indexée et d'utiliser ensuite ton "g" comme indice de cette variable.

Etant réfractaire aux UserForm, je ne saurais pas te dire qu'elle serait le type d'une telle variable (Bouton ?).

Bonjour Menhir,

C'est noté, je vais faire autrement.

Merci et bonne journée.