Bonsoir à tous,
J'ai créer une "base de donnée" excel (avec nom du produit, référence, N° de lot...) qui permets de faire une certain nombre de calculs grâce à des plages nommées variable dynamique.
Les plages nommées sont faites à partir des références produits (pour chaque référence identique = une plage). Mais là ou le bas Blaise c'est lors de la création de nouvelles références car les utilisateurs trouvent trop compliqué la création d'une nouvelle plage... . Je suis donc en train de faire une macro pour automatiser tous ça.
Étant début en VBA, j'ai quelques problèmes avec la syntaxe(ci joint mon code en cours de création).
Là où ça coince, c'est pour intégrer les valeurs des variable dans la formule.
Après une imputBox:
D correspond au nom de la plage nommée
C correspond à la valeur à rechercher dans le fichier (Excel).
Indépendamment les variables me renvoies les bonnes valeurs mais je m'arrive pas à les intégrer dans la formule; problème de syntaxe probablement.
Si vous avez la solution je suis preneur.
Merci d'avance.
Sub creaction_nouvelle_reference()
Dim A As Long
Dim B As String
Dim C As String
Dim D As String
A = InputBox(Title:="Bonjour", Prompt:="Veuillez Saisir la référence du produit.")
B = Right(A, 5)
C = "605-" & B
D = "_" & C
ActiveWorkbook.Names.Add Name:="D", RefersToR1C1:= _
"=OFFSET('Prod Vitro ASM'!R1C2,MATCH(C,'Prod Vitro ASM'!R1C2:R9998C2,0)-1,0,COUNTIF('Prod Vitro ASM'!R1C2:R9998C2,C),1)"
End Sub
J'ai créer une "base de donnée" excel (avec nom du produit, référence, N° de lot...) qui permets de faire une certain nombre de calculs grâce à des plages nommées variable dynamique.
Les plages nommées sont faites à partir des références produits (pour chaque référence identique = une plage). Mais là ou le bas Blaise c'est lors de la création de nouvelles références car les utilisateurs trouvent trop compliqué la création d'une nouvelle plage... . Je suis donc en train de faire une macro pour automatiser tous ça.
Étant début en VBA, j'ai quelques problèmes avec la syntaxe(ci joint mon code en cours de création).
Là où ça coince, c'est pour intégrer les valeurs des variable dans la formule.
Après une imputBox:
D correspond au nom de la plage nommée
C correspond à la valeur à rechercher dans le fichier (Excel).
Indépendamment les variables me renvoies les bonnes valeurs mais je m'arrive pas à les intégrer dans la formule; problème de syntaxe probablement.
Si vous avez la solution je suis preneur.
Merci d'avance.
Sub creaction_nouvelle_reference()
Dim A As Long
Dim B As String
Dim C As String
Dim D As String
A = InputBox(Title:="Bonjour", Prompt:="Veuillez Saisir la référence du produit.")
B = Right(A, 5)
C = "605-" & B
D = "_" & C
ActiveWorkbook.Names.Add Name:="D", RefersToR1C1:= _
"=OFFSET('Prod Vitro ASM'!R1C2,MATCH(C,'Prod Vitro ASM'!R1C2:R9998C2,0)-1,0,COUNTIF('Prod Vitro ASM'!R1C2:R9998C2,C),1)"
End Sub
Dernière édition: