Système de double boucle

Version imprimable

23/08/2018, 15h02
Kris41

Système de double boucle

Bonjour le forum,

Je vais droit au but. Dans mon tableau, j'ai une colonne contenant plusieurs données sur 1400 lignes par exemple. Je voudrais faire en sorte de compter ces données. Par exemple imaginons que j'ai plusieurs fois la valeur "Nom2018" dans cette colonne, je voudrais que dans la colonne suivante soit numéroté les occurrences. C'est à dire que quand j'ai la première occurrence alors 1 est inscrit dans la deuxième colonne et quand j'ai la deuxième occurrence alors 2 est inscrit dans la deuxième colonne.

Je complique un peu les choses car ce numérotage doit être intégrer dans une première boucle qui fonctionne et qui vérifié s'il ne me manque pas de données dans la première colonne.

Je n'arrive pas à trouver la solution. Pourriez-vous m'aider, s'il vous plait ?

En l'attente de votre réponse, je vous souhaite une bonne fin de journée.

J'ai écrit ce bout de code mais cela ne fonctionne sur la partie du "For X"

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
 
Dim DerniereLigne3 As Long, I As Integer
    Dim Compteur3 As Integer, Progression3 As Integer
 
    DerniereLigne3 = Range("A1048576").End(xlUp).Row
    Compteur3 = 0
    Progression3 = 0
    BarreImage3.Width = 0
    BarreImage3.Visible = False
    Diviseur3 = (DerniereLigne3 - 11) / 100
 
    For I = 11 To DerniereLigne3
 
        Call InsertionLigneTableauV
 
        'TransfertDonnees
 
        Nom = Sheets("ROLE VOIRIE").Range("N" & I).Text
        Enseigne = Sheets("ROLE VOIRIE").Range("O" & I).Text
        Adresse = Sheets("ROLE VOIRIE").Range("P" & I).Text
        Siret = Sheets("ROLE VOIRIE").Range("Q" & I).Text
        Annee = Sheets("ROLE VOIRIE").Range("R" & I).Value
        Montant = Sheets("ROLE VOIRIE").Range("S" & I).Value
        Role = "ROLE DE VOIRIE"
        Tiers = "04976"
        Facture = Sheets("ROLE VOIRIE").Range("T" & I).Value
        Date1 = Sheets("ROLE VOIRIE").Range("U" & I).Value
        Concatenation1 = Sheets("ROLE VOIRIE").Range("W" & I).Value
 
 
        Sheets("VOIRIE").Select
 
        Range("B11") = Nom
        Range("D11") = Enseigne
        Range("E11") = Adresse
        Range("F11") = Siret
        Range("G11") = Role
        Range("H11") = Annee
        Range("I11") = Tiers
        Range("K11") = Montant
        Range("L11") = Facture
        Range("M11") = Date1
        Range("AD11") = Concatenation1
        Range("AE11") = Concatenation1
 
        'Numérotation des occurences
 
        Dim NombreT As Long, X As Long
 
        NombreT = 0
 
        For X = 11 To Cells(1048576, 30).End(xlUp).Row
            If Cells(I, 30) = Range("AE11").Value Then
                NombreT = NombreT + 1
            End If
        Next X
 
        Range("C" & I) = NombreT
 
        Call FormatCellule
 
        Compteur3 = Compteur3 + 1
 
        If Compteur3 Mod Diviseur3 = 0 Then
 
            Progression3 = Progression3 + 1
            BarreImage3.Visible = True
            BarreImage3.Width = Progression3 * 3.54
            CadreProgression3.Caption = Progression3 & "%"
            DoEvents
 
        End If
 
 
 
    Next I

25/08/2018, 15h48
Kris41

Bonjour le forum,

J'ai réfléchi sur mon problème et j'ai réussi à résoudre celui-ci.

Je ne peux pas vous mettre le code que j'ai du faire car il est spécifique au classeur.

Je vous souhaite une bon weekend.