[XL-2003] Executer une macro dès que 4 cellules sont vides [Résolu]

[zazrun]

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

[casefayere]

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

[zazrun]

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 ?

[mercatog]

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

[casefayere]

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

[zazrun]

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