VBA bug conversion

[Florian53]

Bonjour à tous,

Je souhaite réaliser une conversion de nombre en texte avec l'aide d'une macro, je voudrais qu'elle balaye toutes les colonnes jusqu'à la dernière remplie depuis le Colonne " C":

J'ai réalisé cette macro mais j'ai un bug au niveau du range, pouvez mous m'expliquer svp :

Sub Nombre()
Dim nbColonne As Integer, i As Integer

nbColonne = Range("C1").End(xlToRight).Column
For i = 3 To nbColonne

Range(i & "1").Select
Selection.TextToColumns Destination:=Range(i & "1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 4), TrailingMinusNumbers:=True

Next
End Sub

Merci

 

[pijaku]

Bonjour,

A ton avis, que vaut i & "1" lorsque i = 3?

 

[Florian53]

J'avais dans l'idée que si i=3 alors le résultat était " C"

 

[pijaku]

Il te faut donc utiliser une autre syntaxe : Cells
Comme ceci par exemple : Cells(1, i)

Un second point est que tu ne traites que la première ligne avec ton code au lieu de traiter toute les colonnes...

 

[Florian53]

je voudrais qu'elle traite la ligne 1 sur toutes les colonnes.

Mais effectivement si je voudrais que cette macro agit directement sur toutes les cellules de la feuil peux tu me dire qu'elle syntaxe est à adopté pour ça ?

 

[pijaku]

Columns(i) peut être?

 

[Florian53]

Nickel sa a l'air de fonctionner merci à toi