Discussion :

[Bouboudlf]

Bonjour,

J'ai un grand nombre de fichiers Excel contenant beaucoup d'informations dont je n'ai pas besoin.

Je souhaiterais supprimer les colonnes qui ne me sont pas utiles, les colonnes utiles ont toutes la particularité d'avoir la première cellule remplie en vert clair.

Mais je ne sais pas comment faire et j'aurais donc besoin de votre aide.

Petit contexte:
J'utilise la formule CONCATENER dans la colonne description, pour y regrouper et formater (en HTML) les informations se trouvant dans les cellules des colonnes en vert clair.
Comme les fichiers ne sont pas identiques, je ne peux pas insérer directement ma formule.
J'ai rempli les cellules en vert clair, de deux manières: manuellement et en utilisant "rechercher, remplacer".

Voici en PJ un fichier équivalent à ceux que je dois formater.
J'ai biensur réduit le nombre de colonnes et j'ai enlevé les données confidentielles du fichier.

Un grand merci pour votre aide.

[a_diard]

Bonjour, par exemple

Code :

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

1
2
3
4
5
6
7
8
Sub toto()
a = Range("A1").CurrentRegion.Columns.Count
For numcolumm = a To 1 Step -1
If Cells(1, numcolumm).Interior.ColorIndex <> 43 Then
 Columns(numcolumm).Delete Shift:=xlToLeft
End If
Next
End Sub

si ca ne marche pas,
Pour verifier le color index tu peux utiliser ceci.

Code :

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

MsgBox Cells(1, numcolumm).Interior.ColorIndex

[Franc]

Bonsoir, voici une approche légèrement différente, au lieu de tester la couleur, je teste s'il n'y en a pas et si c'est le cas on supprime la colonne. On évite ainsi les problèmes de code couleur.

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
18
19
20
Sub SupprimerColonnesFondsBlancs()
    Dim ws As Worksheet
    Dim lastColumn As Long
    Dim i As Long
 
    ' Spécifiez la feuille de travail à traiter
    Set ws = ThisWorkbook.Sheets("Nom_de_la_feuille") ' Remplacez "Nom_de_la_feuille" par le nom de votre feuille
 
    ' Déterminez la dernière colonne utilisée dans la feuille
    lastColumn = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
 
    ' Parcourez les colonnes de droite à gauche (de la dernière à la première)
    For i = lastColumn To 1 Step -1
        ' Vérifiez si la première cellule de la colonne a un fond blanc
        If  ws.Cells(1, i).Interior.ColorIndex = xlNone Then
            ' Supprimez la colonne si les conditions sont remplies
            ws.Columns(i).Delete
        End If
    Next i
End Sub

[Bouboudlf]

Merci beaucoup a_diard !!!!!