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

  • Initiateur de la discussion Initiateur de la discussion raoulruiz
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

raoulruiz

XLDnaute Nouveau
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?

VB:
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
 

Pièces jointes

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.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
68
  • Question Question
Microsoft 365 Code VBA
Réponses
2
Affichages
470
Retour