Discussion :

[xave]

Bonjour,

Me revoilà pour vous demander de l'aide à nouveau:

J'ai deux feuilles dans un classeur excel qui contiennent chacune les mêmes colonnes au départ.
La première feuille est ensuite remplie avec des données en colonne.
A ce stade, j'aurai besoin de supprimer dans la seconde feuille les colonnes pour lesquelles il n'y a pas de données dans la première feuille.

Un petit exemple:

Feuille 1:
Nom Prénom Adresse Tél
DUPOND Jerome rue d'ici
DURANT Pascal Pas là

La feuille 2 a la même structure mais pas de données:

Nom Prénom Adresse Tél

Or dans la feuille 1 la colonne Tél est vide, donc je voudrai carrément modifier la structure de la Feuille 2 pour qu'elle devienne:

Nom Prénom Adresse

Vous pouvez me dire comment faire ça en VBA?

[tirex28]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
Sub SuppColonne()
    'Si la colonne ne contient qu'une valeur (le titre)
    If WorksheetFunction.CountA(Worksheets("Feuil1").Columns(4)) = 1 Then
        'On supprime le contenu et le formats
        Worksheets("Feuil2").Columns(4).Clear
        'Ou on supprime les cellules
        'Worksheets("Feuil2").Columns(4).EntireColumn.Delete
    End If
End Sub

A adapter bien sur.

Cordialement,

Tirex28/

[xave]

Super, merci Tirex, je vais de ce pas l'adapter et voir ce que ça donne

[xave]

Alors voilà ce que ça donne adapté à mon cas:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub SuppColonne()
    NB_COL = 7
    For i = 1 To NB_COL
        'Si la colonne ne contient qu'une valeur (le titre)
        If WorksheetFunction.CountA(Worksheets("Feuil1").Columns(i)) = 1 Then
            'On supprime le contenu et le formats
            Worksheets("Feuil2").Columns(i).Delete
            'Ou on supprime les cellules
            'Worksheets("Feuil2").Columns(4).EntireColumn.Delete
        End If
    Next i
End Sub

Ca marche pas mal, y ajuste un petit truc qui coince, ce que je vais essayer d'expliquer avec un exemple:

Mail Nom Pré Adr Tel
dupond Jérôme rue d'ici
Durant Pascal Pas là
Albert Jean 2 rue

Dans cet exemple les colonnes mail et Tel sont vides, je m'attends donc à ce qu'après exécution de la macro il ne me reste que les colonnes Nom Prénom et Adresse
Or voilà ce il me reste: Nom Prénom Adresse Tél

[Edit]
En fait c'est même plus sioux que ça...

J'ai passé NB_COL à 10 et j'ai ajouté des colonnes dans la deuxième feuille

exemple: Mail Nom Prénom Adresse Tél col6 col7 col8

Quand j'exécute la macro, il me reste:
Nom Prénom Adresse Tél col7 col8

[/Edit]

[ouskel'n'or]

Comme ton code supprime la colonne, j'écrierais la procédure autrement

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub SuppColonne()
    NB_COL = 7
    For i = NB_COL  To 1 step -1
        'Si la colonne ne contient qu'une valeur (le titre)
        If WorksheetFunction.CountA(Worksheets("Feuil1").Columns(i)) = 1 Then
            'On supprime le contenu et le formats
            Worksheets("Feuil2").Columns(i).Delete
            'Ou on supprime les cellules
            'Worksheets("Feuil2").Columns(4).EntireColumn.Delete
        End If
    Next i
End Sub

Sinon, tu sauteras des colonnes

[xave]

Merci, c'est bien ce qui se passait je sautai des colonnes mais je n'ai aps encore le résultat escompté, voilà ce que j'obtiens:

Mail Nom Prénom Adresse Tél col6 col7 col8

col 6, 7 et 8 n'ont pas été supprimées....