Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Changer couleur dans VBA

Changer couleur dans VBA

2 réponses
Avatar
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
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
papou
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" a écrit dans le message de news:

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



Avatar
Guy72
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" a écrit dans le message
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" a écrit dans le message de news:

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