Bonjour,
Est-il possible de simplifier ce code ?
For i = 14 To 20
Columns(i).Select
Selection.TextToColumns DataType:=xlFixedWidth, FieldInfo:=Array(0, 1), TrailingMinusNumbers:=True
Next i
For i = 22 To 27
Columns(i).Select
Selection.TextToColumns DataType:=xlFixedWidth, FieldInfo:=Array(0, 1), TrailingMinusNumbers:=True
Next i
For i = 29 To 34
Columns(i).Select
Selection.TextToColumns DataType:=xlFixedWidth, FieldInfo:=Array(0, 1), TrailingMinusNumbers:=True
Next i
For i = 36 To 41
Columns(i).Select
Selection.TextToColumns DataType:=xlFixedWidth, FieldInfo:=Array(0, 1), TrailingMinusNumbers:=True
Next i
etc
etc...
Je n'ai pas trouvé ou pas compris les réponses dans google
Merci
Est-il possible de simplifier ce code ?
For i = 14 To 20
Columns(i).Select
Selection.TextToColumns DataType:=xlFixedWidth, FieldInfo:=Array(0, 1), TrailingMinusNumbers:=True
Next i
For i = 22 To 27
Columns(i).Select
Selection.TextToColumns DataType:=xlFixedWidth, FieldInfo:=Array(0, 1), TrailingMinusNumbers:=True
Next i
For i = 29 To 34
Columns(i).Select
Selection.TextToColumns DataType:=xlFixedWidth, FieldInfo:=Array(0, 1), TrailingMinusNumbers:=True
Next i
For i = 36 To 41
Columns(i).Select
Selection.TextToColumns DataType:=xlFixedWidth, FieldInfo:=Array(0, 1), TrailingMinusNumbers:=True
Next i
etc
etc...
Je n'ai pas trouvé ou pas compris les réponses dans google
Merci