Discussion :

[ramdir2]

Bonjour à tous

J'aimerais par une formule en VBA effacer (DELETE) des cellules en fonction d'une condition présente dans une autre cellule.

EX: Si A1 n'est pas égal a la Lettre A ou la lettre B alors les cellules K et L et M et P sont effacées.

Merci d'avance de votre aide

Ramdir

[benny95]

Bonjour,
on pourrait essayer cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub Button1_Click()
Select Case Range("B4").Value
Case "A", "B"
    Range("K4").ClearContents
    Range("L4").ClearContents
    Range("M4").ClearContents
    Range("P4").ClearContents
End Select
End Sub

Je ne sais pas si tu souhaites simplement effacer le contenu de tes cellules ou bien les supprimer. Dans ce second cas, il faudrait choisir si tu veux décaler vers la gauche ou vers le haut les cellules de remplacement. De plus, cela va décaler les références des cellules à supprimer. On verra selon tes besoins.
Let us know.
Cordialement.
Benoit