Supprimer colonne ne contenant pas Résolu/Fermé

Question

Bonjour a tous,

J'aimerais supprimer toutes les colonnes de ma feuille excel dont les titres (noms des colonnes sur la ligne 1) ne sont pas "link", "title", "pagemappersonlocation", "pagemapPersonRole", "Pagemappersonorg"

Je n'arrive pas à trouver la bonne macro ni adapter celle qui s'y rapprochent.

Merci d'avance! 

M.

jordane45 · Answer

Bonjour,

Tu fais une boucle sur tes colonnes (en parant de la dernière)

' Boucle de la colonne  nbColonnes  jusqu'à la colonne N°1
 ' nbColonnes  = Nombre de colonnes de ton tableau.
 for i=1 to nbColonnes Step -1
  '// la suite du code

Next 'Fin de la boucle

 et pour chaque colonne tu regardes si le titre est égale à une des valeurs que tu veux supprimer.

If titre = "link" or titre="title" ...  Then

 Si oui... tu supprime la colonne  
 
   Columns(i).EntireColumn.Delete

ccm81 · Answer

Bonjour

Un exemple à adapter
http://www.cjoint.com/c/FDspu1gx7SQ 

Cdlmnt

ccm81 · Answer

Je voudrais pouvoir, via une macro, supprimer toutes les colles SAUF celles ayant pour titre "link", "title",   "pagemappersonlocation", "pagemapPersonRole", 
OK, tu avais une seule ligne à modifier

' liste des titres des colonnes à garderConst listetitres = "titre2,titre4,titre8"Const lititres = 1Const codeb = 1Public Sub OK()Dim co As Long, cofin As LongApplication.ScreenUpdating = Falsecofin = Cells(lititres, Columns.Count).End(xlToLeft).ColumnFor co = cofin To codeb Step -1  If InStr(1, listetitres, Cells(lititres, co).Value) = 0 Then Columns(co).DeleteNext coEnd Sub
Cdlmnt