Pb de recherche

[jdbdx1]

Bonjour et merci d'avance pour votre aide

A partir d'une combo dans un userform je cherche le n° de tel associé a la donnée inscrite dans la combo.Donc en cliquant sur Ok je souhaite qu'une box s'affiche avec ce numéro

Je ne m'y connais pas trop en vba si quelqu'un arrive a me comprendre et a me diriger vers une solution j'en ai bien besoin

merci pour toust

 

[Robert]

Re : Pb de recherche

Bonjour dfgbnsfg1, bonjour le forum,

Je pense qu'un fichier exemple serait le bienvenu et t'apporterait beaucoup plus de chance de réponse à ton problème.

 

[jdbdx1]

Re : Pb de recherche

oui désolé cela sera certainement plus parlant
http://www.jdbdx1.free.fr/Annuaire_Vers_2.xls
merci

 

[Robert]

Re : Pb de recherche

Bonsoir rtrtkl1, bonsoir le forum,

Une proposition avec un Userform Multipage. Évidemment ce n'est pas ce que tu demandes je suis désolé mais j'ai trouvé que c'était mieux comme ça. Ne me dis pas de quoi j'mamelle ça serait trop vache...

Pour que la recherche par Entreprise soit vraiment efficace il faudrait qu'il y ait au moins une ligne vide avant chaque nouvelle entreprise. Ce n'est pas le cas mais sinon ça fonctionne...

 

[jdbdx1]

Re : Pb de recherche

Merci beaucoup ! C'est vrai que c'est différent de ce que j'avais pensé mais le principe est la et en plus ca fonctionne : c'est nickel

donc merci beaucoup pour ton aide et ta rapidité

 

[gbinforme]

Re : Pb de recherche

bonjour à tous,

Si je peux me permettre, en changeant dans la macro : Private Sub ComboBox1_Change()

lf = ld + Cells(ld, 1).CurrentRegion.Rows.Count 'définit la variable lf


par ce code, le problème des lignes non vides est résolu.


For y = ld + 1 To Cells(65536, 1).End(xlUp).Row
If Not Cells(y, 1) = "" Then Exit For
Next y
lf = y - 1

Je sauvegarde le principe qui me plaît bien.

Bonne journée à tous

 

[jdbdx1]

Re : Pb de recherche

Effectivement cela fonctionne .

Merci pour ton aide