Vérification de la validité de la saisie dans une cellule.

[harzer]

Bonjour à tous
Lors de l’encodage dans les cellules se trouvant dans les colonnes A, B et C, on sait à l’avance que l’opérateur doit absolument finir la saisie dans ces cellules soit par soit par la lettre ‘M’ ou la lettre ‘F’, si ce n’est pas le cas, comment enclencher un message (Genre Msgbox) invitant l'opérateur à apporter la correction, à ce sujet, y’aurait-il moyen placer le curseur exactement à la fin de la cellule incriminée (Focus) afin d’apporter la rectification nécessaire.
Je joints un fichier pour les tests.
D’avance merci de votre aide.

 

[Softmama]

Re : Vérification de la validité de la saisie dans une cellule.

Bonjour,

vois le fichier joint.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column > 3 Then Exit Sub
If Target <> "" Then
  If Right(Target, 1) <> "F" And Right(Target, 1) <> "M" Then
    MsgBox "pas bon la saisie en cellule " & Target.Address(0, 0) & vbLf & "Veuillez corriger !", vbCritical, "Pouet"
    Target.Select
    SendKeys "{F2}"
  End If
End If
End Sub

 

[harzer]

Re : Vérification de la validité de la saisie dans une cellule.

Bonjour Softmama,
Parfaitement PARFAIT, c'est vraiment ce que j'attendais. merci beaucoup.
Amicalement.