J’au un fichier qui se présente comme ca :
 
Ville Client Produit Qté Prix Total
1401 Georges aa 2 3,00 6,00
1402 Henri ab 6 8,00 48,00
1403 Jacqueline aa 8 9,00 72,00
1404 Eric ad 5 7,00 35,00
1405 Paul ae 0 4,00 0,00
1406 Karl ac 8 3,50 28,00
1407 Victor ae 5 5,00 25,00
 
Il est sur un onglet qui s’appelle Feuil1. J’essaye de créer un onglet différent pour chaque code Produit et que toutes les lignes concernées aillent s’y coller.
 
J’arrive à ça :
 
 
 
J’au un fichier qui se présente comme ca :
 
Ville Client Produit Qté Prix Total
1401 Georges aa 2 3,00 6,00
1402 Henri ab 6 8,00 48,00
1403 Jacqueline aa 8 9,00 72,00
1404 Eric ad 5 7,00 35,00
1405 Paul ae 0 4,00 0,00
1406 Karl ac 8 3,50 28,00
1407 Victor ae 5 5,00 25,00
 
Il est sur un onglet qui s’appelle Feuil1. J’essaye de créer un onglet différent pour chaque code Produit et que toutes les lignes concernées aillent s’y coller.
 
J’arrive à ça :
 
 
 
   
 
 
En recopiant la ligne de titre, en renommant l’onglet et en modifiant un peu la macro
ci-dessous que j’ai trouvée sur ce forum grâce  à jiper, grand merci à lui.
 
Sub classement()  
j = 2  
l = 2  
Sheets("feuil1" ).Select  
Range("C2" ).Select  
For i = 1 To Range("C65536" ).End(xlUp).Row  
    Range("C" & j).Select  
    If ActiveCell.Value = "aa" Then  
        Range("A" & j & ":" & "F" & j).Select  
        Selection.Copy  
        Sheets("aa" ).Select  
        Range("A2" ).Select  
line1:  
        If ActiveCell.Value = "" Then  
            ActiveSheet.Paste  
            Selection.Offset(1, 0).Select  
        Else  
            Selection.Offset(1, 0).Select  
            GoTo line1  
        End If  
    Else  
        Selection.Offset(1, 0).Select  
    End If  
    j = j + 1  
    Sheets("feuil1" ).Select  
Next i  
End Sub
 
Ca marche trés bien avec un seul onglet mais je n’arrive pas à systématiser pour plusieurs (aa, ab, ac, etc), faut peut –être faire une espèce de boucle mais je sais pas, de plus quand j’active la macro quelques jours plus tard, il ajoute les lignes à partir de la 1ere ligne vide sans effacer les précédentes ci qui fait des doublons. Ca m’oblige à effacer tout les onglets (sauf les entêtes).
 
 En vrai j’ai au moins 150 produits,pffff.
 
Le top du top, ce serait que j’arrive à construire une macro qui dise en résumé ceci.
 
Pour chaque code produit, crée et nomme un onglet comme le code et colle dans celui-ci la 1ère ligne et toutes les lignes où figure ce code.
 
Trop compliqué pour moi, je patauge sec. Si quelqu’un peut m’aider à avancer la dessus, ce serait super de super.
 
Cordialement à tous.
 
jacqueline.metayer@lwanadoo.fr

Déjà c'est pas la bonne catégorie, vas dans Windows, Software & Réseaux, et ne donne pas ton adresse mail dans les topics.