UserForm

[Toubabou]

Bonjour à tous,

Mon intitulé n'est pas très explicite mais je ne savais pas quoi écrire!!!!
Voila j'ai donc un UserForm qui me permet de remplir un tableau.Maintenant je voudrais que lorsque je saisis un n° d'Identifiant dans la ComboBox 1 il retrouve les informations déjà saisies


Ce lien n'existe plus

Amicalement,

Toubabou

 

[camarchepas]

Re : UserForm

Bonjour ,

alors , voici le code pour cela , je n'ai fais que 2 données , à toi d'écrire pour les autres .

donc dans le module du userform à modifier la sub userform_Initialize et à créer la sub Combobo1_change

Ce serait plus sympa et plus pérenne d'avoir les pièces joint directement sur Xld, mais bon ....

Private Sub UserForm_Initialize()
Dim LigneFin As Long
ListboxVilles.Visible = False
LigneFin = Sheets("Feuil2").Range("A" & Rows.Count).End(xlUp).Row
ComboBox1.List = Sheets("Feuil2").Range("A2:A" & LigneFin + 1).Value
End Sub

Private Sub ComboBox1_Change()
Dim Trouve As Range
With Sheets("Feuil2")
  Set Trouve = .Range("A:A").Find(ComboBox1, lookat:=xlWhole)
  TextBox1 = .Range("B" & Trouve.Row)
  TextBox2 = .Range("C" & Trouve.Row)
 'La suite
End With
End Sub

 

[Toubabou]

Re : UserForm

Re,

Merci beaucoup, merci surtout de me laisser du travail j'ai moins l'impression de faire des bêtement des copier-coller
Amicalement,
Toubabou

 

[Toubabou]

Re : UserForm

Re,

Cela fonctionne parfaitement bien mis à par le fait que je ne peux plus ajouter un "Identifiant"

  Set Trouve = .Range("A:A").Find(ComboBox1, lookat:=xlWhole)
  TextBox1 = .Range("B" & Trouve.Row)

TextBox1 ..... (étant surligné en jaune)

Merci

Tooubabou

 

[camarchepas]

Re : UserForm

Donc , si tu ajoutes un matricule la recherche effectivement renvoie une erreur puisque non trouvé.

il faut donc légérement modifier la sub Combobox1_Change

Si l'on trouve le matricule alors on ramène les infos , si l'on ne le retrouve pas et bien l'on sort de la sub

Private Sub ComboBox1_Change()
 Dim Trouve As Range
 Dim Ligne as long 
 With Sheets("Feuil2")
   Set Trouve = .Range("A:A").Find(ComboBox1, lookat:=xlWhole)
   if not Trouve is nothing then 
      ligne = Trouve.Row
      TextBox1 = .Range("B" & ligne)
      TextBox2 = .Range("C" & ligne)
      'La suite 


      'La fin des infos à mettre à jour 
    end if 
 End With
 End Sub

 

[Toubabou]

Re : UserForm

Re,

Merci beaucoup. Cela règle mon soucis

Amicalement,
Touabou