Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 Commandbutton recherche et modifier

Laurent_7

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

Pièces jointes

  • Fichier saisie formulaire V1.xlsm
    79.2 KB · Affichages: 11
Dernière édition:

job75

XLDnaute Barbatruc
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+
 

Pièces jointes

  • Fichier saisie formulaire(1).xlsm
    68.7 KB · Affichages: 19

vgendron

XLDnaute Barbatruc
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
 

Discussions similaires

Réponses
2
Affichages
345
Réponses
9
Affichages
238
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…