please correction de code

Question

bonjour a tous

voici un bout de code me permettant normalement de transformer tous les "," en "é"....
mais cela ne fonctionne pas...
alors si vous voyez pourkoi dites le moi
merci bcp

Sub tel()
Dim Ligne As Integer
Dim nbligne As Integer
Dim cellule As String

''compte le nombre de ligne
nbligne = ActiveSheet.UsedRange.Rows.Count
nbligne = nbligne + ActiveSheet.UsedRange.Row - 1

For Ligne = nbligne To 1 Step -1 ''test pour epurer les lignes indésirables

cellule = Left(Cells(Ligne, 1), 5)

If cellule = "T‚l :" Then
cellule = Replace(cellule, ‚, é)
End If
Next Ligne

End Sub

HFanny · Answer

Dans la fonction replace, il faut que tu précises que tu souhaites remplacer les "," par des "é" donc il faut les mettre entre guillemets :

cellule = Replace(cellule,",","é")

Fanny

king_kunu · Answer

merci bcp

g essaye mais la transformation ne s'affiche pas.
la cellule est bien transformée (j'affiche la valeur grace a un msgbox)
mais sous excel la cellule reste inchang

HFanny · Answer

Oui en effet c'est normal car tu ne fais que changer la valeur de ta variable cellule, et non pas le contenu de ta cellule meme.

Car comme tu récupères le contenu de la cellule dans une variable 
cellule = Left(Cells(Ligne, 1), 5)
Il faut ensuite que tu fasses la démarche inverse  ;) 

J'espère que c'est bien ça  :) 

Fanny

king_kunu · Answer

re a tous

g trouve c't juste a cause du format de mon fichier...
merci de m'avoir accorder du temps...
@++

king_kunu · Answer

c't ca aussi
je l'ai corrige 
merci encore

Please correction de code

5 réponses

Discussions similaires