Microsoft 365 code vba

[Piment]

Re bonjour,
Je reviens vers vous, j'ai de nouveau quelques difficultés à réaliser mon projet.
J'ai réalisé un UserForm "Modifier" dans mon fichier, mais je n'arrive pas à le faire fonctionner.
Quelqu'un peut m'aider?
Avec toute ma reconnaissance.
Merci

 

[vgendron]

Hello

change ton Initialize et ton "Combobox2_change" avec le code ci dessous

Private Sub UserForm_Initialize()
Dim I, J As Integer
    Dim Ws As Worksheet, Lig As Integer
'tu charges le combobox2 dès l'initialize    
ComboBox2.ColumnCount = 1 'Pour la liste Civilité
ComboBox2.List() = Array("Mr", "Mme")
For Lig = 0 To 364
 Me.Date_Evènement.AddItem DateSerial(Year(Now), 1, 1) + Lig
Next
    
If Range("ListClients").Item(1, 1) <> "" Then Lig = Range("ListClients").Rows.Count Else Lig = 1
'tu charges le combobox1 dès l'initialize    
Set Ws = Sheets("Client")
With Me.ComboBox1
    For J = 2 To Ws.Range("A" & Rows.Count).End(xlUp).Row
        .AddItem Ws.Range("C" & J)
    Next J
End With
End Sub

Private Sub ComboBox1_Change()
Dim Ligne As Long
Ligne = Me.ComboBox1.ListIndex + 2 'pour faire correspondre l'index du nom sélectionné avec son numéro de ligne dans la feuille Excel

With Sheets("Client")
'on peut remplir les champs tels que enregistrés dans la feuille
    Me.ComboBox2 = .Range("B" & Ligne)
    Me.NOM = .Range("C" & Ligne)
    Me.ADRESSE = .Range("D" & Ligne)
    Me.CP = .Range("E" & Ligne)
    'à completer avec les autres champs
End With
    
End Sub

tu avais une boucle sur les controls TextBox... qui n'existent pas sur ton formulaire..

 

[vgendron]

et pour ce que tu vas vouloir faire.. à savoir. une saisie intuitive sur le combo de recherche:
va voir ici:

Formation Excel VBA JB

 

[Piment]

Bonjour Vgendron,
Je te remercie pour ta précieuse aide. Tout fonctionne comme il faut. Merci encore.
Je vais suivre ta recommandation pour la saisie intuitive.
J'aurais surement encore besoin de ton aide car je suis loin d'avoir mené mon projet au bout.
Prochaine étape: élaboration d'un devis et facturation;
Je mettrais le fichier sur le Forum une fois terminer. Cela pourra peut-être servir à quelqu'un.