Effacer si valeur cellule > 30

Bonjour à tous,

Mon problème est extrêmement simple mais je ne trouve pas de solution...

J'aimerais effacer le contenu des cellules en colonne B si celle-ci sont supérieur à 30. De la ligne 1 à la ligne 50.

Cordialement

Bonjour,

Mets un filtre sur la colonne pour les valeurs > 30 puis sélectionnes-les et supprimes-les (Suppr) et enlèves le filtre

Je suis pas contre le filtre mais voilà

> Je tire un classeur tous les mois et le nombre de ligne dans la colonne B varie

> J'ai toujours qu'une seule valeur que je veux supprimer (Entre la cellule B30 et B50) ça dépend des mois mais c'est toujours une seule valeur (c'est un total)

J'aimerais une macro qui me supprime ce total à chaque fois que je la lance

C'est pas que j'ai la flemme de supprimer ce total tous les mois c'est qu'après j'ai automatisé tout un tas de calcul et le total viens se mettre dedans et fausse mes résultats.

Comment supprimer CETTE valeur en COLONNE B qui est toujours supérieur à 30.

Si j'utilise les filtres et l'enregistreur de macro j'effacerai toujours la même cellule, Or certains mois ça pourra être B36, B37 ou B44

Re,

Avec :

Option Explicit
Sub EffacerNombreSuperieurA30EnColonneB()
Dim rng As Range
Dim cel As Range
  With Worksheets("DATA")
    Set cel = .Cells(.Rows.Count, "B").End(xlUp)
    Set rng = .Range("B2", cel)
    For Each cel In rng.Cells
      If cel.Value > 30 Then cel.ClearContents
    Next cel
  End With
End Sub

C'est parfait ! Merci beaucoup !