sos pas de resulat

[paskikic]

boujour tous,

je cherche a creer un code qui me trouve la valeur de la colone B en fonction de la colone et a l inscrire dans mon textbox mais il m affiche un beau 0 pourquoi.

voici le code :

Private Sub combobox1_Change()

'affiche le siaep en fonction du nom de la commune sur combobox1

Dim i As Integer
Dim nomcommune As Integer, nomsiaep As Integer
Dim cel As Range
' on affecte la cellule "a1" a la variable en a1 sur la feuil1
Set cel = Worksheets("feuil1").Range("a1")
'la derniere ligne -1 correspond au nbre de commune
nomcommune = cel.End(xlDown).Row - 1
'recherche du siaep
For i = 1 To nomcommune
If cel.Offset(i) = ComboBox1.Value Then
'on recupere le siaep
nomsieap = cel.Offset(i, 1)
Exit For
End If
Next i

textbox1= nomsiaep


End Sub

merci a tous

 

[Robert]

Re : sos pas de resulat

Bonjour Paskikic, bonjour le forum,

L'erreur ne serait-elle pas là : nomsieap = cel.Offset(i, 1) ? Ça serait pas plutôt un 0 ?

 

[Gruick]

Re : sos pas de resulat

Bonjour paskikic et Robert (Je savais que tu n'étais pas une vraie rousse !)

Bon, pourquoi ne pas utiliser la commande "find", puisqu'en plus tu es sûr de trouver du fait que ta combobox reprend les noms cde ta feuille.
En plus c'est plus rapide.

Voir petit fichier joint, dont tu peux t'inspirer.

 

[Robert]

Re : sos pas de resulat

Bonjour le fil, bonjour le forum,

Gruick, j'ai pensé la même chose que toi pou le Find mais j'ai eu la femme de faire un exemple...

Sinon pour la fausse rousse, depuis que j'ai vu que tu "voulais du sexe" je me suis dit "Oooops ! Changeons de couleur, faudrait pas qu'il me prenne pour une petite cochonne"...