Will-e-coyote
XLDnaute Occasionnel
Bonjour el forum !
Voila, je voulais savoir si quelqu'un avait deja rencontré un code qui arretait de s'exécuter sans raison apparente. Vous fournir le fichier exemple ne servira pas a grand chose. Ce que je trouve bizarre, c'est que la meme commande fonctionne normalement dans un cas mais pas dans l'autre.
La macro, de type évenementielle (SelectionChange) contient le code suivant qui pose probleme :
Si l'on se trouve dans le premier cas, le code s'execute normalement (il y a une suite) mais lorsque l'on se trouve dans le second la procedure s'arrete apres l'execution de cette ligne.
Je dois dire que j'avais déja rencontré ce type de probleme dans cette meme procedure mais que j'ai contourné le problème en changeant légèrement le code. Par exemple le code suivant qui avait le meme comportement inattendu:
a été remplacé par le code suivant qui lui ne pose pas problème :
(Dans ce 2e cas on voit la selection de la cellule a copier en pointillé. Moins sexy mais ca marche)
Bien entendu j'ai essayé de trouver une autre solution au problème du Target.Locked mais rien ne fonctionne....
Merci par avance pour vos idées et expériences vécues....
Will
Voila, je voulais savoir si quelqu'un avait deja rencontré un code qui arretait de s'exécuter sans raison apparente. Vous fournir le fichier exemple ne servira pas a grand chose. Ce que je trouve bizarre, c'est que la meme commande fonctionne normalement dans un cas mais pas dans l'autre.
La macro, de type évenementielle (SelectionChange) contient le code suivant qui pose probleme :
Code:
If Target.Column = 31 Then Target.Locked = Not IsEmpty(Target.Offset(0, -4))
If Target.Column = 20 Then Target.Locked = Not IsEmpty(Target.Offset(0, -1))
Je dois dire que j'avais déja rencontré ce type de probleme dans cette meme procedure mais que j'ai contourné le problème en changeant légèrement le code. Par exemple le code suivant qui avait le meme comportement inattendu:
Code:
Target.Offset(-1, 0).Copy Destination:= Target
Code:
Target.Offset(-1, 0).Copy
Target.PasteSpecial xlPasteFormulas
Bien entendu j'ai essayé de trouver une autre solution au problème du Target.Locked mais rien ne fonctionne....
Merci par avance pour vos idées et expériences vécues....
Will