excel case:nom prenom ---> case:nom case:prenom

excel case:nom prenom ---> case:nom case:prenom - VB/VBA/VBS - Programmation

Marsh Posté le 03-06-2005 à 19:16:16    

Bonjour,
 
ça doit être trop facile pour vous:
une macro excel qui sépare 2 données d'une cellule dans 2 cellules distinctes.
ex:
[Jean-marie Loncle]              [Jean-marie][Loncle]
[stéphanie marchand]     ===>    [stéphanie][marchand]  
[sébastien lieutenant]           [sébastien][lieutenant]
 
merci beaucoup.

Reply

Marsh Posté le 03-06-2005 à 19:16:16   

Reply

Marsh Posté le 04-06-2005 à 07:20:51    

Bonjour,
Voilà une macro qui fait celà pour une cellule.
A insérer dans une boucle.

Code :
  1. Sub Separe()
  2. If InStr(ActiveCell.Text, " " ) > 0 Then
  3. Tablo = Split(ActiveCell.Text)
  4. For i = 0 To UBound(Tablo)
  5. ActiveCell.Offset(0, i).Value = Tablo(i)
  6. Next
  7. End If
  8. End Sub


A+

Reply

Marsh Posté le 04-06-2005 à 16:18:51    

... mais on peut aussi y arriver sans macro
 
en mettant dans la colonne 2 :
=GAUCHE(A1;TROUVE(" ";A1)-1)
 
et dans la colonne 3
=DROITE(A1;NBCAR(A1)-TROUVE(" ";A1))
 
A+

Reply

Sujets relatifs:

Leave a Replay

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