Discussion :

[emamousse]

Bonjour,
Voila mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set c = Worksheets("BonDeCommande").Range("B2:B100").Find(What:=UserForm3.ComboBox11.Value)

Je veux changer B2:B100 par la fonction Cells. J'ai donc ecris :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set c = Worksheets("BonDeCommande").Range(Cells(2,2),Cells(100,2)).Find(What:=UserForm3.ComboBox11.Value)

Mais ça ne marche pas. Pourriez vous me dire quel est le problème ?

Merci d'avance

[Marc-L]

Bonjour,

le problème est l'oubli de la feuille de calculs devant chaque Cells (sans c'est la feuille active !) …

_________________________________________________________________________________________________________

Je suis Paris, Nice, Bruxelles, Charlie, …