XL 2016 Commandbutton recherche et modifier

[Laurent_7]

Bonjour à tous,

Je vous sollicite aujourd'hui car je n'ai pas un grand niveau en VBA et qu'après de nombreuses recherches, je n'ai pas trouvé la solution à mon problème.

Dans mon formulaire Saisie-DI j'aimerai :

1) A partir du choix fait dans la combobox2, cliquer sur le bouton "rechercher" pour récupérer l'ensemble des données relatives à ce numéro de DI et les afficher dans les champs correspondant. Actuellement cela ne fonctionne pas.
2) Une fois la recherche terminée, avoir la possibilité de modifier un des champs et de sauvegarder cette modification sans créer une ligne supplémentaire mais en modifiant seulement la ligne déjà créée auparavant. Actuellement cela ne fonctionne pas.

Le fichier Excel est joint à cette discussion.

Merci de votre aide !

 

[job75]

Bonsoir Laurent_7, bienvenue sur XLD,

Voyez le fichier joint, j'ai revu tout le code de l'UserForm "Saisie_DI".

Dans la feuille "Suivi Di" la colonne A est au format Date, la colonne B au format Texte.

A+

 

[vgendron]

Hello
Hello @job75
pour remplir tes champs, il faut préciser dans quelle feuille aller chercher les infos;. sinon par défaut il prend la feuille active.. ici "Formulaire"

Private Sub CommandButton3_Click()
Dim no_ligne As Integer

no_ligne = ComboBox2.ListIndex + 2
With Sheets("Suivi DI") 'attention au nom de ta feuille, il y a deux espaces..
TextBox1.Value = .Cells(no_ligne, 1).Value
TextBox2.Value = .Cells(no_ligne, 2).Value
TextBox3.Value = .Cells(no_ligne, 3).Value
TextBox4.Value = .Cells(no_ligne, 4).Value
ComboBox1.Value = .Cells(no_ligne, 5).Value
TextBox4.Value = .Cells(no_ligne, 6).Value
End With

End Sub

 

[Laurent_7]

Bonsoir @job75,

Super, merci à vous pour votre aide !
Le fichier marche nickel !

Encore merci et bonne soirée.