XL 2013 Formule ou Codage VBA qui met à jour un tableau en fonction de quantité

[onyirimba]

Bonjour,

Je recherche une formule Excel ou Codage VBA qui calcule automatiquement la référence en colonne E en fonction du chiffre de quantité inscrit en colonne G.
=> par exemple, si on prend la ligne 10 : le résultat à trouver est" Luna-1/Luna-2/Luna-3/Luna-4" car le nom "Luna" est associé à 4 quantités en colonne G. donc en colonne E, il est référencé 4 fois suivi d'un slash et d'un tiret du 6".
=> par exemple, si on prend la ligne 9 : le résultat à trouver est" Manh-1/Manh-2/Manh-3" le nom "Manh" est associé à 3 quantités en colonne G. donc en colonne E, il est référencé 3 fois suivi d'un slash et d'un tiret du 6".


Merci d'avance de votre aide.

 

[Dranreb]

Bonjour.

Function JoinSpc(ByVal Nom As String, ByVal Nb As Integer) As String
   Dim TJn() As String, N As Integer
   ReDim TJn(1 To Nb)
   For N = 1 To Nb: TJn(N) = N: Next N
   JoinSpc = Nom & "-" & Join(TJn, "/" & Nom & "-")
   End Function

En Tableau1[référence] :

=JoinSpc([@nom];[@quantité])

 

[onyirimba]

Bonjour.

Function JoinSpc(ByVal Nom As String, ByVal Nb As Integer) As String
   Dim TJn() As String, N As Integer
   ReDim TJn(1 To Nb)
   For N = 1 To Nb: TJn(N) = N: Next N
   JoinSpc = Nom & "-" & Join(TJn, "/" & Nom & "-")
   End Function

En Tableau1[référence] :

=JoinSpc([@nom];[@quantité])

bonjour,

j'ai ajouté ce codage mais cela ne fonction pas

Sub Macro1()

End Sub


' Macro1 Macro
'
' Touche de raccourci du clavier: Ctrl+a
'
Function JoinSpc(ByVal Nom As String, ByVal Nb As Integer) As String
Dim TJn() As String, N As Integer
ReDim TJn(1 To Nb)
For N = 1 To Nb: TJn(N) = N: Next N
JoinSpc = Nom & "-" & Join(TJn, "/" & Nom & "-")
End Function



End Function

 

[Dranreb]

Chez moi la formule qui invoque la fonction perso marche parfaitement dans le tableau.
Rappel: En 'Feuil1'!Tableau1[référence] :

=JoinSpc([@nom];[@quantité])

 

[vgendron]

Hello

@onyirimba
la fonction de Bernard est à mettre TELLE QUELLE dans un module standard..
c'est une fonction.. pas une sub

 

[onyirimba]

Chez moi la formule qui invoque la fonction perso marche parfaitement dans le tableau.
Rappel: En 'Feuil1'!Tableau1[référence] :

=JoinSpc([@nom];[@quantité])

merci la formule fonctionne parfaitement