Changer couleur dans VBA

Le
Guy72
Bonjour,
Pour avoir un fond de couleur différentes, il faut une macro différente à
chaque fois.
Fond2.Fond3Fond4etc.
Est-il possible d'avoir une macro qui change QUE LE N° de la couleur dans la
macro Fond ?

Private Sub Fond_Click()
Range("G10:G40,I10:I40,K10:K40,M10:M40,O10:O40," _
& "F11:P11,F13:P13,F15:P15,F17:P17,F19:P19," _
& "F21:P21,F23:P23,F25:P25,F27:P27," _
& "F29:P29,F31:P31,F33:P33,F35:P35,F37:P37,F39:P39" _
).Interior.ColorIndex = 21
Range("A1").Activate
End Sub

Merci de votre aide


--
Cordialement
Guy
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
papou
Le #17369931
Bonjour
Sans problème, il faut passer les paramètres dans une macro.
Exemple :
Sub Fond(rPlage As Range, iNoCouleur As Integer)
rPlage.Interior.ColorIndex = iNoCouleur
End Sub

Ensuite tu appelles comme ceci par exemple :
Sub Macro1()
Fond Range("G1:G4"), 4
End Sub

Cordialement
Pascal

"Guy72"
Bonjour,
Pour avoir un fond de couleur différentes, il faut une macro différente à
chaque fois.
Fond2....Fond3...Fond4...etc.
Est-il possible d'avoir une macro qui change QUE LE N° de la couleur dans
la macro Fond ?

Private Sub Fond_Click()
Range("G10:G40,I10:I40,K10:K40,M10:M40,O10:O40," _
& "F11:P11,F13:P13,F15:P15,F17:P17,F19:P19," _
& "F21:P21,F23:P23,F25:P25,F27:P27," _
& "F29:P29,F31:P31,F33:P33,F35:P35,F37:P37,F39:P39" _
).Interior.ColorIndex = 21
Range("A1").Activate
End Sub

Merci de votre aide


--
Cordialement
Guy



Guy72
Le #17371581
Bonjour papou,
Je suis d'accord, ça fait la même chose avec mon exemple.
Mais ce que je voudrais savoir: si avec une macro "Sub change" (par
exemple),
et que cette macro change le N° qui se trouve dans le code "Sub Fond"
--
Cordialement
Guy
"papou" de news:
Bonjour
Sans problème, il faut passer les paramètres dans une macro.
Exemple :
Sub Fond(rPlage As Range, iNoCouleur As Integer)
rPlage.Interior.ColorIndex = iNoCouleur
End Sub

Ensuite tu appelles comme ceci par exemple :
Sub Macro1()
Fond Range("G1:G4"), 4
End Sub

Cordialement
Pascal

"Guy72"
Bonjour,
Pour avoir un fond de couleur différentes, il faut une macro différente à
chaque fois.
Fond2....Fond3...Fond4...etc.
Est-il possible d'avoir une macro qui change QUE LE N° de la couleur dans
la macro Fond ?

Private Sub Fond_Click()
Range("G10:G40,I10:I40,K10:K40,M10:M40,O10:O40," _
& "F11:P11,F13:P13,F15:P15,F17:P17,F19:P19," _
& "F21:P21,F23:P23,F25:P25,F27:P27," _
& "F29:P29,F31:P31,F33:P33,F35:P35,F37:P37,F39:P39" _
).Interior.ColorIndex = 21
Range("A1").Activate
End Sub

Merci de votre aide


--
Cordialement
Guy







Publicité
Poster une réponse
Anonyme