Bonjour le forum
voici un code que je souhaite exécuter une fois par ligne soit 100 boucles
Sub Convertir()
'
' Convertir Macro
'
MsgBox " Sélectionnez le nombre non alligné "
' Range("E3").Select
' For X = 1 To 100
Selection.TextToColumns Destination:=ActiveCell, DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
ActiveCell.Range("A1").Select
' ActiveCell.Offset(1, 0).Range("A1").Select
'
' ActiveCell.Select
' Next X
End Sub
la 1ère boucle démarre sur la cellule E3 et ensuite descend jusqu'a la ligne E100
ensuite, redémarrer la boucle sur la colonne I3, jusqu'a I100
j'ai essayé avec For Next, mais cela ne marche pas
Qui peut m'aider ?
Merci d'avance
Amitiés
Pierrot