Recherche et ajouter résultat dans cellule

[roseverte]

Bonjour,

Bon alors j'ai 2 feuilles, sur feuil1 j'ai 10 colonnes avec mes données.
Dans la feuille 2 j'ai dix combobox qui correspondent aux 10 colonnes.
J'ai rempli les combobox grace a l'aide de se forum merci beaucoup!

Maintenant je voudrai quand on clique sur un element dans une combobox ici la 1 les combobox 2 et 3 se remplissent automatiquement et que les elements associés s'affichent dans les cellules du tableau en dessous des combobox correspondant.

Ce n'est pas tres clair donc je met un exemple!


J'ai récupéré mon code d'une présedante bd que j'ai modifier mais cela me marque incompatibilité de type!

Private Sub ComboBox1_Change()
CODE_AE = ComboBox1.Value

Columns(1).Find(CODE_AE, , , xlWhole, , Previous).Select
CODE_FAB = Selection.Offset(0, 1).Value
Désignation = Selection.Offset(0, 2).Value
Spécification = Selection.Offset(0, 3).Value
Outil = Selection.Offset(0, 4).Value
Fabricant = Selection.Offset(0, 5).Value
Référence = Selection.Offset(0, 6).Value
Matrice = Selection.Offset(0, 7).Value
Spécifications_outillage = Selection.Offset(0, 8).Value
Emplacement = Selection.Offset(0, 9).Value

ComboBox2.Text = "" & CODE_FAB
ComboBox3.Text = "" & Désignation
ComboBox4.Text = "" & Spécification
Feuil2!E9.Text = "" & Outil
Feuil2!F9.Text = "" & Fabricant
Feuil2!G9.Text = "" & Référence
Feuil2!H9.Text = "" & Matrice
Feuil2!I9.Text = "" & Spécifications_outillage
Feuil2!J9.Text = "" & Emplacement

End Sub

Merci d'aance!!
Roseverte

 

[Compte Supprimé 979]

Re : Recherche et ajouter résultat dans cellule

Salut Roseverte,

Il est préférable d'identifier tes arguments avec Find
Columns(1).Find(What:=CODE_AE, LookAt:=xlWhole).Select

Sinon tu peux également faire

Private Sub ComboBox1_Change()
Dim Lig As Long
CODE_AE = ComboBox1.Value
With Sheets("Feuil1")
  Lig = .Columns(1).Find(What:=CODE_AE, LookAt:=xlWhole).Row
  CODE_FAB = .Range("B" & Lig).Value
  Désignation = .Range("C" & Lig).Value
  Spécification = .Range("D" & Lig).Value
  Outil = .Range("E" & Lig).Value
  Fabricant = .Range("F" & Lig).Value
  Référence = .Range("G" & Lig).Value
  Matrice = .Range("H" & Lig).Value
  Spécifications_outillage = .Range("I" & Lig).Value
  Emplacement = .Range("J" & Lig).Value
End With
' Restitution des valeurs
' ...
End Sub

A+

 

[roseverte]

Re : Recherche et ajouter résultat dans cellule

Bonjour,

Merci beaucoup!!

Par contre ça me met une erreur( qui n'a rien a voir vec le code que tu m'a donné!), c'est Feuil2!E9.Text = "" & Outil qu'il n'accepte pas!

En tout cas merci!!

Roseverte