BOUCLE pour Macro Excel : case:nom prenom ---> case:nom case:prenom

BOUCLE pour Macro Excel : case:nom prenom ---> case:nom case:prenom - VB/VBA/VBS - Programmation

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

Reply

Marsh Posté le 21-07-2005 à 09:55:33   

Reply

Marsh Posté le 21-07-2005 à 10:45:49    

bonjour
Sub test()
Columns(1).Select
For Each o In Selection
o.activate
Separe
Next
End Sub
A+


Message édité par galopin01 le 21-07-2005 à 10:49:05

---------------
roger
Reply

Marsh Posté le 21-07-2005 à 10:57:19    

Merci de ton aide
 
a+  
Pascal

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed