vba Exécuter automatiquement une macro si condition est remplie.

Bonjour,
Je m'excuse de relancer une discussion que j'avais mis comme RÉSOLU

Je réédite le sujet :

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'avance je vous remercie de votre aide.

J'ai reçu une réponse de GastonLagaffe25 qui me convient tout à fait (voir ci-dessous)

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


Ce que je voudrais au final c'est que je puisse répéter la même chose sur deux autres plages de cellules : H9:H100 et M9:M100 avec bien sur la même condition c à d si un des cellules affiche le mot "FIN".

Nota : Je précise pour information que la condition "FIN" provient du résultat automatique d'une fonction déjà dans les cellules C9:C100; H9:H100; M9:M100 genre : "=si(a1=1;"FIN";"")

Merci pour votre aide

Salut,

Utiliser une boucle pour parcourir les valeurs n'est pas recommandé.
Utilise plutôt la fonction Find().

Un exemple de code avec cette fonction:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Option Explicit   Private Sub Worksheet_Change(ByVal Target As Range) Dim rngC As Range Set rngC = Me.Cells.Find("FIN", , , xlWhole) If rngC Is Nothing Then Exit Sub Else If Intersect(rngC, Range("C9:C100,H9:H100,M9:M100")) Is Nothing Then Else Call macro1 End If End If End Sub

---

Citation:

---

Envoyé par SmallFlower

Salut,

Utiliser une boucle pour parcourir les valeurs n'est pas recommandé.
Utilise plutôt la fonction Find().

Un exemple de code avec cette fonction:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Option Explicit   Private Sub Worksheet_Change(ByVal Target As Range) Dim rngC As Range Set rngC = Me.Cells.Find("FIN", , , xlWhole) If rngC Is Nothing Then Exit Sub Else If Intersect(rngC, Range("C9:C100,H9:H100,M9:M100")) Is Nothing Then Else Call macro1 End If End If End Sub

---

---

Toutes mes excuses mais j'ai omis une précision importante dans ma demande c'est que lorsque la condition est remplie dans chaque plage de cellules ce n'est pas la même macro qui s'exécute. "Macro1" pour la plage C9:C100; "Macro2" pour la plage H9:H100 et "Macro3" pour la plage M9:M100.

Je pense que tu es en mesure d'adapter le code à ton besoin.

Il y a une autre chose que tu ne dis pas : est-ce que ta macro doit se déclencher pour chaque cellule égale à FIN ou doit-elle se déclencher une seule fois si au moins une cellule est égale à FIN

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Integer   For i = 9 To 100 If Cells(i, 3).Value = "FIN" Then Call macro1 Next i   For i = 9 To 100 If Cells(i, 8).Value = "FIN" Then Call macro2 Next i   For i = 9 To 100 If Cells(i, 14).Value = "FIN" Then Call macro3 Next i   End Sub

---

Citation:

---

Envoyé par Menhir

Il y a une autre chose que tu ne dis pas : est-ce que ta macro doit se déclencher pour chaque cellule égale à FIN ou doit-elle se déclencher une seule fois si au moins une cellule est égale à FIN

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Integer   For i = 9 To 100 If Cells(i, 3).Value = "FIN" Then Call macro1 Next i   For i = 9 To 100 If Cells(i, 8).Value = "FIN" Then Call macro2 Next i   For i = 9 To 100 If Cells(i, 14).Value = "FIN" Then Call macro3 Next i   End Sub

---

---

Chaque macros doivent s'exécuter une seule fois si au moins une cellule des plages respectives est égale à FIN. (Dés que la première cellule de la plage concernée remplie la condition)

J'ai opté pour la solution de Menhir. Bien que l'exécution soit un tantinet long, çà fonctionne. Pour mon cas ce n'est pas un problème. Merci à tous pour votre aide..

Bonjour,
Il y a sans doute quelque chose qui m'échappe mais pourquoi dot-on parcourir toutes les cellules d'une plage alors qu'en principe on intercepte le changement de valeur d'une cellule ou d'une plage de cellules de la feuille.
Parcourir l'objet Target avec le contrôle (If Not Application.Intersect(Target, Range(laPlage)) Is Nothing) n'est-il pas suffisant

D'accord avec ce que dit Philippe, c'est certainement pour cela que l’exécution prend un peu de temps (pas énormément), mais je ne connais rien en matière de code et syntaxe. Je ne sais faire (hélas) que du copier-coller et si cela fonctionne je m'en contente. S'il y a une possibilité de faire plus simple et plus rapide je suis preneur. Mais comme l'a fait Menhir (que je remercie au passage) il faut que se soit tout écrit car pour moi, comme je l'ai dit, toute cette syntaxe c'est un peu du "charabia".

Citation:

---

Chaque macros doivent s'exécuter une seule fois si au moins une cellule des plages respectives est égale à FIN. (Dés que la première cellule de la plage concernée remplie la condition)

---

Dans ce cas, le code devrait être :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Integer   For i = 9 To 101 If Cells(i, 3).Value = "FIN" Then Exit For Next i If i<>101 Then Call macro1   For i = 9 To 101 If Cells(i, 3).Value = "FIN" Then Exit For Next i If i<>101 Then Call macro2   For i = 9 To 101 If Cells(i, 3).Value = "FIN" Then Exit For Next i If i<>101 Then Call macro3   End Sub

---

Citation:

---

Envoyé par Philippe Tulliez

Il y a sans doute quelque chose qui m'échappe mais pourquoi dot-on parcourir toutes les cellules d'une plage alors qu'en principe on intercepte le changement de valeur d'une cellule ou d'une plage de cellules de la feuille.

---

Parce que le Change ne se déclenche que sur les cellules modifiées "à la main" et que, dans le cas présent, la valeur FIN résulte de la valeur d'une fonction de la modification d'une autre cellule. C'est une modification indirecte, d'où la nécessité de cette scrutation.

La dernière solution proposée par Menhir ne semble pas fonctionner. Dès que j'installe le code et que j'entre la première donnée le tableau excel semble tourner en boucle, impossible de stopper le processus je suis obligé de fermer excel par le gestionnaire de tache (ou alors après une longue attente).

J'ai oublié de changer les numéros de colonnes dans les Cells quand j'ai fait les copier/coller des boulces For to.

Je m'en était aperçu et j'ai fait la modification le problème reste inchangé.