Discussion :

[cdgbou]

Bonjour à tous,

Je travaille actuellement sur une base de données concernant des ventes. Dans cette base de données est indiquée pour chaque client son pays d'origine.

La base de donnée est triée par pays et je souhaite qu'à chaque fois que le pays dans la colonne (ici la colonne D) on insert une nouvelle ligne et dans cette ligne on compte le nombre de fois que ce pays apparaît dans notre base de donnée.
Par exemple : j'ai 6 lignes dans mon tableau avec des clients qui viennent d’Irlande et bien à la fin de la liste de ces clients une nouvelle ligne est inséré et indique 6.

J'ai commencé à faire une macro (Sub Insererligne) et j'ai réussi à faire correctement la boucle d''insertion de la ligne après chaque liste de pays mais j'ai un problème au niveau du comptage je ne sais pas quoi mettre en paramètre.

Si l'un d'entre vous à une idée je suis preneur !

Je vous mets l'exemple ci-joint.

Merci !

[patricktoulon]

bonjour
ceci va peut etre te mettre la puce a l'oreille
testé sur ton fichier

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
Sub test()
    Dim dico As Object,f as worksheet,i as long,elem
    Set f = Sheets(1)
    Set dico = CreateObject("scripting.dictionary")
    For i = f.Cells(Rows.Count, "D").End(xlUp).Row - 1 To 4 Step -1
        If Not dico.exists(f.Cells(i, "D").Value) Then
            dico(f.Cells(i, "D").Value) = i & ":"
        Else
        dico(f.Cells(i, "D").Value) = Split(dico(f.Cells(i, "D").Value), ":")(0) & ":" & Val(Split(dico(f.Cells(i, "D").Value), ":")(0)) - i
 
        End If
 
    Next
    MsgBox f.Cells(4, "D").Value
    For Each elem In dico
        Debug.Print elem & "  derniere ligne =" & Split(dico(elem), ":")(0) & " il y a  " & Split(dico(elem), ":")(1) & " occurences"
    Next
End Sub

resultat



pose toi la question "pourquoi instruit il le dico a l'envers et boucle t il a l'endroit "
si la tu sais pas un autre bon samaritain va peut etre te le dire