Problème de sélection de plusieurs cellules non contiguës

[Magic_Doctor]

Bonjour,

Dans une feuille j'ai plusieurs cellules nommées non contiguës :
"Quid1", "Quid2", "Quid3" & "Quid4"

Suivant les circonstances, 3 de ces 4 cellules doivent être mises en forme. Il existe donc plusieurs combinaisons.
Plutôt que de devoir à chaque fois écrire toutes les mises en forme, j'ai tenté d'écrire une macro paramétrable :

Sub MiseEnFormeCellules(x As Byte, y As Byte, z As Byte)

Range("Quid" & x, "Quid" & y, "Quid" & z).Select
.
.
.

End Sub


que j'appellerai par la suite. Par exemple :

call MiseEnFormeCellules(1, 2, 3)
call MiseEnFormeCellules(1, 2, 4)
etc.

Et bien, ¡caramba encore raté!, ça ne marche absolument pas !

Merci d'avance pour tout coup de main et une bonne journée à tous.

 

[mutzik]

Re : Problème de sélection de plusieurs cellules non contiguës

bonjour, syntaxe non correcte

Range("Quid" & x, "Quid" & y, "Quid" & z).Select
Range("Quid" & x &", Quid" & y & ", Quid" & z).Select

c'est l'enregistreur de macro qui me l'a dit (très utile comme truc, celui là ...

 

[Magic_Doctor]

Re : Problème de sélection de plusieurs cellules non contiguës

Merci mutzik, ça marche.