efface le contenu cellule avec condition VBA Fermé

Question

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 


Configuration: Windows 7 / Internet Explorer 8.0

cousinhub29 · Answer

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

mimi59 · Answer

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!!!

michel_m · Answer

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

Efface le contenu cellule avec condition VBA

3 réponses

Discussions similaires