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
Partager