Re bonjour à tous
J'ai une condition que je répète une bonne vingtaine de fois et qui ne fonctionne pas :
Dim A
Le code s'exécute même si première condition est fausse, j'ai essayé tout un tas de syntaxe et rien n'y fait.
Je pense que le problème vient des ListBox car si je fais un test dans un module les conditions fonctionnent parfaitement.
Encore mes maigres connaissances qui me jouent un tour ou est-ce un mystère de l'informatique
Je joint le lien du fichier et J'explique un peu car ça commence à être une vraie usine à gaz : Le problème est dans l'UserForm5, onglet déboursé pour la tâche, Bouton renseigner le planing. L'userform s'appel depuis la feuille Programme des travaux avec le bouton Rendement et sous détail
http://cjoint.com/?3Hmqo4gWdff
Merci pour votre aide toujours précieuse
Didier
J'ai une condition que je répète une bonne vingtaine de fois et qui ne fonctionne pas :
Dim A
Code:
A = ListBox11.Value
If Range("A45:A39").Find(A, LookIn:=xlValues, lookat:=xlWhole) Is Nothing Then
Range("A45").End(xlUp).Offset(1, 0) = A
Le code s'exécute même si première condition est fausse, j'ai essayé tout un tas de syntaxe et rien n'y fait.
Je pense que le problème vient des ListBox car si je fais un test dans un module les conditions fonctionnent parfaitement.
Code:
A ="Essais"
If Range("A45:A39").Find(A, LookIn:=xlValues, lookat:=xlWhole) Is Nothing Then
Range("A45").End(xlUp).Offset(1, 0) = A
Encore mes maigres connaissances qui me jouent un tour ou est-ce un mystère de l'informatique
Je joint le lien du fichier et J'explique un peu car ça commence à être une vraie usine à gaz : Le problème est dans l'UserForm5, onglet déboursé pour la tâche, Bouton renseigner le planing. L'userform s'appel depuis la feuille Programme des travaux avec le bouton Rendement et sous détail
http://cjoint.com/?3Hmqo4gWdff
Merci pour votre aide toujours précieuse
Didier