Suppression de colonne si vide
manuSP
Messages postés
80
Statut
Membre
-
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
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:
- Suppression de colonne si vide
- Forcer suppression fichier - Guide
- Déplacer colonne excel - Guide
- Trier colonne excel - Guide
- Supprimer page word vide - Guide
- Colonne word - Guide