limiter la saisie dans une cellule

**lecail65** · 12/12/2007, 10h26

Bonjour à tous.

Je cherche à limiter la saisie dans une cellule d'une feuille Excel mais je ne vois pas quelle fonction utiliser et je ne sais pas s'il en existe une d'ailleur.

Pour le moment j'arrive à limiter la saisie par l'événement Validation de la cellule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
 
With Selection.Validation
        .Delete
        .Add Type:=xlValidateTextLength, AlertStyle:=xlValidAlertStop, _
        Operator:=xlLessEqual, Formula1:="10"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = "Le commentaire ne doit pas dépasser les 10 caractères"
        .ShowInput = True
        .ShowError = True
    End With

certe ce fonctionnement n'est pas trop mal mais si l'utilisateur clique sur "oui" dans la MSGBOX alors le texte est gardé et surtout il est > à 40 caratères. Puis pareil si je met :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 AlertStyle:=xlValidAlertStop

là mon texte est tout simplement effacé.

Donc voila pouvez vous me dire comment faire pour que lors de la saisie dans une cellule, celle ci ne puisse pas accepter un certain nombre de caractères...

Merci d'avance !

**Michel_M** · 12/12/2007, 10h43

Bonjour,

Sans mobiliser du VBA, tu peux utiliser la validation de données:
xl 2000

validation-données longueur du texte

**LeForestier** · 12/12/2007, 10h47

Bonjour,
Il y a plusieur solutions, l'une d'elle serrait de ne pas mettre 2 boutons dans le MsgBox mais seulement 'OK' et d'annuler automatiquement la saisie.
A+

**lecail65** · 12/12/2007, 10h55

D'accord pour ne mettre q'un seul bouton dans la msgbox seulement comment faire ? vu que celle-ci est générée par la ligne suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

AlertStyle:=xlValidAlertWarning

Ensuite si j'annule la saisie je vais surement perdre le texte, non ?

**ouskel'n'or** · 12/12/2007, 11h04

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Public Adres
Private Sub Worksheet_Change(ByVal Target As Range)
Adres = Target.Address
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If not Target.address (false, false) = Adresse de ta cellule then exit sub
'Ici ton test
if len(target) > 40 then
    'On efface tout
    Range(Adres).ClearContents
    'et on retourne sur 
    Range(Adres).Select
endif
End Sub

Tu peux simplement vérifier que tu es dans la bonne colonne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If not Target.column = NoColonne then exit sub

... si j'ai bien compris

Edit
Et pour le second test tu peux raccourcir simplement la saisie... au lieu de l'effacer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
If Len(Taget) > 40 then 
     Target = Left(Target, 40)
     Range(Adres).Select
Endif

**LeForestier** · 12/12/2007, 11h07

Bonjour Ouskel'n'or,
J'ai aussi pensé comme toi, mais mon avis il veux garder l'ancien texte..
Si oui, mettre une variable globale et mémoriser le contenu de la cellule dans la variable dans l'événement Change, et dans l'annulation suite au MsgBox, remettre le contenu de la variable dans la cellule.
Comme toi... Si j'ai bien compris.

**lecail65** · 12/12/2007, 11h15

Oui le principe est de garder l'ancien texte. En fait voilà, est-il possible d'appliquer une sorte de mask de saisie pour une cellule donnée ??

Car si j'applique le code de Ouskel'n'or en memorisant le texte puis en le réaffichant cela revien a gardé l'erreur de dépassement de caractères, euh vous voyez à peut près ?