Bonjour à tous,

je vous expose mon souci qui au début me paraissait très simple à résoudre mais qui s'avère plus problématique que prévu....(j'ai la tête dans le guidon !!)

Je dispose d'une série Item Code (type AAXX, BXAA, etc qui sont rangée en colonne). ce que j'essaye de développer c'est que Excel me compte le nombre d'ItemCode présent et m'organise un tableau à 2 dimensions

EXEMPLE :

Départ : Arrivée
A A 3
A B 4
A C 1
B D 2
B E 3
B
B
C
D
D
E
E
E

PS : j'ai déjà fait une boucle qui permet de mettre dans l'ordre mes ItemCode pour faciliter le travail de "comptage"

Voici mon code que j'ai triturer dans tout les sens et qui n'est plus aussi esthétique qu'avant et en plus il ne fonctionne pas correctement GRRRRR


Si vous avez des idées des remarques ou un code plus innovant et fonctionnel je suis preneur...

Merci d'avance pour votre aide.

PS : je suis nouveau sur le forum et je me suis mis à la programmation Excel il y a 2 semaines, soyez indulgent !!


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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
 
'*** Met dans l'ordre Alphabétique
 
Debut = LBound(ModifImportDATA)
Fin = UBound(ModifImportDATA)
 
    For i = Debut To Fin - 1
        For j = i To Fin
            If ModifImportDATA(i) > ModifImportDATA(j) Then
              temp = ModifImportDATA(j)
              ModifImportDATA(j) = ModifImportDATA(i)
              ModifImportDATA(i) = temp
             End If
        Next j
    Next i
 
 
'*** Compteur de nombre d'ItemCode ***
 
LigneARemplir = 1
j = 1
CompteurTOTAL = 1
Compteur_Item = 0
 
For j = Debut To Fin
 
If ModifImportDATA(CompteurTOTAL) = ModifImportDATA(j) Then
 
    Compteur_Item = Compteur_Item + 1
 
      Else
 
    ReDim Preserve TabAnaItemCode(1 To 2, 1 To LigneARemplir)
    TabAnaItemCode(1, LigneARemplir) = ModifImportDATA(CompteurTOTAL)
    TabAnaItemCode(2, LigneARemplir) = Compteur_Item
    LigneARemplir = LigneARemplir + 1
    CompteurTOTAL = CompteurTOTAL + Compteur_Item
    Compteur_Item = 1
End If
 
Next j