Discussion :

[azertym]

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.

[kiki29]

Salut, voir http://excel.developpez.com/faq/?page=Fonctions sinon voir aide en ligne sur fonction excel intégrée Gauche()

[azertym]

Salut Kiki, donc si je comprends bien l'aide de VB ne met d'aucune utilité, il faut que j'utilise ce code ci, qui pour moi est le plus approprié :

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
16
17
18
19
20
 
Function Limitation()
    Dim strChaine As String
 
    strChaine = Cells(3, 6)
    'La procédure va supprimer les caractères ; : !
    'dans la variable "Chaine"
    strChaine = SupprimeCaracteres(Left(strChaine, 30))
    MsgBox strChaine
End Function
 
Function SupprimeCaracteres(LeTexte As String, ParamArray A_Supprimer1())
    Dim i As Integer
    'Boucle sur les éléments du tableau
    For i = 0 To UBound(A_Supprimer1())
        'Supprime les caractères spécifiés
        LeTexte = Replace(LeTexte, A_Supprimer1(i), "")
    Next i
    SupprimeCaracteres = LeTexte
End Function

Donc j'ai bien le msgbox qui m'affiche les 30 premiers caractères, mais je n'arrive pas a ce qu'il m'efface dans la cellule les caractères en trop.

Je pense que c'est un problème avec les function non ?

[Philippe Tulliez]

Bonjour,

Pour conserver les 30 caractères de gauche d'une cellule.

Code :

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

Cells(3, 6) = Left(Cells(3, 6), 30)

L'aide d'Excel, ne peux pas prévoir tous les cas de figure.

[azertym]

Alors la je ne comprends pas Corona, je l'ai essayé ce code ci. J'avais du faire une erreur au moment de l'écrire.

En tout cas merci beaucoup ! C'est tout à fait ca !

[Philippe Tulliez]

Bonjour,
L'erreur que tu as peut-être commise, c'est de ne pas préciser à la fois le classeur et la feuille en plus du range.

Code :

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

Cells(3, 6) = Left(Cells(3, 6), 30)

est dangereux, parce-que tu risques d'écrire sur la feuille et/ou le classeur actif qui n'est peut-être pas celui que tu souhaites.
Le code ci-dessous est plus sûr.

Code :

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

1
2
3
 Dim wkb As Workbook: Set wkb = ThisWorkbook
 Dim sht As Worksheet: Set sht = wkb.Worksheets("maFeuille")
 sht.Cells(3, 6) = Left(sht.Cells(3, 6), 10)