Discussion :

[TruffExcel]

Bonjour j'ai la macro suivante :

Code :

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

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.

[Menhir]

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 ?).

[TruffExcel]

Bonjour Menhir,

C'est noté, je vais faire autrement.

Merci et bonne journée.