FOUQUET Yves
XLDnaute Occasionnel
Bonsoir,
Quelqu'un peut m'expliquer pourquoi dans cette procédure:
- si je réponds "NON" au message de confirmation la procédure continue tout de même
Merci d'avance.
Grrrrrrrr
Quelqu'un peut m'expliquer pourquoi dans cette procédure:
- si je réponds "NON" au message de confirmation la procédure continue tout de même
Merci d'avance.
Grrrrrrrr
VB:
Private Sub Commandbutton2_Click() '---- bouton ajouter ----
If MsgBox("Etes-vous certain de vouloir AJOUTER ce mouvement ?", vbYesNo, "Demande de confirmation") = vbYes Then
If vbYes <> 6 Then Exit Sub
End If
Sheets("journal matos").Activate
With Sheets("journal matos") '--- La feuille usuelle en activité ----------
l = 0
l = Range("A500").End(3).Row + 1 'Permet de se positionner sur la dernière ligne de tableau NON VIDE
If TextBox8 = "" Then '--- gestion des entrées
.Range("A" & l).Value = ""
.Range("B" & l).Value = ""
.Range("C" & l).Value = ""
.Range("D" & l).Value = ""
.Range("E" & l).Value = ""
Else
.Range("A" & l).Value = TextBox1 'libelle
.Range("B" & l).Value = TextBox7
.Range("C" & l).Value = TextBox8
.Range("D" & l).Value = TextBox2
.Range("E" & l).Value = TextBox12
End If
.Range("F" & l).Value = "II" '-- séparation ---
If TextBox11 = "" Then '---- gestion des sorties
.Range("G" & l).Value = ""
.Range("H" & l).Value = ""
.Range("I" & l).Value = ""
.Range("J" & l).Value = ""
.Range("K" & l).Value = ""
.Range("L" & l).Value = ""
Else
.Range("G" & l).Value = TextBox1
.Range("H" & l).Value = TextBox9
.Range("I" & l).Value = TextBox10
.Range("J" & l).Value = TextBox11
.Range("K" & l).Value = TextBox2
.Range("L" & l).Value = TextBox12
End If
End With
End sub