VBA supprimer des colonnes si une case est vide

Bonjour

Après une dure journée, je cherche à supprimer 2 colonnes (D et E) si la case D6 est vide.

j'ai codé comme ceux-ci mais cela ne fonctionne pas

Code:

---

1 2 3 4 5 6

Sheets("v_RA").Select If MsgBox("Avez vous enlever le séparateur des millier(Ctrl H sur la colonne [Qté non livrée] . par rien) ?", vbYesNo, "Demande de confirmation") = vbYes Then If IsEmpty("D6") = True Then Columns("D:D").Select Selection.Delete Shift:=xlToLeft End If

---

Pouvez vous m'aider?

Merci d'avance.

Svp

Sebastien

Salut,

pour la cellule vide

Code:

---

If IsEmpty(Range("D6")) Then

---

puis la suppression tu peux passer par

Code:

---

Range("D6").EntireColumn.Delete xltoleft

---

Attention, IsEmpty() est une fonction piégeuse.
Si ta cellule contient une fonction qui renvoie "", IsEmpty() renverra False (y compris si tu ajoute Value à ton Range). Je viens de retester.
Pour qu'il renvoie True, il faut que la cellule soit réellement vide.

Il vaut mieux parfois utiliser un simple Range("D6") = "".

Merci cela à l'air de fonctionner.