Suppression de colonnes nommées VBA [Résolu/Fermé]

Signaler
Messages postés
57
Date d'inscription
lundi 4 avril 2016
Statut
Membre
Dernière intervention
28 décembre 2020
-
Messages postés
57
Date d'inscription
lundi 4 avril 2016
Statut
Membre
Dernière intervention
28 décembre 2020
-
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

Messages postés
15739
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
21 avril 2021
1 483
Bonjour,

cette variable
wsSheet1
n'est pas definie !!!!!
Messages postés
57
Date d'inscription
lundi 4 avril 2016
Statut
Membre
Dernière intervention
28 décembre 2020

Pourrais-tu me corriger mon code car je ne comprends pas bien ta réponse...
Je suis comme qui dirait un "puceau" de VBA...
Messages postés
15739
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
21 avril 2021
1 483 >
Messages postés
57
Date d'inscription
lundi 4 avril 2016
Statut
Membre
Dernière intervention
28 décembre 2020

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
Messages postés
16436
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
21 avril 2021
3 164
Bonjour
For k = 0 To UBound(ListeCol)
Sheets(1).Cells.Find(What:=ListeCol(k)).EntireColumn.Delete
Next k

Messages postés
57
Date d'inscription
lundi 4 avril 2016
Statut
Membre
Dernière intervention
28 décembre 2020

Merci beaucoup à vous deux !