Suppression de colonnes nommées VBA
Résolu
Bonjour,
Mon problème est le suivant :
J'ai deux colonnes que je souhaiterais supprimer. Celle-ci sont nommées (dans la première ligne de mon fichier EXCEL) "CLE" et "DATE_SAISIE". Je travaille avec VBA.
J'ai essayé avec ce code :
Dim ListeCol() As Variant
Dim k As Integer
ListeCol = Array("CLE", "DATE_SAISIE")
For k = 0 To (UBound(ListeCol) - 1)
wsSheet1.Cells.Find(What:=ListeCol(k)).EntireColumn.Delete
Next k
Mais il m'affiche l'erreur d'exécution 424 : objet requis
Si quelqu'un pourrait me corriger mon code ou m'en trouver une alternative, je suis tout à fait preneur :)
Merci d'avance !
Mon problème est le suivant :
J'ai deux colonnes que je souhaiterais supprimer. Celle-ci sont nommées (dans la première ligne de mon fichier EXCEL) "CLE" et "DATE_SAISIE". Je travaille avec VBA.
J'ai essayé avec ce code :
Dim ListeCol() As Variant
Dim k As Integer
ListeCol = Array("CLE", "DATE_SAISIE")
For k = 0 To (UBound(ListeCol) - 1)
wsSheet1.Cells.Find(What:=ListeCol(k)).EntireColumn.Delete
Next k
Mais il m'affiche l'erreur d'exécution 424 : objet requis
Si quelqu'un pourrait me corriger mon code ou m'en trouver une alternative, je suis tout à fait preneur :)
Merci d'avance !
3 réponses
-
Merci beaucoup à vous deux !
-
ContributeurBonjour
For k = 0 To UBound(ListeCol)
Sheets(1).Cells.Find(What:=ListeCol(k)).EntireColumn.Delete
Next k
-
Bonjour,
cette variablewsSheet1
n'est pas definie !!!!!-
-
@Lils_BisRe,
Au plus simple:Sub test() Dim ListeCol Dim k As Integer ListeCol = Array("CLE", "DATE_SAISIE") ' index de 0 a x: ici 1 With Worksheets("feuil1") For k = 0 To UBound(ListeCol) .Cells.Find(What:=ListeCol(k)).EntireColumn.Delete Next k End With End Sub
-
