Discussion :

[Melina250]

Pièce jointe 205960

Bonjour,

J'ai une liste qui se présente comme suit avec une liste en colonne "D" qui présente 60 valeurs différente.

J'aimerais, à chaque changement de valeur, qu'un nouvel onglet soit créé avec en nom le "nom entitée commerciale" et la liste d'informations correspondantes. Si possible, j'aimerais que la mise en forme de la page 1 se copie d'un onglet à l'autre.

Je ne m'y connait pas du tout en VBA et je n'arrive pour l'instant à rien faire. J'ai essayé de m'inspirer de cette réponse http://www.developpez.net/forums/d10...tat-d-colonne/ malheuresement seule la première valeur de la liste s'affiche et non toute la liste, aussi, la mise en forme ne se copie pas.

Pourriez-vous m'aider ?

Merci.

[Philippe PONS]

Bonjour,


tu devrais pouvoir le faire en utilisant le filtre avancé.
Il permet de sélectionner certaines lignes avec un critère
et de copier le résultat du filtrage dans un autre onglet.
Voir ce tutoriel
http://philippetulliez.developpez.co...dvancedfilter/
Cordialement,

[Melina250]

Bonjour,

Merci pour votre retour. Toutefois, mon fichier fait près de 600 lignes et le critère pour lequel je veux créer un nouvel onglet (celui en colonne D) comprend près de 70 valeurs différentes, soit 70 fois l'utilisation du filtre avancé. J'ai déjà vu des personnes utiliser des macro pour cela, et j'avais trouvé un code l'année dernière qui m'avait servi que je n'ai pas archivé. Y-a-t-il une méthode ?

MErci.

[halaster08]

Bonjour,

Ceci devrait aider:

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 copie()
col = 4
ligne = Range("D" & Rows.Count).End(xlUp).Row
'numero de la colonne de test et calcul du nb de ligne
Dim d, f As Integer 'debut et fin de zone de copie
 
For i = 6 To ligne
    d = i 'initialisation de la plage a copier
    If Not (Cells(i, col) = Cells(i + 1, col)) Then
        Sheets.Add 'ajout de feuille
        'ici il faut renommer la feuille
        f = i 'valeur différente donc fin de la plage a copier
        Sheets("Sheet1").Rows("1:5").Copy 'copie des en-têtes
        Sheets("Sheet2").Rows("1:5").PasteSpecial 'changer sheets par le nomveau nom
        Sheets("Sheet1").Rows(d & ":" & f).Copy 'copie des données
        Sheets("Sheet2").Rows("6:" & 6 + f - d).PasteSpecial 'changer sheets par le nomveau nom
        d = i + 1 'début de la plage suivante
    End If
Next i
End Sub

Ce code parcours la colonne D de la ligne 6 a la derniere non vide, et copie les plages ou la colonne D garde la même valeurs.
Il reste encore a définir le nom des nouveaux onglets.

[Melina250]

Bonjour,

Merci beaucoup.

Pour les nouvelles feuille j'aimerais qu'elles aient le nom de la valeur qui change dans la colonne D (c'est à dire A2CE PATRIMOINE, AEP, AGEAS ou les suivantes..), que dois-je modifier sur le code ?

Merci encore,

Mélina

[Philippe PONS]

Salut,

pour renommer la feuille,
Je t'ai modifié le code de halaster08

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
21
22
Sub copie()
col = 4
ligne = Range("D" & Rows.Count).End(xlUp).Row
'numero de la colonne de test et calcul du nb de ligne
Dim d, f As Integer 'debut et fin de zone de copie
Dim sh As Worksheet ' <<==modif
 
For i = 6 To ligne
    d = i 'initialisation de la plage a copier
    If Not (Cells(i, col) = Cells(i + 1, col)) Then
        Set sh = Sheets.Add 'ajout de feuille <<==modif
        'ici il faut renommer la feuille
        sh.Name = Cells(i, col) ' ==là, je renomme la feuille==
        f = i 'valeur différente donc fin de la plage a copier
        Sheets("Sheet1").Rows("1:5").Copy 'copie des en-têtes
        Sheets("Sheet2").Rows("1:5").PasteSpecial 'changer sheets par le nomveau nom
        Sheets("Sheet1").Rows(d & ":" & f).Copy 'copie des données
        Sheets("Sheet2").Rows("6:" & 6 + f - d).PasteSpecial 'changer sheets par le nomveau nom
        d = i + 1 'début de la plage suivante
    End If
Next i
End Sub

[halaster08]

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
21
22
23
24
Sub copie()
col = 4
ligne = Range("D" & Rows.Count).End(xlUp).Row
'numero de la colonne de test et calcul du nb de ligne
Dim d, f As Integer 'debut et fin de zone de copie
Data = ActiveSheet.Name
d = 6 'initialisation de la plage a copier
For i = 6 To ligne
   ' MsgBox d
    If Not (Sheets(Data).Cells(i, col) = Sheets(Data).Cells(i + 1, col)) Then
        'MsgBox Cells(i, col) & Cells(i + 1, col)
        nom = Sheets(Data).Cells(i, col)
        Sheets.Add 'ajout de feuille
        ActiveSheet.Name = nom
        f = i 'valeur différente donc fin de la plage a copier
        Sheets(Data).Rows("1:5").Copy 'copie des en-têtes
        Sheets(nom).Rows("1:5").PasteSpecial 'changer sheets par le nomveau nom
       ' MsgBox "zone = " & d & " - " & f
        Sheets(Data).Rows(d & ":" & f).Copy 'copie des données
        Sheets(nom).Rows("6:" & 6 + f - d).PasteSpecial 'changer sheets par le nomveau nom
        d = i + 1 'début de la plage suivante
    End If
Next i
End Sub

C'est bien parceque je suis gentil et que j'avais mal placé l'initialisation de d, mais tu aurais pu chercher par toi même comment renommer une feuille.