Suppression de colonnes nommées VBA

Résolu

Lils_Bis Messages postés 57 Date d'inscription Statut Membre Dernière intervention -
Lils_Bis Messages postés 57 Date d'inscription Statut Membre Dernière intervention - 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 !

Afficher la suite

A voir également:

Suppression de colonnes nommées VBA
Forcer suppression fichier - Guide
Comment faire des colonnes sur word - Guide
Classer par ordre alphabétique excel plusieurs colonnes - Guide
Suppression compte gmail - Guide
Inverser deux colonnes excel - Guide

3 réponses

Réponse 1 / 3

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 714

Bonjour,

cette variable

wsSheet1

n'est pas definie !!!!!

Lils_Bis Messages postés 57 Date d'inscription Statut Membre Dernière intervention

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 17277 Date d'inscription Statut Membre Dernière intervention 1 714 > Lils_Bis Messages postés 57 Date d'inscription Statut Membre Dernière intervention

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 16602 Date d'inscription Statut Contributeur Dernière intervention 3 314

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 Statut Membre Dernière intervention

Merci beaucoup à vous deux !

Discussions similaires

Erreur d'exécution 13 Incompatibilité de type

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

Votre réponse

Discussions similaires