probleme de recuparation de variable

Version imprimable

13/04/2018, 14h31
chaispas31

1 pièce(s) jointe(s)

probleme de recuparation de variable

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
13/04/2018, 15h13
Menhir

Citation:

Envoyé par chaispas31

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.
13/04/2018, 15h22
chaispas31

Citation:

Envoyé par Menhir

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

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

Code:

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

Citation:
Envoyé par 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:

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