Discussion :

[Misuwa]

Bonjour,

Je vous sollicite car après 2 jours de recherche sur le net, je ne trouve toujours pas de solution a mon problème.

Je reçois des données que je dois traitées et transformées puis les copier dans d'autres feuilles du classeur.
Le nombre de lignes et les données varie à chaque nouveau fichier.

Voici un petit exemple de ce que je reçois :

NUM_STAND	N_SERIE
001A026	XX
001A030	180
001A032	22
001A035	210
001A035	320
001A035	610

Voici ce que je souhaite obtenir :
le stand 001A035 apparaît 3 fois avec un numéro de série différent. Je souhaite savoir combien de fois apparaît le nom du stand avec le bon numéro de série a chaque ligne


Numéro de série;nombre déjà défini 1;nombre déjà défini 2;Numéro du stand;nombre de fois où est apparut le numéro du stand jusqu’à cette ligne
180;328;5;A030;1
22;328;5;A032;1
210;328;5;A035;1
320;328;5;A035;2
610;328;5;A035;3

Mais avec mon code j'obtiens :

180;328;5;A030;1
22;328;5;A032;1
210;328;5;A035;3
320;328;5;A035;3
610;328;5;A035;3


Voici le code que j'utilise pour compter le nombre de fois où est apparut le stand jusqu’à cette ligne mais je n'obtiens pas ce que je souhaite :

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
 
Qte = 1
Numero = 1
 
[...]
 
For QteLig = 2 To [A10000].End(xlUp).Row 
            StandComp = (Cells(QteLig, 4).Value)
            NumSerieComp = (Cells(QteLig, 6).Value)
 
                If Stand = StandComp And NumSerie <> NumSerieComp Then    
                    Numero = Numero + 1                                                            
                End If
 
 Next QteLig
 
Sheets("Feuil2").Cells(Lig, 1) = NumSerie & ";" & Salon & ";" & NumHall & ";" & NumStand & ";" & Qte                                                                  
 
                If Numero = 2 Then
                    Numero2 = 2
                    Sheets("Feuil2").Cells(Lig, 1) = NumSerie & ";" & Salon & ";" & NumHall & ";" & NumStand & ";" & Numero2
                    Sheets("Feuil3").Cells(Lig, 1) = NumSerie & ";" & Salon & ";" & NumHall & ";" & NumStand & ";" & Numero2
 
                ElseIf Numero = 3 Then
                    Numero3 = 3
                    Sheets("Feuil2").Cells(Lig, 1) = NumSerie & ";" & Salon & ";" & NumHall & ";" & NumStand & ";" & Numero3
                    Sheets("Feuil3").Cells(Lig, 1) = NumSerie & ";" & Salon & ";" & NumHall & ";" & NumStand & ";" & Numero3
 
               End if

je ne comprend pas pourquoi il ne garde pas en mémoire le nombre de "numero" ?

Merci de vos lumières

[Menhir]

Pas besoin de VBA pour faire ça.

A supposer que tes données sont en colonne A et B de l'onglet "Source" et que les valeurs commencent en ligne 2.
Dans un autre onglet (ou le même en décalant les colonnes citées),
tu mets en A2 : =Source!B2.
tu mets en D2 : =Source!A2.
tu mets en E2 : =NB.SI(Source!A$2:A2;D2) (attention, le $ est important).

Tu copies A2:E2 vers le bas autant que nécessaire.

PS : je n'ai pas compris comment tu obtiens le 328 et le 5.

[Misuwa]

Bonjour Menhir,
Merci pour ta réactivité et ta réponse.

En fait je pense être obligé de passer par du VBA. (mais peut être pas?)
Je reçois un fichier excel tiré d'une extraction d'un plan Autocad.
Je dois ensuite trier les données et en transformer certaines puis copier les informations situées en feuille 2 dans un fichier txt qui alimentera une base de donnée type SQL. (je ne peux pas modifier cette base de donnée. Je suis donc obligé de passer par ce fichier txt)

La feuille 3 me sert à vérifier qu'il n'y a pas d'erreur avec les "NUM_STAND" qui apparaissent plusieurs fois.

Pour répondre a ton P.S,
le code que j'ai mis ici n'est que la partie qui me pose problème mais le code est plus long.
J'obtiens le 328 et le 5 avant cette partie de code.
328 correspond à un numéro de plan et 5 à une zone de ce plan.