Bonjour,

Je voudrais effectuer une boucle qui permettrait de lire dans toutes les feuilles du classeur une cellule et si la valeur de celle-ci est égale à zéro alors supprimer d'autre cellule voir ci-dessous le code, mais celui-ci ne fonctionne pas je pense qu'il me manque quelque chose. Merci pour votre aide.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
 Sub rechvide  
Dim Feuille As Worksheet
 
For Each Feuille In ActiveWorkbook.Worksheets
 
If [d20].Value = 0 Then [c20,d20,f20].Delete
 
Next Feuille
End Sub