Suppression de colonnes nommées VBA

Résolu/Fermé

Lils_Bis Messages postés 57 Date d'inscription lundi 4 avril 2016 Statut Membre Dernière intervention 28 décembre 2020 - 6 avril 2016 à 10:09
Lils_Bis Messages postés 57 Date d'inscription lundi 4 avril 2016 Statut Membre Dernière intervention 28 décembre 2020 - 6 avril 2016 à 11:14

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 !

A voir également:

Suppression de colonnes nommées VBA
Forcer suppression fichier - Guide
Word colonnes indépendantes - Guide
Suppression page word - Guide
Suppression compte instagram - Guide
Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA

3 réponses

Réponse 1 / 3

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
6 avril 2016 à 10:46

Bonjour,

cette variable

wsSheet1

n'est pas definie !!!!!

Lils_Bis Messages postés 57 Date d'inscription lundi 4 avril 2016 Statut Membre Dernière intervention 28 décembre 2020
6 avril 2016 à 10:51

Pourrais-tu me corriger mon code car je ne comprends pas bien ta réponse...
Je suis comme qui dirait un "puceau" de VBA...

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701 > Lils_Bis Messages postés 57 Date d'inscription lundi 4 avril 2016 Statut Membre Dernière intervention 28 décembre 2020
6 avril 2016 à 11:07

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

Réponse 2 / 3

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
6 avril 2016 à 11:04

Bonjour

For k = 0 To UBound(ListeCol)
  Sheets(1).Cells.Find(What:=ListeCol(k)).EntireColumn.Delete
Next k

Réponse 3 / 3

Lils_Bis Messages postés 57 Date d'inscription lundi 4 avril 2016 Statut Membre Dernière intervention 28 décembre 2020
6 avril 2016 à 11:14

Merci beaucoup à vous deux !

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Excel VBA : Derniere colonne utilisée

Erreur d'exécution 13 Incompatibilité de type

VBA : Range avec références variables..

VBA erreur 1004

Discussions similaires

Newsletters