XL 2010 Test programme VBA

[herve62]

Bonsoir
On s'arrache les cheveux !!!
J'ai l'application jointe : le prog Main qui ouvre en même temps un autre fichier de données ; Il faut juste prendre un des codes de ce fichier
et dans l'USF de Main le coller dans la TextBox : la ListBox donne les détails
Le membre du forum pour qui j'ai fait ça me dit que ça plante au niveau de Set c= ...... avec le find ?
que aussi le bouton est inactif car il n'y a pas de code ??
Que pouvez vous me dire là dessus ?? Lui est en Excel2000 avec un vba en 6.3 cela me parait un peu vieillot est ce une cause ?
oui si chez vous l'appli fonctionne ; chez moi Nickel
Merci de votre aide pour ce monsieur ( bien âgé)

 

[herve62]

Salut Laurent

Set c = Rng.Find(CDbl(Me.TextBox1.Value), LookIn:=xlValues)

JOB75 a dit que ça plantait donc j'ai retiré
Donc est ce que mon appli FONCTIONNE
C'est ma QUESTION

 

[job75]

Bonjour herve62, laurent950

JOB75 a dit que ça plantait donc j'ai retiré

Je n'ai fait que dire une évidence CDbl(Me.TextBox1.Value) plante si TextBox1 est vide ou non numérique.

Utiliser donc Set c = Rng.Find(TextBox1, LookIn:=xlValues)

A+

 

[herve62]

Bon j'ai tout revu , et après une vingtaine de test tout est OK ( dans une utilisation normale )
Donc je voudrais être sûr que cela fonctionne chez d'autres