Discussion :

[linooo]

Bonjour,

J'ai voulu créer une macro qui ne garde que les 30 premiers caractères dans chaque cellule des 100 premières lignes de la colonne A. (si j'ai 90 caractères dans une cellule, je ne veux garder que les 30 premiers).

Pour se faire, j'ai créé une fonction qui ne marche pas.
Elle me renvoie à chaque fois "maChaine".
Je ne sais pas si cela est du à une mauvaise utilisation de la fonction "left (xxx)" ou si c'est à cause du fait que j'initie mal "maChaine".
Etant donné que je débute en VBA je ne sais pas trop comment m'y prendre pour faire correctement l'initialisation.

Si quelqu'un pouvait m'aider, je lui serais très reconnaissant.

Voici mon code :

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
21
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 2007-06-22 par BoissinT
'
 
Dim maChaine As String
Dim resultat As String
 
i = 0
While i < 100
 
i = i + 1
maChaine = Range("A" & i).Value
resultat = Left("maChaine", 30)
Range("A" & i).Value = resultat
 
Wend
 
'
End Sub

[mout1234]

Code :

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

resultat = Left(maChaine, 30)

maChaine est une variable. Pour utiliser la valeur qu'elle contient dans une expression, tu écris son nom tout simplement.

Ainsi Msgbox maChaine affiche le texte contenu dans la variable maChaine.

Alors que Msgbox "Bonjour" ne fait qu'afficher la chaine de caractère <<Bonjour>>.

[mordrhim]

tu peux même faire d'un coup ^^ en remplacant

Code :

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

1
2
3
maChaine = Range("A" & i).Value
resultat = Left("maChaine", 30)
Range("A" & i).Value = resultat

par

Code :

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

Range("A" & i).Value = Left(Range("A" & i).Value, 30)

[linooo]

Merci à tous les deux, je viens d'effectuer la modification, et tout marche pour le mieux.

Bonne fin de journée.