Bonjour à tous,
Voilà ce que j'essaie de faire : J'ai une liste d'article dans un tableau (ex : Ballon), avec un N° de Cycle (ex : 18) qui leur correspond (chaque fois que cet article est à nouveau rentrer dans le tableau, le N° de Cyle augmente d'1) et un nom type (qui reprend les 3 premières lettres d'article et le N° de Cycle). -> Voir fichier d'exemple en pièce jointe.
Exemple : BALLON 18 BAL18
J'aimerais que lorsque l'utilisateur rentre le numéro d'article via un UserForm, le N° de Cycle et et le Nom type se remplisse automatiquement, malheureusement mon code ne marche pas :
Private Sub CommandButton_Valider_Click()
Dim NumLigneVide As Integer
NumLigneVide = 2
Do Until Cells(NumLigneVide, 1).Value = ""
NumLigneVide = NumLigneVide + 1
Loop
Cells(NumLigneVide, 1).Value = TextBox_Article.Value
Cells(NumLigneVide, 2).FormulaLocal = "=MAX(SI(A1:A11=A12;B1:B11;0)) +1"
Cells(NumLigneVide, 3).FormulaLocal = "=MAJUSCULE(GAUCHE(A12;3)&B12))"
UserForm1.Hide
Unload UserForm1
End Sub
Sachant qu'en plus la première formule est une formule matricielle (Ctrl+Maj+Entrer)
Je vous remercie grandement d'avance pour votre aide
Cdlt