Microsoft 365 suppression colonne en double

[Kimosahbe]

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]

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

 

[mapomme]

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 :

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]

Bonjour à tous

Une autre version

@Phil69970

 

[Kimosahbe]

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 !