Lancer une msgbox via une userform

[Drk54]

Le forum bonjour 🙂

Je suis en train de créer sour Excel 2007, un fichier d'attribution de numéro pour un client.
J'ai déjà créé sur ce fichier une Userform via VBA de remplissage des différents informations dont à a besoin.

Et je voulais savoir si cela était possible qu'une fois mon insertion faite via mon Userform, on pouvais lancer un messagebox du type là :

A ce jour (dernière valeur remplie colonneG), pour l'article dernière valeur remplie colonneC), OF dernière valeur remplie colonneD), pour dernière valeur remplie colonneE) de pièces, la tranche de numéro COC sera de dernière valeur remplie colonneA) à dernière valeur remplie colonneB)

Je joins mon fichier si cela peut aider.

Si quelqu'un sait comment faire, ou aurait une alternative à mon idée, se serait sympatique!

Merci d'avance

 

[Robert]

Re : Lancer une msgbox via une userform

Bonjour Drk, bonjour le forum,

une proposition avec ton code modifié ci-dessous :

Private dlCol As Integer

Private Sub CommandButton1_Click()
Dim a As Integer

With Sheets("ATTRBUTION COC MAN")
    a = .Cells(Application.Rows.Count, 9).End(xlUp).Row + 1
    .Cells(a, 3).Value = TextBox2.Value 'Article
    .Cells(a, 4).Value = TextBox4.Value 'OF
    .Cells(a, 5).Value = TextBox5.Value 'Nombre de pièces
    .Cells(a, 6).Value = ComboBox2.Value 'Organisme de réception
    .Cells(a, 7).Value = TextBox7.Value 'Date
    .Cells(a, 8).Value = ComboBox1.Value 'Atelier
    .Cells(a, 9).Value = TextBox1.Value 'Nom
    .Cells(a, 10).Value = TextBox6.Value 'Commentaires
End With
msg = "À ce jour "
Call dlc("G")
msg = msg & dlCol & ", pour l'article "
Call dlc("C")
msg = msg & dlCol & ", OF "
Call dlc("D")
msg = msg & dlCol & ", pour "
Call dlc("E")
msg = msg & dlCol & " de pièces, la tranche numéro COC sera de "
Call dlc("A")
msg = msg & dlCol
msg = msg & " à "
Call dlc("B")
msg = msg & dlCol & "."
MsgBox msg
Unload Me
End Sub


Sub dlc(col As String)
With Sheets("ATTRBUTION COC MAN")
    dlCol = .Cells(Application.Rows.Count, col).End(xlUp).Row
End With
End Sub

 

[Theze]

Re : Lancer une msgbox via une userform

Bonjour,

Regarde si cela convient et adapte :

 MsgBox "A ce jour " _
        & Range("G" & a).Value & _
        ", pour l'article " & _
        Range("C" & a).Value & _
        ", OF " & _
        Range("D" & a).Value & _
        ", pour " & _
        Range("E" & a).Value & _
        " de pièces, la tranche de numéro COC sera de " & _
        Range("A" & a).Value & _
        " à " & _
        Range("B" & a).Value

Hervé

 

[Drk54]

Re : Lancer une msgbox via une userform

Robert et Theze, merci à vous deux pour vos réponses!
J'avoue que j'ai opté pour la solution de Theze ^^

Encore un grand merci à vous deux!