Discussion :

[PICHOUX]

Bonsoir,
Depuis plus de 10 ans j'utilise ce code :

Code :

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

1
2
3
4
5
Range("A5:A9").Select
.....
.....
If Selection.Interior.ColorIndex = 40 Then Patient = "Ma"
If Selection.Interior.ColorIndex = 37 Then Patient = "Mi"

La plage sélectionnée est toujours unicolore (ColorIndex = 37, ou 40)
Or depuis aujourd'hui ce code plante, sans aucun message d'erreur.
J'ai constaté que si la sélection ne comporte qu'une seule cellule, le code fonctionne.
Idem, après avoir arrêté et redémarré le PC.

Est-ce normal ?
VBA a-t-il été modifié lors d'une mise à jour récente ?
Ou est-ce mon PC qui déraille ?
Merci pour votre aide.

[Pierre Fauconnier]

Salut.

A priori, le code donné fonctionne sur une plage de plusieurs cellules, que cette plage soit monochrome ou polychrome...

Dès lors, il serait intéressant de voir ce qui se cache entre la ligne 1 et la ligne 4 du code que tu as fourni. Il y a de fortes chances que ta sélection soit modifiée en cours de route.

Astuce, juste avant l'exécution de la ligne qui poste problème, tester la nature de Selection dans le fenêtre d'exécution avec Typename(selection) pour vérifier que Selection pointe bien vers un objet Range.

[PICHOUX]

Merci Pierre Fauconnier pour votre soutien.
Oui, j'ai bien vérifié que la sélection était toujours présente, et j'ai même essayé le code ci-dessous .

Code :

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

1
2
3
Range("A5:A9").Select
If Selection.Interior.ColorIndex = 40 Then Patient = "Ma"
If Selection.Interior.ColorIndex = 37 Then Patient = "Mi"

et ça plantait toujours.

Et puis j'ai ensuite trouvé une solution qui consiste à ramener la sélection à la 1ère cellule :

Code :

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

If Selection.Resize(1,1).Interior.ColorIndex = 40 Then Patient = "Ma"

et là ça marchait.

Et puis ce matin, après quelques utilisations du tableau en cause, tout s'est remis à fonctionner normalement (sans "Resize").
Mon VBA ou mon PC doit avoir qq passages "grippaux" ! ! !
Merci encore pour votre attention.