Discussion :

[MiXinG]

Bonjour à tous,
Je rentre tout de suite dans le vif du sujet:

Je souhaite effectuer une mise en forme spéciale dès que l'utilisateur modifie une cellule. Cette mise en forme se fait via une macro "mise_en_evidence" qui prend en paramètre l'adresse de la cellule.

J'utilise la macro suivante:

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Target.Address = Range("A5").Address Then
    Run ("mef")
Else
    Run ("mise_en_evidence"), Target
End If
 
End Sub

Mon problème est que je souhaite appliquer cette mise en forme UNIQUEMENT lorsque la valeur de la cellule change.
Or actuellement, même si on double clique sur la cellule et que l'on fait aucune modif, la macro est appliquée.

Si vous avez une solution, je suis preneur!

[aalex_38]

Bonjour à tous,

Tu peux sauvegarder la valeur de la cellule et ensuite la comparer, soit tu mets la valeur dans une autre cellule, soit tu ajoutes une plage nommée.

Un exemple pour créer une plage nommée :

Code :

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

1
2
3
4
5
6
7
8
9
Sub Creation_Var1() 
 
Dim MaVar As Long 
MaVar = 10 
ThisWorkbook.Names("var1").Delete 
ThisWorkbook.Names.Add Name:="var1", RefersToR1C1:=MaVar 
 
msgbox [var1] 
End Sub

[MiXinG]

Merci beaucoup pour l'idée!!
Du coup j'ai modifié le code comme suit:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Public ValeurInit As String
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    ValeurInit = Range(Target.Address).Value
End Sub
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Target.Address = Range("A5").Address Then
    Run ("mef")
Else
    If (Range(Target.Address).Value <> ValeurInit) Then
        Run ("mise_en_evidence"), Target
    End If
End If
 
End Sub

Et ça fonctionne.
Merci beaucoup!
Bonne journée!

[aalex_38]

Oui les variables publiques peuvent aussi être une solution, par contre cela ne fonctionne pas si par exemple tu fermes et réouvre ton classeur, à la différence d'une info placée dans une cellule (par exemple dans une feuille cachée) ou d'une plage nommée.
Tout dépend si on veut pouvoir garder ou pas la donnée.