Efface le contenu cellule avec condition VBA

Fermé

Mimi59 - 4 juil. 2011 à 00:31
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 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

A voir également:

Effacer le contenu d'une cellule sous condition vba
Excel cellule couleur si condition texte - Guide
Aller à la ligne dans une cellule excel - Guide
Excel compter cellule couleur sans vba - Guide
Comment effacer une page sur word - Guide
Verrouiller cellule excel - Guide

3 réponses

Réponse 1 / 3

cousinhub29 Messages postés 882 Date d'inscription mardi 10 août 2010 Statut Membre Dernière intervention 25 avril 2024 334
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

Réponse 2 / 3

mimi59
4 juil. 2011 à 11:04

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

Réponse 3 / 3

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
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

Discussions similaires

Excel : colorer une cellule sous condition d'une autre ?

Excel VBA : Récupérer la valeur d'une cellule

Changer la couleur d'une cellule selon son texte

Excel si cellule contient texte alors...

Discussions similaires

Newsletters