Microsoft 365 suppression colonne en double

Kimosahbe · 19 Février 2022

Bonjour à tous,

Je viens solliciter votre aide, sur un fichier sur lequel je travaille, je souhaite supprimer via un programme vba des colonnes en double.

Lorsqu'il y a une colonne en double elle se termine par un "._C"(pour plus de visibilité je les ai tous mis sur fond gris dans la pj).

L'idée est de supprimer la colonne précédente qui ne contient aucune donnée

J'ai mis dans le fichier que vous trouverez en pj ,un code vba mais il ne fonctionne pas vraiment.

Si vous pouvez jeter un coup d'oeil ça serait top

Merci pour vos retours

yal · 19 Février 2022

Bonjour
Sauf que les fichiers .xlsx ne peuvent pas contenir de code.

mapomme · 19 Février 2022

Bonsoir @Kimosahbe , @yal

Un autre code qui peut-être lancé plusieurs fois de suite sans détruire de données car on modifie le nom de l'en-tête de la colonne restante.

Cliquer sur le bouton Hop!

Le code dans module1 :

VB:

Sub Suppr()
Dim t As ListObject, j&, enTete$
   Set t = Sheets("Feuil2").Range("a1").ListObject
   For j = t.ListColumns.Count To 2 Step -1
      If Right(t.HeaderRowRange(1, j), 3) = "._C" Then
         enTete = Replace(t.HeaderRowRange(1, j), "._C", "")
         t.ListColumns(j - 1).Delete
         t.HeaderRowRange(1, j - 1) = enTete
      End If
   Next j
End Sub

Phil69970 · 19 Février 2022

Bonjour à tous

Une autre version

@Phil69970

Kimosahbe · 20 Février 2022

Bonsoir à tous,

J'ai maintenant l'embarras du choix en terme de solution. Merci beaucoup, d'avoir pris de votre temps pour m'aider sur ce problème.

Excellente soirée !

Microsoft 365 suppression colonne en double

Kimosahbe

XLDnaute Nouveau

Pièces jointes

yal

XLDnaute Occasionnel

Pièces jointes

mapomme

XLDnaute Barbatruc

Pièces jointes

Phil69970

XLDnaute Barbatruc

Pièces jointes

Kimosahbe

XLDnaute Nouveau

Discussions similaires