Formulaire vba sur excel, liens entre cellules et checkbox à modifier

couscous21

XLDnaute Nouveau
Bonjour,

J'ai créé un formulaire de saisie de coordonnées clients à partir d'éléments trouvés sur le net.

Ainsi, j'ai réussi à créer un formulaire pratique pour gérer ma base client pour le site internet de bijouterie-joaillerie Firouza.

Il intègre le bouton "modifier" afin de modifier les coordonnées clients à partir de leur numéro client.

Mon soucis est que lorsque j'ouvre mon formulaire, et que je sélectionne un client à partir de son numéro client, les éléments que j'avais auparavant cochés ne le sont plus ("coup de coeur", "griffée", "prestige")

Comment donc garder les éléments cochés ? C'est ma question du jour....

Voici mon fichier excel sur lequel porte mon interrogation : Voir la pièce jointe Fichier clients - Forum.xlsm

Merci d'avance !
 

phlaurent55

XLDnaute Barbatruc
Re : Formulaire vba sur excel, liens entre cellules et checkbox à modifier

Bonjour couscous, et bienvenue sur le forum

Code:
'Pour la liste déroulante Code client
Private Sub ComboBox1_Change()
    Dim Ligne As Long
    Dim I As Integer
    If Me.ComboBox1.ListIndex = -1 Then Exit Sub
    Ligne = Me.ComboBox1.ListIndex + 7
    ComboBox2 = Ws.Cells(Ligne, "B")
    For I = 1 To 7
        Me.Controls("TextBox" & I) = Ws.Cells(Ligne, I + 2)
    Next I
    CheckBox1.Value = Ws.Cells(Ligne, 10) = 1
    CheckBox2.Value = Ws.Cells(Ligne, 11) = 1
    CheckBox3.Value = Ws.Cells(Ligne, 12) = 1
End Sub
Code:
'Pour le bouton Modifier
Private Sub CommandButton2_Click()
    Dim Ligne As Long
    Dim I As Integer
    If MsgBox("Confirmez-vous la modification de ce contact ?", vbYesNo, "Demande de confirmation de modification") = vbYes Then
        If Me.ComboBox1.ListIndex = -1 Then Exit Sub
        Ligne = Me.ComboBox1.ListIndex + 7
        Ws.Cells(Ligne, "B") = ComboBox2
        For I = 1 To 7
            If Me.Controls("TextBox" & I).Visible = True Then
                Ws.Cells(Ligne, I + 2) = Me.Controls("TextBox" & I)
            End If
        Next I
        For I = 1 To 3
        Ws.Cells(Ligne, 9 + I) = ""
        If Me.Controls("Checkbox" & I).Value = True Then Ws.Cells(Ligne, 9 + I) = 1
        Next I
    End If
End Sub
à+
Philippe
 
Dernière édition:

couscous21

XLDnaute Nouveau
Re : Formulaire vba sur excel, liens entre cellules et checkbox à modifier

Merci beaucoup pour votre aide, tout marche parfaitement !

Bonne fin de journée
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas