KTM
XLDnaute Impliqué
Bonsoir chers tous
Je voudrais vérifier si mon code est déjà enregistrer le mois indiqué
J'ai essayé le code suivant mais cela ne marche pas avec tous les codes
Veuillez me guider . Merci
Je voudrais vérifier si mon code est déjà enregistrer le mois indiqué
J'ai essayé le code suivant mais cela ne marche pas avec tous les codes
Veuillez me guider . Merci
VB:
Private Sub CommandButton1_Click()
Dim plage, c As Range
Set plage = Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row)
For Each c In plage
If c = UCase(Me.TextBox2.Text) And c.Offset(, 1) = CDate(TextBox1) Then
MsgBox "Le Patient " & c & " Est deja Enregistré pour ce mois ", 64: TextBox2 = "": Set plage = Nothing: Exit Sub
End If
Next
End Sub