Suppression de colonnes nommées VBA

Résolu
Lils_Bis Messages postés 65 Statut Membre -  
Lils_Bis Messages postés 65 Statut Membre -
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 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Bonjour,

    cette variable 
    wsSheet1
    n'est pas definie !!!!!
    0
    1. Lils_Bis Messages postés 65 Statut Membre
       
      Pourrais-tu me corriger mon code car je ne comprends pas bien ta réponse...
      Je suis comme qui dirait un "puceau" de VBA...
      0
      1. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717 > Lils_Bis Messages postés 65 Statut Membre
         
        Re,

        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
        0
  2. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    Bonjour 
    For k = 0 To UBound(ListeCol)
      Sheets(1).Cells.Find(What:=ListeCol(k)).EntireColumn.Delete
    Next k

    0
  3. Lils_Bis Messages postés 65 Statut Membre
     
    Merci beaucoup à vous deux !
    0

Discussions similaires

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

9 réponses