Suppression de colonne si vide

manuSP Messages postés 80 Statut Membre -  
manuSP Messages postés 80 Statut Membre -
Bonjour,

Est ce qu'il est possible de supprimer des colonnes lorsqu'elles sont vides ?
j'ai 10 checkbox qui envoient des informations dans des colonnes excel de M à U. Est ce qu'il serait possible de supprimer par exemple la colonne M si je coche la checkbox9 qui envoie une info dans la colonne N ...?

Private Sub CheckBox8_Click()
Range("M3").Value = CheckBox8.Caption
End Sub

Private Sub CheckBox9_Click()
Range("N3").Value = CheckBox9.Caption
End Sub
Private Sub CheckBox10_Click()
Range("O3").Value = CheckBox10.Caption
End Sub

Private Sub CheckBox11_Click()
Range("Q3").Value = CheckBox11.Caption
End Sub

Private Sub CheckBox12_Click()
Range("V3").Value = CheckBox12.Caption
End Sub

Private Sub CheckBox13_Click()
Range("P3").Value = CheckBox13.Caption
End Sub

Private Sub CheckBox14_Click()
Range("R3").Value = CheckBox14.Caption
End Sub

Private Sub CheckBox15_Click()
Range("S3").Value = CheckBox15.Caption
End Sub

Private Sub CheckBox16_Click()
Range("T3").Value = CheckBox16.Caption
End Sub

Private Sub CheckBox17_Click()
Range("U3").Value = CheckBox17.Caption
End Sub

Merci
A voir également:

2 réponses

lermite222 Messages postés 9042 Statut Contributeur 1 191
 
Bonjour,
    Columns("M").Delete Shift:=xlToLeft

A+
0
manuSP Messages postés 80 Statut Membre
 
bonjour,

Merci de votre réponse, mais en fait je voudrais changer ma façon de faire.
Donc j'ai un bouton de commande qui valide mon formulaire de saisi et j'aimerais que se soit lui qui supprime les colonnes (de M à U) inutilisées.
0