Modif de Code a apporter pour une Validation

[MuscatMimi]

Bonjour a tout le Forum

dans ma Validation(code ci_dessous)il faut que cette Validation ne puisse s'éxécuter, que si ma Tbx14 a de noté P

Quel serait la modif a apporter a ce code

Private Sub CommandButton9_Click()
If MsgBox("Attention vous allez Enregistrer" & Chr(10) & _
"cette Facture comme Réglée!!!!" & Chr(10) & _
"Voulez-vous continuer????", vbYesNo, "Confirmation") = vbNo Then Exit Sub

TextBox12 = TextBox6
TextBox14 = "P"
TextBox6 = ""
'TextBox10 = ""
'TextBox11 = ""

Dim C As Byte, li As Long
'--mise à jour listview
With ListView1
li = Mid(.ListItems(.SelectedItem.Index).Key, 2) 'N° ligne de la feuille
If MsgBox("Confirmation de L'Enregistrement" & Chr(10) & _
"", vbYesNo, "Confirmation") = vbNo Then Exit Sub
'--mise à jour des colonnes de la listview
.ListItems(.SelectedItem.Index).Text = (TextBox1)

For C = 1 To 13 '.ColumnHeaders.Count - 1
.ListItems(.SelectedItem.Index).ListSubItems(C).Text = Controls("TextBox" & C + 1)
Next C
End With

MiseEnForme

'--mise à jour de la feuille
With Sheets("Data")
.Unprotect Password:="0000"
For C = 1 To 14
Select Case C
Case 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14
.Cells(li, C) = (Controls("TextBox" & C))
'Case 1
' If Right(Controls("TextBox" & C), 1) = "%" Or Right(Controls("TextBox" & C), 1) = "€" Then _
' .Cells(li, C) = CDbl(Left(Controls("TextBox" & C), Len(Controls("TextBox" & C)) - 1))

'Case 4, 14, 17, 20, 23
'.Cells(li, C) = CDate(Controls("TextBox" & C))
Case Else
'.Cells(li, C) = Controls("TextBox" & C)
End Select
Next C
.Protect Password:="0000"
End With
End Sub

Merci a tous

 

[PascalXLD]

Re : Modif de Code a apporter pour une Validation

Bonjour

tu peux ajouter en début de code

if tbx14<>"p" then exit sub

 

[MuscatMimi]

Re : Modif de Code a apporter pour une Validation

Bonjour Pascal

Merci de ta réponse

Je bloquait sur ça , en fait je savais, quel
nul je suis , il y a des moment
A noter: je vais te faire un MP pour me retirer un fichier dans Téléchargement, afin que je puisse mettre un nouveau mais plus élaboré

merci encore

 

[PascalXLD]

Re : Modif de Code a apporter pour une Validation

Re

Pour la zone téléchargement c'est david qu'il faut contacter