Bonjour à tous,

Je viens vers vous car j'ai un soucis que je ne comprends pas.

Je souhaite faire une Fonction Left en VBA qui coupe la description si elle contient plus de 30 caractères , j'ai donc regardé l'aide de VB et je suis tombé sur ce code ci :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Dim AnyString, MyStr
AnyString = "Bonjour à tous"    ' Définit la chaîne.
MyStr = Left(AnyString, 1)    ' Renvoie "B".
MyStr = Left(AnyString, 7)    ' Renvoie "Bonjour".
MyStr = Left(AnyString, 20)    ' Renvoie "Bonjour à tous".
Que j'ai édité en fonction de mes besoins :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
 
Function Limitation()
Dim AnyString, MyStr
 
AnyString = Cells(3, 6) 'Cellule F3
 
MyStr = Left(AnyString, 30) 'Ne garde que les 30 premiers caractères
 
End Function
Mais ca ne fonctionne pas. Rien ne se passe et je n'ai aucun message d'erreur.