Discussion :

[tomy7]

Bonjour,

j aimerai limiter le nombre de caracter dans une cellule et empecher que l utilisateur mette a la fin un espace...

Une idee...ou une façon de procede m aiderai fortement

merci
Tom

[epsylon_9]

Salut,
Je ne sais pas si cela pourras t'aider.

Menu Données => Validation => Options

• Autoriser Longueur du texte
• Minimum 1
• Maximum ce que tu souhaites.

Pour le second point je ne sais pas.

Ensuite si tu souhaites le Faire par code:

• Teste la longueur de la chaine avec LenB()
• Regarde le dernier caractère avec Mid$()

[mapeh]

Bonsoir,
peut-être comme ceci :

Code :

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

=ET(NBCAR(A1)<5;DROITE(A1;1)<>CAR(32))

pour limiter à 4 caractères maxi, et sans espace à la fin

[patbou]

bonjour,

tu as la fonction trim() pour supprimer les espaces

[tomy7]

ok je vais voir ce que je peu pondre comme code avec tout sa...

Merci
Tom

[tomy7]

ma solutions : dans un USF

Code :

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

1
2
3
4
5
 For i = 4 To 75
        Sheet2.Range("A" & i).Value = Trim(Sheet2.Range("A" & i).Value)
        Sheet2.Range("B" & i).Value = Trim(Sheet2.Range("B" & i).Value)
        Sheet2.Range("C" & i).Value = Trim(Sheet2.Range("C" & i).Value)
    Next i

dans thisworkbook:

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim i As Integer
For i = 4 To 75
If Len(Range("A" & i).Value) > 50 Or Len(Range("B" & i).Value) > 50 Or Len(Range("C" & i).Value) > 50 Then
MsgBox "too much caracter at the row:" & i
Exit Sub
End If
Next i
End Sub