Discussion :

[chaispas31]

Bonjour,
J'essaye d'utiliser un togglebutton dans un userform et j'ai un problème pour récupérer une variable suivant son état.
Je voudrais utiliser cette variable pour une autre macro dans le même userform mais cela ne marche pas.

Dans l'exemple lorsque je veux l'utiliser pour donner sa valeur à une cellule la valeur est vide


J'ai joint un fichier pour exemple.

Merci pour votre aide.

Alain

[Menhir]

Je voudrais utiliser cette variable pour une autre macro dans le même userform mais cela ne marche pas.

Je n'ai pas ouvert ta pièces jointe mais si tu veux utiliser une variable dans différentes procédures, il faut la déclarer en Publlic en début de module, avant la première déclaration de procédure.

[chaispas31]

Je n'ai pas ouvert ta pièces jointe mais si tu veux utiliser une variable dans différentes procédures, il faut la déclarer en Publlic en début de module, avant la première déclaration de procédure.

merci pour ta réponse,
Je viens de trouver : il fallait déclarer la varibale en debut de module et en dehors des procédures.
Je ne connaissais pas ce type de déclaration.

Merci Menhir

[BENNASR]

BONSOIR
je sais pas pourquoi deux bouton??, copier les deux ligne dans le premier code et tu ara ce que tu veux non
??

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
 Sub litige_Click()
 
    If litige.Value = True Then 'si la couleur du bouton est vert;  Bouton relaché
        litige.BackColor = &HFF 'le bouton devient rouge
        litige.Caption = "Litige déclaré"
        etat_litige = "Litige"
    End If
 
    If litige.Value = False Then 'si la couleur du bouton est rouge;  Bouton enfoncé
        litige.BackColor = &O330033 'le bouton devient vert
        litige.Caption = "Pas de Litige"
        etat_litige = "pas de Litige"
    End If
Sheets("feuil1").Range("B5") = ""
Sheets("feuil1").Range("B5") = etat_litige
End Sub

[chaispas31]

BONSOIR
je sais pas pourquoi deux bouton??, copier les deux ligne dans le premier code et tu ara ce que tu veux non
??

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
 Sub litige_Click()
 
    If litige.Value = True Then 'si la couleur du bouton est vert;  Bouton relaché
        litige.BackColor = &HFF 'le bouton devient rouge
        litige.Caption = "Litige déclaré"
        etat_litige = "Litige"
    End If
 
    If litige.Value = False Then 'si la couleur du bouton est rouge;  Bouton enfoncé
        litige.BackColor = &O330033 'le bouton devient vert
        litige.Caption = "Pas de Litige"
        etat_litige = "pas de Litige"
    End If
Sheets("feuil1").Range("B5") = ""
Sheets("feuil1").Range("B5") = etat_litige
End Sub

Bonjour
Merci pour ta réponse ; les deux boutons étaient juste un exemple ; le problème était sur la variable.
L'userform était juste là pour faire voir ce qui ne marchait pas.

Bonne fin de journée.

Alain