Discussion :

[AidezMoiSvp]

Bonsoir,

J'aurais aimé savoir si on pouvait faire la chose suivante en vba :

Code :

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

=SI(A1="Vrai";C3=1 et C8=2;C3:C16="")

Merci

[mercatog]

Code :

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

1
2
3
4
5
6
7
8
Sub Macro()
If Range("A1") = "vrai" Then
   Range("C3") = 1
   Range("C8") = 2
Else
   Range("C3:C16").ClearContents
End If
End Sub

C'est une procédure et non une fonction qui peut être appelée dans la feuille

[AidezMoiSvp]

Je voudrais que la macro s'exécute quand ma cellule change de valeur (vrai ou faux).

J'ai donc inséré ce code :

Code :

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

1
2
3
4
5
6
7
8
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("C5")="vrai" Then
   Range("C9") = 1
   Range("C16") = 2
Else
   Range("C9:C77").ClearContents
End If
End Sub

La macro se lance bien quand la cellule change de valeur mais dans la barre de fonction le mot "vrai" clignote plein de fois très rapidement et excel redémarre.

[mercatog]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$5" Then
   Application.EnableEvents = False
   If Target.Value = True Then
      Range("C9") = 1
      Range("C16") = 2
   Else
      Range("C9:C77").ClearContents
   End If
   Application.EnableEvents = True
End If
End Sub

[AidezMoiSvp]

merci beaucoup !