Modifier la mise en forme via une fonction

Bonjour,

je commence mon apprentissage en VBA et je me heurte à un problème depuis quelques jours.

Je souhaite changer dynamiquement la mise en forme d'une cellule selon le contenu d'une autre.

J'ai commencé une macro qui inscrit une formule dans la cellule (my_lign + 21, my_coll).
Cette formule vérifie le contenu de la cellule (my_lign + 4, my_coll), si ce contenu est égal à une valeur elle lance la fonction hachure() qui hachure la cellule (my_lign + 21, my_coll), sinon elle lance la fonction nettoie() qui vide cette même cellule.

Soit la ligne:

Code:

---

Cells(my_lign + 21, my_coll).Formula = "=SI(" & Cells(my_lign + 4, my_coll).Address(RowAbsolute:=False, ColumnAbsolute:=False) & "=""SMS"",hachure(),nettoie())"

---

J'accède effectivement bien à mes fonctions, et si je change plusieurs fois le contenu de la cellule my_lign+4, les fonctions hachure() et nettoie() sont bien lancés plusieurs fois car les msgbox apparaissent bien. Le problème c'est qu'à l'intérieur de mes fonctions je ne peux quasi rien faire, je peux juste lancer une MsgBox et changer la valeur de ma cellule en faisant par exemple nettoie="tralala". Impossible de faire par exemple Cells(34,53) = 45 ou encore hachure.Interior.Pattern = xlUp

Code:

---

1 2 3 4 5 6

Public Function hachure() hachure = "" ' vide bien la case MsgBox "hachure" ' affiche bien une box avec le message hachure.Interior.Pattern = xlUp 'ne fait rien MsgBox "fin" ' n'apparait même pas End Function

---

Salut,

Bon déjà balise ton code, ça augmente la lisibité

Ensuite est ce que tu as pensé à faire de la mise en forme conditionnelle qui a l'air de bien répondre à ta demande.

Ensuite pour ton problème de fonction :
Ca ne marche pas car tu mélanges plusieurs choses

T'as déterminé une fonction hachure() que tu appelles si certaines conditions sont remplies.
Une fonction c'est une opération mathématique ou autre comme +, -, SOMME()...
Donc dans ta formule si la condition est remplie, la cellule renvoie le résultat de l'opération hachure() soit "" (plus des msgbox qui sont autorisés dans une fonction).
Sinon opération nettoie()

En simple la fonction ne fait que renvoyer le résultat d'une opération.

Si tu veux plus qu'une opération mathématique, il faut utiliser une procédure Sub

Code:

---

1 2 3

Sub XXX() ... End Sub

---

Et si tu veux qu'elle s'applique à la modification d'une cellule alors :

Code:

---

1 2 3 4 5 6 7 8 9

Sub Worksheet_Change(ByVal Target As Range) 'Ceci est une procédure spécifique qui s'active à tout changement du classeur If Not Application.Intersect(Target, Range("B2")) Is Nothing Then 'On lui demande de travailler que si la cellule B2 est modifiée (à adapter à ton besoin) If Range("B2")="SMS" 'ta condition ... ' ton code Else 'Si "B2" n'est pas égal à SMS ... ' ton code End If End If End Sub

---

Tu n'as plus besoin d'avoir de formule dans ta cellule (my_lign + 21, my_coll), vu que les conditions sont intégré dans la procédure.

Ha merci cela fait exactement ce que je veux sans surchargé la feuille !