Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel [Newbie] problème macro....

[Newbie] problème macro....

6 réponses
Avatar
MH
Bonjour,
Je veux créer une macro sous Excel 2000 qui remplirait le fond d'une
cellule, préalablement sélectionnée, en jaune.

Code :
Function Macro1(a As Range)

a.Select

With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With

End Function

Mais ce code ne fonctionne pas et je ne comprends pas pourquoi.
Merci de m'aider.
Signaler un problème avec ce contenu

6 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
jps
et un truc comme cela, ça ne t'irait pas (car je vois que là tu as créé une
Function et que je ne pense pas que ce soit le bon truc mais je peux aussi
me tromper) :

Sub Macro2()
ActiveCell.Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End Sub

HTH
jps

"MH" a écrit dans le message de
news:41aa617c$0$10359$
Bonjour,
Je veux créer une macro sous Excel 2000 qui remplirait le fond d'une
cellule, préalablement sélectionnée, en jaune.

Code :
Function Macro1(a As Range)

a.Select

With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With

End Function

Mais ce code ne fonctionne pas et je ne comprends pas pourquoi.
Merci de m'aider.




Avatar
MH
Merci pour ta réponse, mais ce n'est pas ce que je recherche.

Pour Info :
Dans mon code, la cellule cible est représentée par "a".
Mais, je ne m'y prends sûrement pas de la bonne façon.
Avatar
jps
alors je ne sais pas...
attendons que les grands se réveillent, MH...
jps

"MH" a écrit dans le message de
news:41aa69c3$0$26445$
Merci pour ta réponse, mais ce n'est pas ce que je recherche.

Pour Info :
Dans mon code, la cellule cible est représentée par "a".
Mais, je ne m'y prends sûrement pas de la bonne façon.




Avatar
michdenis
Bonsoir Mh,

Une fonction ne peut que retourner une VALEUR suite à un TRAITEMENT quelconque... tu ne peux pas intervenir et modifier
la couleur de fond d'une cellule avec une fonction personnalisée dédiée à une cellule de la feuille de calcul ou à une
procédure. Au mieux, tu peux retourner la couleur de fond observée dans la cellule.


De plus, cette fonction mettra à jour ses données seulement lors que la feuille sera calculée et non pas au moment où tu
modifieras la couleur de fond de la cellule.
'----------------------
Function Couleur(Rg As range)
Application.Volatile
if Rg.cells.count > 1 then
Couleur = "#Valeur!"
end if
couleur = Rg.Interior.ColorIndex
End Function
'----------------------

Seules les procédures peuvent intervenir au niveau du formatage des cellules de la feuille de calcul.


Salutations!




"MH" a écrit dans le message de news: 41aa617c$0$10359$
Bonjour,
Je veux créer une macro sous Excel 2000 qui remplirait le fond d'une
cellule, préalablement sélectionnée, en jaune.

Code :
Function Macro1(a As Range)

a.Select

With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With

End Function

Mais ce code ne fonctionne pas et je ne comprends pas pourquoi.
Merci de m'aider.
Avatar
MH
Merci pour cette réponse claire et concise.
Avatar
Daniel.M
Bonsoir,

Denis t'a expliqué la fonction.
Je te répond au niveau d'une Sub : tu sélectionnes les cellules que tu veux
colorer et tu invoques MacroCouleur

Sub MacroCouleur (a As Range)
a.Interior.ColorIndex = 6
End Sub

Salutations,

Daniel M.


"MH" wrote in message
news:41aa617c$0$10359$
Bonjour,
Je veux créer une macro sous Excel 2000 qui remplirait le fond d'une
cellule, préalablement sélectionnée, en jaune.

Code :
Function Macro1(a As Range)

a.Select

With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With

End Function

Mais ce code ne fonctionne pas et je ne comprends pas pourquoi.
Merci de m'aider.