Comment pourrais-je rajouter une boucle (Macro qui s'exécute sur toute la colonne) pour la macro Excel suivante qui sépare 2 données d'une cellule dans 2 cellules distinctes :
Sub Separe() If InStr(ActiveCell.Text, " " ) > 0 Then Tablo = Split(ActiveCell.Text) For i = 0 To UBound(Tablo) ActiveCell.Offset(0, i).Value = Tablo(i) Next End If End Sub
Marsh Posté le 21-07-2005 à 09:55:33
Bonjour,
Comment pourrais-je rajouter une boucle (Macro qui s'exécute sur toute la colonne)
pour la macro Excel suivante qui sépare 2 données d'une cellule dans 2 cellules distinctes :
Sub Separe()
If InStr(ActiveCell.Text, " " ) > 0 Then
Tablo = Split(ActiveCell.Text)
For i = 0 To UBound(Tablo)
ActiveCell.Offset(0, i).Value = Tablo(i)
Next
End If
End Sub
Merci d'avance
Pascal