Suppression de colonnes nommées VBA

Résolu
Lils_Bis -  
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 !

3 réponses

  1.  f894009
    Bonjour,

    cette variable 
    wsSheet1
    n'est pas definie !!!!!
    1. Lils_Bis Auteur
      Pourrais-tu me corriger mon code car je ne comprends pas bien ta réponse...
      Je suis comme qui dirait un "puceau" de VBA...
    2. f894009
      @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
  2. michel_m Contributeur
    Bonjour 
    For k = 0 To UBound(ListeCol)
      Sheets(1).Cells.Find(What:=ListeCol(k)).EntireColumn.Delete
    Next k

    Discussions similaires

    VBA excel : résoudre problème de capacité.
    Juan Pedro

    9 réponses
    Grouper des colonnes côtes à côtes
    Paftice

    6 réponses