Discussion :

[River974]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Neutthsch]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub XXX()
...
End Sub

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[River974]

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