Bonjour à tous,
Voilà mon problème,
J'ai un User qui contient une liste box de choix et quelques boutons
quand je choisi une ligne de la liste pour lintégrer par le bouton ajouter tout fonctionne à merveille.
Par contre je voudrais ajouter un bouton dans l'user me permettant d'annuler l'entrée que je viens de faire et là je n'y arrive pas.
je vous joins le code ci-dessous en espérant qu'une âme charitable pourra m'aider.
Private Sub CommandButton1_Click()
Dim VarDerL As Integer
Dim Quantite As Integer
VarDerL = Sheets("Devis").Range("B1000").End(xlUp).Row + 2
If TextBoxQuantite = "" Then
MsgBox "Vous Devez Saisir Une Quantité"
TextBoxQuantite.Visible = True
TextBoxQuantite.SetFocus
Exit Sub
End If
If TextBoxQuantite <= 0 Then
MsgBox "Vous Devez Saisir Une Valeur Positive "
TextBoxQuantite.Visible = True
TextBoxQuantite = ""
TextBoxQuantite.SetFocus
Exit Sub
End If
If Quantite Then
MsgBox "La quantité demandée " & TextBoxQuantite
TextBoxQuantite.Visible = True
TextBoxQuantite.SetFocus
Exit Sub
End If
If VarDerL = 1000 Then
MsgBox "Vous êtes arrivé à la dernière ligne de ce Devis", vbCritical, "Fin de Devis"
Exit Sub
End If
With Sheets("Devis")
.Range("A" & VarDerL) = LabelCode
.Range("B" & VarDerL) = ListBox1
.Range("C" & VarDerL) = TextBoxQuantite
.Range("D" & VarDerL) = LabelUnite
.Range("E" & VarDerL).Select
ActiveCell.FormulaR1C1 = "=IF(RC[2]>0,RC[2]*R8C10)"
.Range("F" & VarDerL).Select
ActiveCell.FormulaR1C1 = "=RC[-3]*RC[-1]"
.Range("G" & VarDerL) = Format(LabelPrixUnit, "# ##0.00")
.Range("H" & VarDerL) = Format(LabelPrixTotal, "#,##0.00")
.Range("I" & VarDerL).Select
ActiveCell.FormulaR1C1 = "=1-(RC[-2]/RC[-4])"
End With
Sheets("Bibli").Range("C" & VarSelectedArticle).Value = _
Sheets("Bibli").Range("C" & VarSelectedArticle).Value + TextBoxQuantite
Exit Sub
Sortie:
MsgBox "La valeur de la Quantité ne peut être qu'un nombre entier !"
End Sub
merci d'avance bonne soirée.