La fonction selection de l'objet X a échoué

Bonjour,

J'ai souvent un problème avec la fonction 'selection', qui lors de l'exécution lance une erreur avec un message du style "La fonction selection de l'objet Range a échoué". Ca arrive quand j'utilise du code du genre:

Code:

---

1 2 3 4 5 6

Sheets("Feuille3").Range("A3:C300").Select With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter End With

---

Avez vous une idée quelle est la cause de ce problème, et pourquoi il n'est pas rencontré à chaque execution du programme.

merci d'avance et à bientôt

bonjour ghosty04 le forum peut être comme cela!!!

Code:

---

1 2 3 4

With Sheets("Feuille3").Range("A3:C300") .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter End With

---

Citation:

---

Avez vous une idée quelle est la cause de ce problème, et pourquoi il n'est pas rencontré à chaque execution du programme.

---

Comme te l'a montré Laetitia, il est quasiment toujours possible d'eviter les select dans le code, il y a de nombreux commentaires la dessus dans le forum.
Pour plusieurs raisons: les select simulent une selection utilisateur, c'est comme ça que fonctionne l'enregistreur de macro. Mais cela ralenti largement le code.

Par exemple pourquoi selectionner si on veut simplement affecter :

Code:

---

1 2 3 4 5

Range("A1").select selection = "Test" ' ici la selection est inutile : Range("A1") = "Test"

---

Quand a ta question le problème vient sans doute du fait que ton classeur n'est pas actif au moment de l'exécution.

Code:

---

1 2 3 4

With ThisWorkbook.Worksheets("NomdelaFeuille" ) .range("A1") = "Test" ' reste du code end with

---