Executer une macro dès que 4 cellules sont vides

Bonsoir,

Je souhaiterai executer la macro (MAZ) dès que 4 cellules (B3:B6) sont vides.

Voici le code que j'ai rentré pour l'instant dans "ThisWorkbook", et qui ne fonctionne pas.

Code:

---

1 2 3 4 5

Private Sub W() If Worksheets("formulaire saisie").Range("B3:B6").Value = "" Then Application.Run "MAZ" End If End Sub

---

Faut-il saisir dans "ThisWorkbook" ou dans la feuille concernée?

Merci de votre aide. Xavier

il faudrait déjà savoir à quel moment ton instruction doit s'executer :
click sur un bouton ?, après la saisie dans une cellule ?.......

sinon essayes comme ça :

dans la feuille concernée ("formulaire saisie"), peut-etre avec un bouton dans cette feuille :

Code:

---

1 2 3 4 5 6 7

Private Sub CommandButton1_Click() dim x as integer x = Application.WorksheetFunction.CountIf(Range("B3:B6"), "") if x = 4 Then MAZ 'si maz est une macro End If End Sub

---

Justement j'aimerais que la macro s'exécute sans avoir besoin d'appuyer sur un bouton.

Dès que les 4 cellules (B3:B6) sont vides, la macro MAZ s'exécute. Est-ce possible ?

Mettre dans le module de ta feuille

Code:

---

1 2 3 4

Private Sub Worksheet_Change(ByVal Target As Range)   If Application.CountBlank(Range("B3:B6")) = 4 Then MAZ End Sub

---

essayes ce code dans la feuille concernée

Code:

---

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

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 And Target.Row > 2 And Target.Row < 7 Then If Application.WorksheetFunction.CountIf(Range("B3:B6"), "") = 4 Then MAZ 'si maz est une macro End If End If   End Sub   Sub MAZ() 'code au hasard MsgBox "c'est fini, il n'y a plus rien" End Sub

---

donc quand tu saisis dans B3, B4, B5 ou B6 le calcul s'execute

je n'ai pas vu le code à Mercatog que tu peux adapter

Merci à vous pour vos réponses, le problème est résolu.