Discussion :

[sebcar]

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 :

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

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

[Jean-Philippe André]

Salut,

pour la cellule vide

Code :

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

If IsEmpty(Range("D6")) Then

puis la suppression tu peux passer par

Code :

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

Range("D6").EntireColumn.Delete xltoleft

[Menhir]

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") = "".

[sebcar]

Merci cela à l'air de fonctionner.