Discussion :

[dl5555]

Bonjour,
N'étant pas un doué en la matière, je fais appel à votre aide.
Je cherche à faire en sorte qu'une macro s’exécute automatiquement si une condition au sien d'une plage de cellules est remplie.
- Si une des cellules C9:C100 affiche le mot "FIN" alors la macro "macro1" s’exécute automatiquement.
D'vance je vous remercie de votre aide.

[aziz1015]

Bonjour,
N'étant pas un doué en la matière, je fais appel à votre aide.
Je cherche à faire en sorte qu'une macro s’exécute automatiquement si une condition au sien d'une plage de cellules est remplie.
- Si une des cellules C9:C100 affiche le mot "FIN" alors la macro "macro1" s’exécute automatiquement.
D'vance je vous remercie de votre aide.

Bonjour,

Dans l'Explorateur de Projets VBA, juste sous la liste des feuilles de calcul, double clique sur "ThisWorkbook".
Dans la liste déroulante (Général), choisis Workbook (tu n'as pas d'autre choix). Par défaut, VBA te met un squelette de macro qui s'exécutera automatiquement à l'ouverture de ton classeur. Tu y mets ce que tu veux...

T'auras un code comme ça

Code :

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

1
2
3
Private Sub Workbook_Open()
     MsgBox "Ca marche"
 End Sub

ou encore

Code :

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

1
2
3
4
5
6
Sub Auto_Open() ' déclanchement à l'ouverture du classeur
 
Sheets("nm de la feuille").Select
+ instructions 
 
End Sub

Cordialement

[GastonLagaffe25]

Bonjour,

Tu peux également utiliser sur le même principe l’événement de la feuille qui contient la cellule à surveiller.
Tu trouveras des exemples sur le forum...

Code :

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

1
2
3
Private Sub Worksheet_Change(ByVal Target As Range)
'...
End Sub

[dl5555]

Bonjour,

Tu peux également utiliser sur le même principe l’événement de la feuille qui contient la cellule à surveiller.
Tu trouveras des exemples sur le forum...

Code :

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

1
2
3
4
5
Private Sub Worksheet_Change(ByVal Target As Range)
If ???????? then
call macro1
End If
End Sub

- Merci pour la réponse. C'est ce que je veux, mais c'est au niveau des points d'interrogation que je ne sais pas quoi mettre malgré mes recherches sur le forum.
- Je dois surveiller non pas UNE mais une PLAGE de cellules (A9:A100)

[Menhir]

- Si une des cellules C9:C100 affiche le mot "FIN" alors la macro "macro1" s’exécute automatiquement.

Perso, je n'aurais pas mis la macro évènementielle dans ThisWorkbook mais plutôt dans l'objat Excel correspondant à la feuille.
Tu y places la macro suivante :

Code :

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

1
2
3
4
5
6
7
Private Sub Worksheet_Change(ByVal Target as Range)
    If Target.Column <> 3 or Target.Row < 9 or Target.Row > 100 Then Exit Sub
    If Target.Value <> "FIN" Then Exit Sub
 
    ' Là, tu peux placer l'action à faire ou la macro à lancer
 
End Sub

[dl5555]

- Merci pour la réponse. C'est ce que je veux, mais c'est au niveau des points d'interrogation que je ne sais pas quoi mettre malgré mes recherches sur le forum.
- Je dois surveiller non pas UNE mais une PLAGE de cellules (A9:A100)

Correction : cellules (C9:C100)[

[GastonLagaffe25]

Et bien c'est le même principe car "Target" et du type "Range" !
...et via les propriétés de "Target" tu identifie ta zone et le comportement que tu souhaites.

@Menhir: j'avais fait comme toi mais je pense que la solution ci-dessous correspond plus au besoin...à voir.

Code :

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

1
2
3
4
5
6
Private Sub Worksheet_Change(ByVal Target As Range)
  Dim i As Integer
  For i = 8 To 100
     If Cells(i, 3).Value = "Fin" Then Call macro1
  Next i
End Sub

[Menhir]

D'accord avec toi.
Il faudrait peut-être aussi mettre un UCase sur la valeur à vérifier.

[dl5555]

Perso, je n'aurais pas mis la macro évènementielle dans ThisWorkbook mais plutôt dans l'objat Excel correspondant à la feuille.
Tu y places la macro suivante :

Code :

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

1
2
3
4
5
6
7
Private Sub Worksheet_Change(ByVal Target as Range)
    If Target.Column <> 3 or Target.Row < 9 or Target.Row > 100 Then Exit Sub
    If Target.Value <> "FIN" Then Exit Sub
 
    ' Là, tu peux placer l'action à faire ou la macro à lancer
 
End Sub

A priori ça fonctionne mais uniquement si je rentre la condition "FIN" MANUELLEMENT, alors que dans mon cas la condition "FIN" est le résultat automatique d'une fonction déja dans les cellules C9:C100 genre : "=si(a1=1;"FIN";"")

[dl5555]

Et bien c'est le même principe car "Target" et du type "Range" !
...et via les propriétés de "Target" tu identifie ta zone et le comportement que tu souhaites.

@Menhir: j'avais fait comme toi mais je pense que la solution ci-dessous correspond plus au besoin...à voir.

Code :

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

1
2
3
4
5
6
Private Sub Worksheet_Change(ByVal Target As Range)
  Dim i As Integer
  For i = 8 To 100
     If Cells(i, 3).Value = "Fin" Then Call macro1
  Next i
End Sub

Cette solution semble bien fonctionner. Un énorme merci à GastonLagaffe25



Je m'excuse de relancer le sujet, mais en fait je voudrais reproduire la même chose pour les plages de cellules H9:H100 et M9:100 ceci pour la même condition c à d lorsque qu'une cellule des plages concernées indique "FIN"
D'avance merci

[GastonLagaffe25]

@Menhir

Il faudrait peut-être aussi mettre un UCase sur la valeur à vérifier.

Effectivement !
C'est mieux.

Sinon,

Code :

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

If Target.Value <> "FIN" Then Exit Sub

Il me semble que tu peux avoir un cas ou "Target" est une plage et pas une cellule...dans ce cas, on aura peut-être une erreur.

A priori ça fonctionne mais uniquement si je rentre la condition "FIN" MANUELLEMENT, alors que dans mon cas la condition "FIN" est le résultat automatique d'une fonction déjà dans les cellules C9:C100 genre : "=si(a1=1;"FIN";"")

Il me semble que dans ce cas, on regarde uniquement les cellules modifiées et avec une formule ce n'est pas le cas...

[Menhir]

dans mon cas la condition "FIN" est le résultat automatique d'une fonction déja dans les cellules C9:C100 genre : "=si(a1=1;"FIN";"")

Tu aurais du le signaler dans ta demande.