Fonction Left Vba

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:

---

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:

---

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.

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

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:

---

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 ?

Bonjour,

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

Code:

---

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

---

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

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

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

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:

---

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:

---

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)

---

Oui en effet c'est plus sure ainsi. Comme tu dis, le code n'étant pas sur le même classeur il n'a pas du aimer.

Voici le code définitif :

Code:

---

1 2 3 4 5 6

Function Limitation()   Dim wkb As Workbook: Set wkb = Workbooks("base.xls") Dim sht As Worksheet: Set sht = wkb.Worksheets("Feuil1") sht.Cells(3, 6) = Left(sht.Cells(3, 6), 30) End Function

---

Au moins comme ceci plus de problème entre les classeurs. Je te remercie bien Corona ! :ccool:

Bonjour,

Une fonction (Function) est faite pour renvoyer une valeur.
Si on n'a pas besoin de valeur en retour, on utilise une procédure (Sub).
Deux cas de figure:

Code:

---

1 2 3 4 5 6

Sub Limitation() ' On agit dans la feuille. Les zones sont figées ou doivent être passées en paramètre. Dim wkb As Workbook: Set wkb = Workbooks("base.xls") Dim sht As Worksheet: Set sht = wkb.Worksheets("Feuil1") sht.Cells(3, 6) = Left(sht.Cells(3, 6), 30) End Sub

---

Code:

---

1 2 3 4

Function Limitation(strSource As String) As String ' Renvoie les 30 premiers caractères de n'importe quelle chaîne fournie en paramètre. Limitation = Left(strSource, 30) End Function

---