Discussion :

[navym]

Bonjour à tous,

Je dois réaliser un fichier de suivi de pièces. Ces pièces afin de pouvoir être tracées doivent être numérotées.
Ce qui a été choisi est que le numéro de la pièce sera : numéro lié au fournisseur (voir ci-après) suivi du numéro de ligne.
En fonction du fournisseur :
- Paul : 01
- Pierre : 02
- Jacques : 03

Exemple : Je suis sur la ligne 2, si ma pièce vient de chez Paul, je sélectionne dans la liste "Paul" dans la colonne "Fournisseur" et automatiquement dans la colonne "N° pièce" se génère le numéro 012.

Pour le moment j'ai donc écrit dans la colonne "N° pièce" :

Code formule :

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

=SI([@Fournisseur]="PAUL";"01";SI([@Fournisseur]="PIERRE";"02";SI([@Fournisseur]="JACQUES";"03";"")))

J'espère avoir été claire ! Je vous remercie par avance pour vos réponses,

Navym

[BENNASR]

bonjour
pas claire au moins pour moi
si j'ai fournisseur en colonne A
je veux récupérer le numéro de la ligne de ce fournisseur; il suffit de taper la formule en colonne B :

=LIGNE(A2)

en colonne C concaténer le nom de fournisseur et le numéro de ligne avec :

CONCATENER(A2;TEXTE(B2;"000"))

ce qui donne sans passer par une colonne intermédiaire

CONCATENER(A2;TEXTE(LIGNE(A2);"000"))

revenir avec plus d'explication si c'est pas ce que tu cherches
bonne continuation

[Hyene spatiale]

A votre place, je n'utiliserais pas la fonction SI qui va devenir très vite compliquée à mesure que le nb de fournisseur augmentera.
Voici comment je ferais:
1) création d'une table des fournisseurs avec deux colonnes et les intitulés des colonnes en première ligne : nom et code. idéalement cette table doit être transformée en tableau de donnée via le menu insertion tableau en prenant bien soin de cocher la case "mon tableau comporte des entête. Le tableau sera par exemple renommé "T_fournisseurs"



2) création d'une table des pièces avec (au moins) 3 colonnes: N° pièce, nom fournisseur et code pièce. La table peut également être transformée en tableau (nommé T_pièces), ce qui facilitera la syntaxe des formules et leur lisibilité.Le numéro de pièce est saisi. La colonne nom fournisseurs peut être une liste de choix (données/ validation de données /liste) qui prend sa source dans T_fournisseurs et s'incrémente automatiquement grace à la combinaison des fonctions decaler et nbval.



3) utilisation de la formule SOMMEPROD pour la génération du code unique dans la colonne "code pièce":

Code formule :

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

=TEXTE(SOMMEPROD((T_Fournisseurs[Nom]=[@Fournisseur])*T_Fournisseurs[Code])&[@[N° pièce]];"00#")

!!La disposition des parenthèses est très importante pour cette formule.

Vous pourriez également utiliser la fonction bdlire mais elle nécessite de créer une zone de critère, ce dont sommeprod vous dispense

La formule peut ensuite être incrémentée vers les autres lignes

[Menhir]

suivi du numéro de ligne.

Mauvaise idée : il suffirait de faire un tri dans tes données pour que tous les numéros "uniques" soient intervertis.

La seule solution fiable serait que le numéro soit "en dur" dans la cellule.
Mais ça, des fonctions ne savent pas le faire. Il sera donc nécessaire de passer par du VBA, par exemple une macro évènementielle Worksheet_Change qui détecterait la saisie du fournisseur et génèrerait le code en conséquence.

[Hyene spatiale]

Je ne crois pas qu'il soit intéressant de se lancer dans des macros pour une utilisation aussi simple, ni qu'il soit cohérent d'utiliser dans votre nomenclature les N° de ligne d'excel pour des données qui seront triées, le plus simple est selon moi de mettre un numéro de ligne "en dur" dans le tableur et de faire une formule toute simple.

Toute fois si votre choix est ferme, avec les tableaux suivants:

et le code suivant:

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
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Not Application.Intersect(Range("T_pièces[Fournisseur]"), Target) Is Nothing Then
 
    Range("F" & Target.Row) = recherche_Num_fournisseur(ActiveSheet.Range("E" & Target.Row)) & Target.Row
    Exit Sub
 
End If
 
End Sub
 
Function recherche_Num_fournisseur(nom_fournisseur As String) As Double
 
Dim cellule As Range
 
For Each cellule In Range("T_fournisseurs[Nom]")
 
    If cellule.Text = nom_fournisseur Then
 
        recherche_Num_fournisseur = ActiveSheet.Range("B" & cellule.Row)
 
        Exit For
 
    End If
 
Next cellule
 
 
End Function

Le tout avec des formats personnalisés de cellule pour faire apparaître le 0 en début de code (type 00#)

[Menhir]

Je ne crois pas qu'il soit intéressant de se lancer dans des macros pour une utilisation aussi simple, ni qu'il soit cohérent d'utiliser dans votre nomenclature les N° de ligne d'excel pour des données qui seront triées, le plus simple est selon moi de mettre un numéro de ligne "en dur" dans le tableur et de faire une formule toute simple.

A titre personnel, c'est aussi comme ça que je procèderais.

Mais je mettais en garde contre l'usage de la fonction LIGNE() pour ce type d'utilisation.

[Hyene spatiale]

A titre personnel, c'est aussi comme ça que je procèderais.

Mais je mettais en garde contre l'usage de la fonction LIGNE() pour ce type d'utilisation.

Bien vu. Je vous ai confondu avec la personne qui a initié le topic.
A titre personnel j'évite la fonction ligne à part peut être avec la fonction indirect.