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
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
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
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" <guy72@bonjour.tous> a écrit dans le message de news:
eyRolagIJHA.4464@TK2MSFTNGP04.phx.gbl...
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
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
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
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" <cpapounospamthanx@lapostenospamthanks.net> a écrit dans le message
de news: OPxqBPhIJHA.4240@TK2MSFTNGP03.phx.gbl...
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" <guy72@bonjour.tous> a écrit dans le message de news:
eyRolagIJHA.4464@TK2MSFTNGP04.phx.gbl...
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
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