Discussion :

[ghosty04]

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 :

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

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

[laetitia]

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

Code :

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

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

[aalex_38]

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 :

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

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 :

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

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