Je voudrais savoir comment faire pour séparer le contenu d'une cellule en 2.
ex : que A B 1 | Nom Prenom |
donne A B 1 |Nom | Prenom
Merci
-- Ceci est une signature automatique de MesNews. Site : http://mesnews.no-ip.com
Michel HOLDERITH
Salut,
Sub essai() Dim CELL As Range For Each CELL In Range("A1", Range("a20000").End(xlUp)) CELL.Select nombre = Split(Range("A" & CELL.Row).Value, " ") Range("B" & CELL.Row).Value = nombre(0) Range("C" & CELL.Row).Value = nombre(1) Next CELL End Sub
En supposant que tes noms commencent en A1 puis en A2...... @+ Michel.
"lolo" wrote in message news:0a9601c3a465$aede9220$ Bonjour,
Je voudrais savoir comment faire pour séparer le contenu d'une cellule en 2.
ex : que A B 1 | Nom Prenom |
donne A B 1 |Nom | Prenom
Merci
Salut,
Sub essai()
Dim CELL As Range
For Each CELL In Range("A1", Range("a20000").End(xlUp))
CELL.Select
nombre = Split(Range("A" & CELL.Row).Value, " ")
Range("B" & CELL.Row).Value = nombre(0)
Range("C" & CELL.Row).Value = nombre(1)
Next CELL
End Sub
En supposant que tes noms commencent en A1 puis en A2......
@+
Michel.
"lolo" <anonymous@discussions.microsoft.com> wrote in message
news:0a9601c3a465$aede9220$a501280a@phx.gbl...
Bonjour,
Je voudrais savoir comment faire pour séparer le contenu
d'une cellule en 2.
Sub essai() Dim CELL As Range For Each CELL In Range("A1", Range("a20000").End(xlUp)) CELL.Select nombre = Split(Range("A" & CELL.Row).Value, " ") Range("B" & CELL.Row).Value = nombre(0) Range("C" & CELL.Row).Value = nombre(1) Next CELL End Sub
En supposant que tes noms commencent en A1 puis en A2...... @+ Michel.
"lolo" wrote in message news:0a9601c3a465$aede9220$ Bonjour,
Je voudrais savoir comment faire pour séparer le contenu d'une cellule en 2.
ex : que A B 1 | Nom Prenom |
donne A B 1 |Nom | Prenom
Merci
lolo
Michel,
Merci pour ton code, c'est presque ca, cependant, j'ai un message d'erreur : 400
Si tu peux me dire !
Michel,
Merci pour ton code, c'est presque ca, cependant, j'ai un
message d'erreur : 400