Limiter le choix de l'utilisateur dans un UF

Bonjour à tous,

J'utilise un UserForrm pour affecter des données dans un fichier

Trois colonnes,

B = Libellés

C = Somme débit

D = Somme crédit

je souhaites voir apparaître un MsgBox d'erreur si l'utilisateur remplit la case débit et crédit en même temps.

Voilà le code que j'utilise.

Private Sub CommandButton1_Click()

Dim L As Integer

If MsgBox("Confirmez-vous L’insertion de cette nouvelle Dénomination ?", vbYesNo, "Demande de confirmation d’ajout ") = vbYes Then

L = Sheets("Charges").Range("b65536").End(xlUp).Row + 1 'Pour placer le nouvel enregistrement à la première ligne de tableau non vide

' Range("A" & L).Value = ComboBox1

Range("B" & L).Value = TextBox1 ' Colonne Dénominations

Range("C" & L).Value = TextBox2 'Colonne Débit

Range("D" & L).Value = TextBox3 'Colonne Crédit

End If

Range("A2").Select

ActiveWorkbook.Save

Range("A2").Select

'Vide les textBox

TextBox1.Value = ""

TextBox2.Value = ""

TextBox3.Value = ""

'se repositionne sous la dernière entrée de la colonne B

L = Sheets("Charges").Range("b65536").End(xlUp).Row + 1 'Pour placer le nouvel enregistrement à la première ligne de tableau vide

End Sub

Merci de m'aider encore une fois,

a 75 ans ,je n'ai plus le temps de tondre les pelouses ni de bêcher le jardin.

Amicalement

Papy Pierrot

Bonjour

Testes au début tes TextBox

Private Sub CommandButton1_Click()

Dim L As Integer

  If TextBox2 <> "" And TextBox3 <> "" Then
    MsgBox "Une seule opération soit en crédit soit en débit"
    Exit Sub
  End If

If MsgBox("Confirmez-vous L’insertion de cette nouvelle Dénomination ?", vbYesNo, "Demande de confirmation d’ajout ") = vbYes Then

Bonjour, Banzai64

Un grand merci, ça marche du tonnerre.

Amicalement

Pierrot