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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

onyirimba

XLDnaute Occasionnel
Supporter XLD
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.

1725867769729.png
 

Pièces jointes

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.
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
250
Affichages
15 K
Retour