XL 2019 Modifications avec Combobox liées

[sabagof]

Bonjour chers tous,
Juste une préoccupation d'amélioration de procédure. Mes userforms sont bien initialisés par les combobox liées. Pour faire les modifications j'utilise le code suivant par exemple :

Private Sub CommandButton1_Click()
    Dim lignevide As Long
    Dim idClient As String
    
    Me.Label1.Visible = True
    Me.cmbid1.Visible = True
    
    If Me.cmbid1.Value <> "" Then
    
    ' Extraire l'ID client de la ComboBox (partie avant le tiret)
    idClient = Split(cmbid1.Value, " - ")(0)
    
    ' Rechercher la ligne du client dans la feuille
    lignevide = Feuil1.Columns(1).Find(What:=idClient, LookIn:=xlValues, LookAt:=xlWhole).Row
    
    ' Mettre à jour les informations dans la feuille
    Feuil1.Cells(lignevide, 2).Value = txtnomprenom.Value
    Feuil1.Cells(lignevide, 3).Value = txtcontact.Value
    Feuil1.Cells(lignevide, 4).Value = txtmail.Value
    Feuil1.Cells(lignevide, 5).Value = txtadresse.Value
    Feuil1.Cells(lignevide, 6).Value = txtremarque.Value
    
            Me.txtnomprenom = "" ' Efface la mesure
            Me.txtcontact = ""  ' Efface la mesure
            Me.txtmail = ""  ' Efface la mesure
            Me.txtadresse = ""  ' Efface la mesure
            Me.cmbid1 = ""
            Me.txtremarque = ""
            
            Else: MsgBox "veuillez notifier le client à modifier svp. Merci"
            Exit Sub
    End If
    
    ' Afficher un message de confirmation
    MsgBox "Les informations sur le client ont été modifiées avec succès.", vbInformation
End Sub

A mon avis cette procédure ne respecte pas les combobox liées et je voudrais avois mieux. Merci.

 

[Dranreb]

Bonjour.
Votre projet VBA est protégé par un mot de passe. Pouvez vous me le donner.

 

[sabagof]

Bonjour.
Votre projet VBA est protégé par un mot de passe. Pouvez vous me le donner.

Toutes mes excuses le mdp = "sasbages"

 

[Dranreb]

Dans la mesure où Nom et prénom fait l'objet d'une vérification, vous auriez intérêt à mettre aussi une ComboBox prise en charge par CLsA pour cette information.
La façon normale d'écrire une nouvelle ligne avec valeurs des contrôles c'est ça :

Private Sub btn_ajout_Click() 'enregistrer le client
   If LCouA > 0 Then
      MsgBox "Ce client est déjà enregistré", vbExclamation, Me.Caption
   Else
      CLsA.ValeursVers TVLA
      CAsA.ValeursVers TVLA
      CLsA.Lignes.Add.Range.Value = TVLA
      CLsA.Actualiser
      End If
   End Sub

Il serait prudent d'ajouter après la Sub UserForm_Initialize :

Private Sub CLsA_Change(ByVal Complet As Boolean, ByVal NbrLgn As Long)
   If NbrLgn > 0 Then Exit Sub
   LCouA = 0
   ReDim TVLA(1 To 1, 1 To CLsA.PlgTablo.Columns.Count)
   CAsA.ValeursDepuis TVLA
   End Sub

L'évènement Résultat ne se produit en effet pas s'il n'y a aucune ligne correspondant aux critères.

 

[sabagof]

Dans la mesure où Nom et prénom fait l'objet d'une vérification, vous auriez intérêt à mettre aussi une ComboBox prise en charge par CLsA pour cette information.
La façon normale d'écrire une nouvelle ligne avec valeurs des contrôles c'est ça :

Private Sub btn_ajout_Click() 'enregistrer le client
   If LCouA > 0 Then
      MsgBox "Ce client est déjà enregistré", vbExclamation, Me.Caption
   Else
      CLsA.ValeursVers TVLA
      CAsA.ValeursVers TVLA
      CLsA.Lignes.Add.Range.Value = TVLA
      CLsA.Actualiser
      End If
   End Sub[/CODE=vb]Il serait prudent d'ajouter après la Sub UserForm_Initialize :
[CODE]Private Sub CLsA_Change(ByVal Complet As Boolean, ByVal NbrLgn As Long)
   If NbrLgn > 0 Then Exit Sub
   LCouA = 0
   ReDim TVLA(1 To 1, 1 To CLsA.PlgTablo.Columns.Count)
   CAsA.ValeursDepuis TVLA
   End Sub

L'évènement Résultat ne se produit en effet pas s'il n'y a aucune ligne correspondant aux critères.
Pour la modification c'est plus simple :

Private Sub CommandButton1_Click()
   If LCouA = 0 Then Exit Sub
   CAsA.ValeursVers TVLA
   CLsA.Lignes(LCouA).Range.Value = TVLA
   End Sub

Très bien. Merci. Comment faire pour la modification ?

 

[Dranreb]

Pour la modification c'est plus simple :

Private Sub CommandButton1_Click()
   If LCouA = 0 Then Exit Sub
   CAsA.ValeursVers TVLA
   CLsA.Lignes(LCouA).Range.Value = TVLA
   End Sub

D'habitude dans ce que je propose, c'est le même bouton avec pour caption soit "Ajouter" soit "Modifier" qui effectue les deux opérations.

 

[sabagof]

E

Pour la modification c'est plus simple :

Private Sub CommandButton1_Click()
   If LCouA = 0 Then Exit Sub
   CAsA.ValeursVers TVLA
   CLsA.Lignes(LCouA).Range.Value = TVLA
   End Sub

D'habitude dans ce que je propose, c'est le même bouton avec pour caption soit "Ajouter" soit "Modifier" qui effectue les deux opérations.

Et pour la suppression ?

 

[Dranreb]

Private Sub CBnSuppr_Click()
   If LCouA = 0 Then Exit Sub
   CLsA.Lignes(LCouA).Delete
   CLsA.Actualiser
   End Sub

J'ai généralement aussi d'abord une :

Private Sub CBnEchap_Click()
   CLsA.Nettoyer
   End Sub