Suppression de colonnes avec critères

[Attila Mordoron]

Salut,

je suis complement debutant en ce qui concerne les macros Excel et faut avouer que la doc Excel soit elle est mal faite soit je sais pas comment l utiliser !! 😱

Voila mon souci :

j'ai un fichier excel avec certaines colonnes inutiles et je voudrais les supprimer.
Par exemple supprimer toutes les colonnes dont la première cellule ne contient pas la valeur : titre ou nom ou adresse.

Le reste consiste en un deplacement de colonnes mais ca je vais encore chercher, je suis pas loin de la soluce ....


Si vous avez un petit code pour faire cette petite suppression, grand Merci !!! 🙂

 

[jeromegmc]

Salut,

Dis moi ce que tu penses de ça:

Sub supp_colonne()

Dim colonne As Range
Dim MaPlage As Range
Dim j, compteur, compteurmax

Set MaPlage = Application.InputBox(prompt:='Sélectionnez une plage de colonnes' _
, Title:='Plage de colonnes', Left:=500, Top:=300, Type:=8)

compteur = 1
compteurmax = MaPlage.Columns.Count
For Each colonne In MaPlage

j = colonne.Column
If compteur <= compteurmax Then
If Cells(1, j) <> 'titre' And Cells(1, j) <> 'nom' And Cells(1, j) <> _
'adresse' Then
Cells(1, j).Delete Shift:=xlToLeft
compteur = compteur + 1
End If
End If
Next
End Sub

A+