Discussion :

[les4c77]

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

[JOHN14]

Salut.

Il manque une référence à Feuille.

il faut réessayer avec

Code :

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

1
2
3
4
5
6
7
8
 
For Each Feuille In ActiveWorkbook.Worksheets
 
   With Feuille
      If .[d20].Value = 0 Then .[c20,d20,f20].Delete
   End With
 
Next Feuille

[Invité]

Bonjour,

Vous êtes certain de vouloir supprimer les cellules :

Code :

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

If [d20].Value = 0 Then [c20,d20,f20].Delete

autrement dit décaler les cellules ?

ou de supprimer le contenu, auquel cas c'est :

Code :

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

If [d20].Value = 0 Then [c20,d20,f20].ClearContents

[les4c77]

oui jean jacques je voulais supprimer les cellueles ce qui comme vous le dites permet de decaler les cellules.

J'ai essayé avec la réponse de JOHN14 cela fonctionne super

Merci à tous les deux