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....

[ouskel'n'or]

Pour Col8, ça, j'ai compris... avec NB_COL = 7, tu n'iras pas à 8...
Mets donc =10 et teste de nouveau. Je soupçonne que tu as une colonne 9 qui contient quelque chose... ou alors, supprime manuellement toutes les colonnes à droite de la dernière colonne de ta plage. Après tu exécutes la macro. Juste pour tester.
Tu dis
A+

[xave]

J'avais déjà mis à 10 (c'est précisé plus haut )

Par contre, j'ai fait comme tu m'as dit et supprimé toutes les colonnes à droite de ma dernière colonne et j'ai relancé la macro, j'obtiens toujours ceci:

Nom Prénom Adresse col6 col7 col8

Je te remet le code:

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 = 10
    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

[Edit]
Je pense avoir trouvé, ce doit être parce que j'ai plus de colonnes dans la Feuille 2 que dans la 1, je teste...
[/Edit]

[ouskel'n'or]

Remplace

Worksheets("Feuil2").Columns(i).Delete

par

Code :

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

            Worksheets("Feuil2").Columns(i).entireColumn.Delete

(pas testé)

[xave]

Non, c'est bon, c'est bien parce que j'avais plus de colonnes dans la feuille 2 que la 1

Merci à vous 2 pour votre aide, sans vous j'y aurai passé l'après-midi