Efface le contenu cellule avec condition VBA [Fermé]

Signaler
-
Messages postés
16367
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
19 janvier 2021
-
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

Messages postés
579
Date d'inscription
mardi 10 août 2010
Statut
Membre
Dernière intervention
11 novembre 2018
296
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

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 63550 internautes nous ont dit merci ce mois-ci

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!!!
Messages postés
16367
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
19 janvier 2021
3 112
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