Discussion :

[joundi]

Bonjour,


Je viens vers vous car actuellment je suis en stage de master et j'ai un gros fichier excel à trier.

La société est une société de textile qui souhaite que je trie ces references.

J'ai déja fais un tri avancé(+6000 ref), mais il me reste encore à créer des variations et la je bloque.



En gros j'ai des references et si les 5 premiers chiffres de ces references sont égaux alors il s'agit du même produit, je dois donc creer un groupe auxquel j'assigne un ID.



Si les 5 premiers chiffres ne sont pas égaux alors il ne s'agit pas du même produit.

Donc la formule doit s'incrementer pour creer un nouvelle ID.


J'ai essayé avec des IF et des ELSE mais ça ne fonctionne pas.

Donc je m'en remets à vous car je suis un peu perdu

Je ne demande pas de macher le travail juste une piste car j'ai fait une dizaine de tuto Youtube mais rien de concret (ça doit être trop simple pour être abordé)

[sebing]

Bonsoir,

Je vois une solution mais en VBA, cela pose t'il un problème si vous faites le tri avec une requête VBA?

Cordialement

Sebing

[joundi]

Absolument pas,

Tant que cela fonctionne je prends.

Au pire si il faut des modifs je me pencherai dessus !

[unparia]

Bonjour

Cela relève d'abord à mon sens de la conception.
Si :

En gros j'ai des references et si les 5 premiers chiffres de ces references sont égaux alors il s'agit du même produit, je dois donc creer un groupe auxquel j'assigne un ID.

Je commencerais personnellement par éclater ces références sur deux colonnes (l'une avec les 5 premiers chiffres et l'autre avec le reste). Ce que te permet de faire facilement l'outil de conversion Données -->> convertir .
Cela devrait considérablement "agiliser" ta démarche .

[78chris]

Bonjour

Avec POwerQuery intégré à 2016, cela est faisable en quelque clic...

Reste à déterminer la règle pour codifier l'ID du groupe : on garde les 5 premiers caractères comme ID ou bien ??????

[joundi]

Bonjour

Avec POwerQuery intégré à 2016, cela est faisable en quelque clic...

Reste à déterminer la règle pour codifier l'ID du groupe : on garde les 5 premiers caractères comme ID ou bien ??????

Bonjour,

Je commencerai par 1 puis 2, 3 etc...

[sebing]

Absolument pas,

Tant que cela fonctionne je prends.

Au pire si il faut des modifs je me pencherai dessus !

voila un code VBA à mettre dans un module que l'on peut attacher à un bouton.

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
 
Sub tri_id()
Dim n As Long
Dim y As Long
Dim id_verif As Integer
Dim id_ref_dessous As Integer
Dim der_ligne_dessous As Long
'fait une boucle de la ligne 4 à la dernière renseignée
der_ligne = Range("A65536").End(xlUp).Row - 1
For n = 4 To Range("A65536").End(xlUp).Row
    'verifie si l'ID est connu pour cette référence
 
   If IsNull(Range("B" & n)) Or Range("B" & n) = "" Then
    'passe à la réference suivante
 
        If der_lign = n Then 'verifie si c'est la dernière ligne de controlée
        'arrete la boucle
        Exit For
        Else
      'verifie les références en dessous
        For y = n + 1 To Range("A65536").End(xlUp).Row
             id_verif = Left(Range("A" & n), 5)
             id_ref_dessous = Left(Range("A" & y), 5)
             If id_verif = id_ref_dessous Then
                 Range("B" & n) = id_verif
                 Range("B" & y) = id_verif
                 y = y + 1
             End If
 
        Next y
        End If
    End If
Next n
End Sub

Il faut modifier les colonnes (j'ai pris A pour les références et B pour les ID a renseigner et aussi le début du tableau (n a modifier n=4))

Bonne soirée

Sebing

[78chris]

RE

Pour ma part je trouve que ce n'est pas forcément une bonne idée de donner comme ID d'un groupe une simple numérotation : si on reste en numérique, on a des ID de longueurs différentes, sans signification particulière.

L'intérêt d'un ID n'est pas seulement d'obtenir une numérotation unique mais aussi qu'il apporte un plus en gestion et donc l'aspect "signifiant" n'est pas neutre.

Cela ne change rien à la faisabilité PowerQuery.

Sinon par formule, si les référence sont de même longueur et triés en colonne A de A2 à A600
En B2 : taper 1
En B3 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI(A3="";"";SI(GAUCHE(A3;5)=GAUCHE(A2;5);B2;B2+1)))

à recopier jusqu'en bas