Limitation de caractère avec Alerte

Fermé
Delph79 - 18 janv. 2010 à 16:00
Mike-31 Messages postés 18188 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 13 mars 2023 - 18 janv. 2010 à 16:11
Bonjour,
Je cherche à limiter le nombre de caractères à 18 dans la colonne B d'un fichier.
J'ai trouver un code dans une discussion sur votre site mais le souci est que ce code ne permet pas d'afficher de message d'alerte lorsque l'utilisateur dépasse les 18 caractères.
Voilà le code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B:B")) Is Nothing Then
On Error Resume Next
For Each c In Target
If Len(c) > 18 Then
c.Value = Left(c.Value, 18)
End If
Next c
End If
End Sub

Est-ce que quelqu'un saurait me dire comment faire pour avoir un message d'alerte qui s'affiche lorsque l'on essaie de dépasser les 18 caractères?
Merci

1 réponse

Mike-31 Messages postés 18188 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 13 mars 2023 5 041
18 janv. 2010 à 16:11
Salut,

tu n'as pas besoin de code macro, tu peux le faire avec Données/Validation

sélectionnes la plage de ta colonne B tu peux le faire avec Données/Validation/Onglet Options/Autoriser, sélectionner longueur de texte, dans Données sélectionner Inférieur ou égale a, dans maximum saisis 18

onglet Alerte d'erreur, saisis le message que tu souhaites voir s'afficher
1