Boucle sur colonne

[Temjeh]

Bonjour et merci

Je ne me souviens plus comment boucler sur colonne différente(ici 1,2,3,7)

For i = 1 to (col1,col2,col3,col7)
mon code
Next i

A+

Temjeh

EDIT: j'ai pensé à ceci:

For i = 1 to 4
If i = 4 Then i = 7
mon code
Next i

...qui fonctionne mais y a t il une facon plus propre

Merci

Temjeh

 

[Cousinhub]

Re : Boucle sur colonne

Bonsoir,

ceci, peut-être?

Col = Array("1", "2", "3", "7")
For Each I In Col
    MsgBox I
Next I

 

[Temjeh]

Re : Boucle sur colonne

Merci

ERREUR 1004 sur Columns(i).Select:

col = Array("1", "2", "3", "7")
For Each i In col
Columns(i).Select
Selection.TextToColumns Destination:=Cells(1, i), DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True
Application.DisplayAlerts = True
Next i

A+

Temjeh

 

[Cousinhub]

Re : Boucle sur colonne

RE,

tu n'avais pas mis toutes les données.....

De plus, tu veux convertir des données.....

Si tu es sûr que toutes les données à convertir doivent rester dans les colonnes respectives, tu peux essayer ceci :

For Each I In Array("1", "2", "3", "7")
    Columns(Val(I)).TextToColumns Destination:=Cells(1, Val(I)), _
    DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
    ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
    Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1), _
    TrailingMinusNumbers:=True
Next I

 

[Temjeh]

Re : Boucle sur colonne

Ok merci beaucoup


Je ne les convertis pas mais simplement remettre des chiffres venant du net en nombre!

Prob régler
Temjeh