XL 2016 Récupération de la valeur d'une variable d'une procédure à une autre

[raoulruiz]

Bonjour,

Je n'arrive pas à récupérer la valeur de ma variable "statut" de la procédure checkbox1_click() dans ma procédure Private Sub CommandButton_Ajout_Click()
Pourriez vous m'aider svp?

Sub CheckBox1_Click()
Dim statut As String
If CheckBox1 = True Then
    TextBox_Fin = ""
    TextBox_Fin.Enabled = False
    TextBox_Fin.BackStyle = fmBackStyleTransparent
    statut = "terminé"
    
ElseIf CheckBox1 = False Then
    TextBox_Fin.Enabled = True
    TextBox_Fin = ""
    TextBox_Fin.BackStyle = fmBackStyleOpaque
    statut = "actif"
    
End If
End Sub

'********************************************************
'Ajout d'un nouvel enregistrement dans la base de données
'*********************************************************
Private Sub CommandButton_Ajout_Click()
Dim MaDate As Date
Dim MonMontant As Double

Feuil2.Unprotect "EDFIN" 'déverrouille la feuille données

    MsgBox (statut)
        Sheets("Donnees").Activate
        Range("A2").Select
        Selection.End(xlDown).Select    'positionnement sur la dernière ligne non vide
        Selection.Offset(1, 0).Select   'décalage d'une ligne vers le bas
        ActiveCell = TextBox_Ref.Value
        ActiveCell.Offset(0, 1).Value = Me.TextBox_Anal
        ActiveCell.Offset(0, 2).Value = Me.Cbo_Zone
        ActiveCell.Offset(0, 3).Value = Me.Cbo_Pays
        ActiveCell.Offset(0, 6).Value = Me.TextBox_Client
        ActiveCell.Offset(0, 7).Value = Me.Cbo_Origine
        ActiveCell.Offset(0, 8).Value = Me.TextBox_Libelle
        ActiveCell.Offset(0, 9).Value = Me.TextBox_Expert
        ActiveCell.Offset(0, 10).Value = Me.ComboBox_Referent
        ActiveCell.Offset(0, 11).Value = Me.ComboBox_Etat
        ActiveCell.Offset(0, 12).Value = Me.ComboBox_Type
        ActiveCell.Offset(0, 13).Value = Me.TextBox_Debut
        ActiveCell.Offset(0, 14).Value = Me.TextBox_Fin
        ActiveCell.Offset(0, 15).Value = statut
        ActiveCell.Offset(0, 16).Value = TextBox_Montant
        ActiveCell.Offset(0, 17).Value = TextBox_Commentaire.Value
    
        MsgBox "Le contrat a bien été ajouté à la base de données", vbOKOnly + vbInformation, "CONFIRMATION"
  
        Me.TextBox_Anal = "BU"
        Me.TextBox_Client = ""
        Me.TextBox_Commentaire = ""
        Me.TextBox_Debut = ""
        Me.TextBox_Fin = ""
        Me.TextBox_Expert = ""
        Me.TextBox_Montant = ""
        frmSaisie.Cbo_Zone.AddItem Cells(2, 2).Value
        'Me.Cbo_Pays = Cells(2, 2).Value
        Me.TextBox_Ref = ""
        Me.Cbo_Origine = ""
        'Me.Cbo_Pays.ListIndex = 0
        Me.ComboBox_Etat = ""
        Me.ComboBox_Referent = ""
        Me.ComboBox_Type = ""
        Me.TextBox_Libelle = ""
        Call TRI
    Feuil2.Protect "EDFIN", True, True, True
    

    
End Sub

 

[youky(BJ)]

Bonjour,
Le plus simple

statut = IIf(CheckBox1 = True, "terminé", "actif")
MsgBox (statut)

Bruno

 

[sylvanu]

Bonjour'
Autre possibilité, déclarer Statut en Public.

 

[raoulruiz]

Bonjour et merci de ce retour rapide.
J'avais bien essayé de déclarer statut en Public
"Public statut as string" mais la macro me renvoi un message d'erreur "attribut incorrect dans une procédure Sub ou fonction" en surlignant le titre de ma procédure.
Je n'arrive pas à comprendre pourquoi.

 

[raoulruiz]

Bonjour,
Le plus simple

statut = IIf(CheckBox1 = True, "terminé", "actif")
MsgBox (statut)

Bruno

C'est bien "llf" que tu écris??

 

[mapomme]

Bonjour,

C'est bien "llf" que tu écris??

Oui, c'est bien ce qui est écrit. L'aide de VBA est très bien faite. Utilisez la.

 

[youky(BJ)]

Exact IIF
Cela remplace le If . . .Then Else Endif
Bonjour Sylvanu,
Le Public n'est pas très utile car si on ne touche pas le CheckBox1 la variable n'est pas actualisée.
Bruno

 

[mapomme]

Bonjour @youky(BJ)

Cela remplace le If . . .Then Else Endif

pas tout à fait...

 

[raoulruiz]

Merci à vous.
J'ai déclarer la variable en public et cela fonctionne.
Le soucis initial est que je déclarais la variable en public dans la procédure alors qu'il faut la déclarer dans le module