Discussion :

[ch7787]

Bonjour le forum,
J'ai un problème avec ma macro Excel. En fait je parcoure la colonne "O" de mon fichier "TRT_UF.csv" pour enlever les ".00" à la fin de la chaîne lu à chaque fois dans la cellule. J'utilse ce code :

Code :

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

1
2
3
4
5
6
7
8
9
'remplacer dans la colonne "O" les ".00" par rien'
Workbooks("TRT_UF.csv").Worksheets("TRT_UF").Activate
Workbooks("TRT_UF.csv").Worksheets("TRT_UF").UsedRange.Rows("2:" & Workbooks("TRT_UF.csv").Worksheets("TRT_UF").UsedRange.Rows.Count).Columns(15).Select
For Each cel In Selection.Cells
    Ligne4 = cel.Row
    MaVariable6 = cel.Value
    pos = InStr(MaVariable6, ".") 'position de début du caractère .00
    Workbooks("TRT_UF.csv").Worksheets("TRT_UF").Cells(Ligne4, 15) = Mid(MaVariable6, 1, pos - 1) 'récupérer la partie sans .00
Next cel

La macro s'execute, elle supprime bien toute les ''.00'' et quand elle termine elle me sort l'erreur "l'indice n'appartient pas à la selection" !! L'erreur est repéré dans la ligne :

Code :

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

Workbooks("TRT_UF.csv").Worksheets("TRT_UF").Cells(Ligne4, 15) = Mid(MaVariable6, 1, pos - 1) 'récupérer la partie sans .00

quand je regarde dans mon code je trouve que ligne4 vaut 2 ce qui veut dire à mon avis qu'il a reprit la boucle de nouveau !!
Si quelqu'un peut me dire d'ou vient cette erreur et comment la corriger, je suis prenante.
Merci pour votre aide, rapide j'espère.

[zyhack]

Bonjour

je trouvais ta selection un peu bizar et le fait d'utiliser des select, selection, le nom complet du classeur et de la feuille un peu partout que j'ai un peu simplifié le tout.

Code :

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

1
2
3
4
5
6
7
8
9
With Workbooks("TRT_UF.csv").Worksheets("TRT_UF")
For Each cel In .Range(.Cells(2, 15), .Cells(.Cells(2, 15).End(xlDown).Row, 15))
    Ligne4 = cel.Row
    pos = InStr(cel.Value, ".") 'position de début du caractère .00
    If pos > 0 Then 'si un point à été trouvé car sinon il y a une erreur
      .Cells(cel.Row, 15) = Mid(cel.Value, 1, pos - 1) 'récupérer la partie sans .00
    End If
Next cel
End With

[Gorfael]

Salut ch7787 et leforum

quand je regarde dans mon code je trouve que ligne4 vaut 2 ce qui veut dire à mon avis qu'il a reprit la boucle de nouveau !!
Si quelqu'un peut me dire d'ou vient cette erreur et comment la corriger, je suis prenante.

Un peu de logique : si ton code s'effectue une fois, c'est qu'il ne comporte pas d'erreur flagrante.
Donne l'intégralité de ta macro, et on pourra sans doute t'aider. Mais là, comme l'erreur ne semble pas venir du lambeau de code fourni, tout cequ'on peu faire, c'est "l'améliorer" comme zyhack l'a fait. mais ça ne résoudra pas ton problème.
A+