Discussion :

[Fabert]

Bonjour,


Je cherche à supprimer toutes les colonnes inutiles d'une base de données qui en contient 100 et dont les entêtes de colonne se trouvent en ("A1:A100").

Je dois donc supprimer 90 colonnes et ne laisser que les 10 colonnes utiles.

Pour ce faire, je teste le nom de chaque entête de colonne. Si l'entête de colonne se retrouve dans MaPlage (qui contient les 10 noms de colonne que je veux conserver), alors ne rien faire, sinon supprimer la colonne et tester le nom de la suivante.

Mais je patauge un peu ...


Quelqu'un aurait-il un début de solution ?

Merci d'avance.

Fabert

[piotr76]

Bonjour

Perso, je testerai la présence du nom de la colonne via un cellule Excel avec le résultat dans une autre cellule ("MonTest")via une formule du genre :
=SI(ESTNA(EQUIV(MaRecherche;MaPlage;0));FAUX;VRAI)

Donc :

Début Sub

Pour toutes les entêtes de colonnes

Chargement du nom de colonne cherchée dans une cellule nommée "MaRecherche"
(Récupération du résultat dans dans la cellule "MonTest")
Si "MonTest"=FAUX Alors Sélection de la colonne

Fin Pour
Effacement de la sélection

Fin Sub

Cordialement

[eriiic]

Bonjour,

une façon :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub suppCol()
    Dim dict, lig As Long, col As Long, pl() As Variant
    Set dict = CreateObject("Scripting.Dictionary")
    pl = [maPlage].Value
    For lig = 1 To UBound(pl)
        If pl(lig, 1) <> "" Then dict(pl(lig, 1)) = pl(lig, 1)
     Next lig
    Application.ScreenUpdating = False
    For col = Cells(1, Columns.Count).End(xlToLeft).Column To 1 Step -1
        If Not dict.exists(Cells(1, col).Value) Then Columns(col).Delete
    Next col
End Sub

eric

[patricktoulon]

Bonjour

au premier abord la question semble simple mais c'est un peu ambiguë

quand tu parle d'entête du parle bien de la 1 ere cellule de colonne ??

si c'est ca c'est pas bien compliqué


ta liste est en colonne A de 1 a 100

ta base de donne c'est le reste si j'ai bien compris

donc on testera la 1 cellule de chaque colonne
je n'ai pas tester mais ca doit faire un truc comme ca

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub test()
With ActiveSheet
Application.ScreenUpdating = False
For I = 2 To .Cells(1, Columns.Count).End(xlToLeft).Column
If .Range("A1:A100").Find(.Cells(1, I)) Is Nothing Then
.Columns(I).Delete Shift:=xlToLeft
End If
next
End With
End Sub

[Fabert]

Un grand merci à chacun pour vos solutions.


Je pense pouvoir trouver mon bonheur grâce à vos réponses.

Voilà, j'ai utilisé la solution de Patricktoulon que j'ai légèrement modifiée afin de tester le nom des colonnes et de les supprimer de la droite vers la gauche.

J'ai tenté de comprendre la solution de Eriiic qui était probablement bonne aussi, mais j'avoue que je n'ai pas tout compris ;-(

Merci en tout cas à chacun pour votre aide.

Fabert

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub test()
 
    With ActiveSheet
 
        For I = .Cells(1, Columns.Count).End(xlToLeft).Column To 1 Step -1
 
            If Sheets("Feuil2").Range("A1:C1").Find(.Cells(1, I)) Is Nothing Then
 
                .Columns(I).Delete Shift:=xlToLeft
 
            End If
 
        Next
 
    End With
 
End Sub

[eriiic]

En fait dans un premier temps je met en mémoire les titres à supprimer (dictionary) puis je supprime.
eric