Efface le contenu cellule avec condition VBA

Fermé
Mimi59 - 4 juil. 2011 à 00:31
michel_m Messages postés 16582 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 27 novembre 2022 - 4 juil. 2011 à 12:38
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


3 réponses

cousinhub29 Messages postés 588 Date d'inscription mardi 10 août 2010 Statut Membre Dernière intervention 7 novembre 2022 315
4 juil. 2011 à 01:17
Bonjour,

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
1
Merci mais même comme ça qd la valeur de la cellule G10 est >0, la plage de valeurs est effacée, je comprends pas ce qui cloche. ça devrait pourtant marcher!!!Je pète un cable, je dois rendre mon fichier mais la macro déconne!!!
0
michel_m Messages postés 16582 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 27 novembre 2022 3 283
4 juil. 2011 à 12:38
Bonjour

je viens d'essayer ta macro: pas de problèmes

vérifie peut être si G10 est bien numérique et n'est pas une date...

autrement, je ne vois pas
0