Macro Noircir une cellule

Bonsoir à tous,

Je cherche à créer une Macro pour générer une fonction qui me permette de remplir la cellule renseignée dans la fonction en noir.

J'ai créer un bout de code en enregistrant une Macro, mais lorsque j'utilise la fonction j'ai une erreur #VALEURS.

Voici la fonction que j'ai :

Function Noir(Cellule As Range)
    Range(Cellule).Select
    With Cellule.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Function

Est -ce quelqu'un peut me dire pourquoi cela ne fonctionne pas et ce que je dois faire pour arriver à mes fins.

Merci pour votre attention

Bonjour,

Ce que connais des fonctions ... elles demandent un appel du genre ....

Remarque que j'ai enlevé la 1re ligne de la fonction....

Function Noir(Cellule As Range)
  With Cellule.Interior
    .Pattern = xlSolid
    .PatternColorIndex = xlAutomatic
    .ThemeColor = xlThemeColorLight1
    .TintAndShade = 0
    .PatternTintAndShade = 0
  End With
End Function

Sub testtes()
  If ActiveCell.Value < 5 Then ActiveCell = Noir(ActiveCell)
End Sub

Gelinotte

Bonsoir,

Cette salle habitude de semer des select partout.

De plus comme dit GELINOTE Sub Noir conviendrait mieux...

Sub Noir(Cellule As Range)
    With Cellule.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub
Sub test()
Noir [A2]
End Sub

mais... pour Noir ceci conviendrai aussi bien :

Sub Noir(Cellule As Range)
Cellule.Interior.ColorIndex = 1
End Sub
Sub test()
Noir [A2]
End Sub

A+

Bonjour à tous,

Merci à vous d'avoir prêter attention à mon sujet.

J'ai essayé vos 2 techniques mais malheuresement je souhaiterais appeler la fonction à partir d'une formule écrite dans une cellule, du genre (=SI($S19="N", Noir($A19),CONCATENER("S",P19-8)).

Avec un Sub je ne crois que je puisse le faire ? Enfin je n'en sais rien mais si j'écris Noir(...) dans ma formule ça n'est pas reconnue.

J'ai enlevé le Select.

Mais pour le moment j'ai toujours le même soucis qui me retourne #VALEUR!

Si quelqu'un peut m'aider...

Merci pour votre attention.

Bonjour,

sous excel , le rôle d'une fonction (personnaliser ou non) est de retour une valeur , on ne peut en aucun cas changer l'environnement de la feuille (couleur format....).

pour cela nous avons les macros (affecter à des bouton ou des raccourci clavier ou rien)

Bonjour,

Ah ben si tu nous dis tout...

Les fonctions personnalisées ne créent pas d'action chez les copines, elles se bornent à récuperer une valeur de renvoie pour leur propre compte. Tu as les mises en forme conditionnelles pour cela.

A+

Bonjour,

Pour ta formule, tu pourrais utiliser la MFC (mise ne forme conditionnel) pour le noir en A19 ( =S19="N") et une formule du genre si =SI(S19<>"N";"S"&(P19-8);"")

Sinon, il faut passer par du code Vba.

Gelinotte.