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

onyirimba · 9 Septembre 2024

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 · 9 Septembre 2024

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

Code:

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

Dranreb · 9 Septembre 2024

Bonjour.

VB:

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] :

Code:

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

onyirimba · 9 Septembre 2024

Dranreb à dit:

Bonjour.

VB:

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] :

Code:

=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 · 9 Septembre 2024

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

Code:

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

vgendron · 9 Septembre 2024

Hello

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

onyirimba · 9 Septembre 2024

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

Code:

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

merci la formule fonctionne parfaitement

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

onyirimba

XLDnaute Occasionnel

Pièces jointes

Dranreb

Dranreb

XLDnaute Barbatruc

onyirimba

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

vgendron

XLDnaute Barbatruc

onyirimba

XLDnaute Occasionnel

Discussions similaires