Efface le contenu cellule avec condition VBA
Mimi59
-
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Je suis débutante sur VBA et j'aimerai faire une macro qui efface le contenu d'une séléction de cellule si la valeur d'une cellule est égale à 0 (résultat d'une formule);
Or meme quand celle ci est non nulle, celles ci sont effacées,je capte pas pourquoi;
Voici ma macro:
Sub efface_var()
Dim MaValeur As Integer
MaValeur = Sheets("Date").Range("g10").Value
If MaValeur = 0 Then
Sheets("Synthèse").Select
Range("p32:p40,s32:s40,p90:p110,s90:s110,u90:u110,p152:p192,s152:s192,u152:u192").ClearContents
End If
End Sub
Merci pour votre aideLire la suite
Je suis débutante sur VBA et j'aimerai faire une macro qui efface le contenu d'une séléction de cellule si la valeur d'une cellule est égale à 0 (résultat d'une formule);
Or meme quand celle ci est non nulle, celles ci sont effacées,je capte pas pourquoi;
Voici ma macro:
Sub efface_var()
Dim MaValeur As Integer
MaValeur = Sheets("Date").Range("g10").Value
If MaValeur = 0 Then
Sheets("Synthèse").Select
Range("p32:p40,s32:s40,p90:p110,s90:s110,u90:u110,p152:p192,s152:s192,u152:u192").ClearContents
End If
End Sub
Merci pour votre aideLire la suite
A voir également:
- Effacer contenu cellule vba
- Excel compter cellule couleur sans vba - Guide
- Fusionner deux cellules excel en gardant le contenu - Guide
- Effacer tout - Guide
- Effacer contenu iphone - Guide
- Proteger cellule excel - Guide
3 réponses
Bonjour,
Essaie ainsi :
Bonne nuit
Essaie ainsi :
Sub efface_var()
Dim Plage As Range
Set Plage = Sheets("Synthèse").Range("p32:p40,s32:s40,p90:p110,s90:s110,u90:u110,p152:p192,s152:s192,u152:u192")
If Sheets("Date").Range("g10").Value = 0 Then Plage.ClearContents
End Sub
Bonne nuit
