XL 2010 rechechev

[LNHDVFR]

Bonjour,

J'essaie de faire 1 code recherchev pour trouver le résultats dans 2 feuilles après saisie d'un formulaire via 1 user forme :
- j'ai crée un onglet paramètre pour que les utilisteurs puissent ajouter ou supprimer des sociétés avec le numéro de SIREN (sheet paramètre)
- dans l'onglet "saisie", l'utilisateur ouvre 1 user forme et le combobox récupère la liste de société qu'il avait paramétré
- Après validation, je récupère la donnée de la combobox et je souhaiterai ajouter la valeur SIREN vu qu'elle ne change pas et d'indiquer qu'elle n'est pas présente si pas dans la liste

j'ai donc fait comme code que j'ai trouvé sur le net :

sub siren()

Dim plage As Range, C As Range, teste

With Sheets("saisie")
Set plage = .Range(.[A65536], .Cells(.Rows.Count, 1).End(xlUp))
End With

With Sheets("Paramètre")
For Each C In plage
teste = Application.VLookup(C.Value, .Range(.[B8], .Cells(.Rows.Count, 1).End(xlUp)), 2, 0)
If IsError(teste) Then
C.Offset(, 2) = "non présent"
Else
C.Offset(, 2) = tests
End If
Next C
End With


Ca ne fonctionne pas et je trouve pas de solution...quelqu’un peut m'aider ?

 

[Bebere]

bonjour
Lnhdvfr si c'est pour un userform pas besoin de ce code

 

[LNHDVFR]

Merci Bebere, je n'avais pas penser à l'inserer dans une text box...
en tps que débutante,, à quoi sert le +8 dans Me.TextBox1 = Ws.Range("C" & Me.ComboBox1.ListIndex + 8).
J'avoue ne pas comprendre ?
Merci encore

 

[Bebere]

bonjour cela te donne l'index de la ligne où se trouve la sélection de la combobox