Bonjour,
Après un copier/coller d'un document Word dans Excel, je récupère dans une
même cellule des caractères en gras puis des caractères non gras (en
l'occurence les noms de famille sont en gras et les prénoms en police
simple)
Je souhaiterais pouvoir détecter le nombre de caractères en gras pour
pouvoir séparer les deux parties de la cellule en deux colonnes.
L'un d'entre vous aurait il une idée pour le faire ?
Avec mes remerciements anticipés,
A bientôt
Philippe
Bonjour,
Après un copier/coller d'un document Word dans Excel, je récupère dans une
même cellule des caractères en gras puis des caractères non gras (en
l'occurence les noms de famille sont en gras et les prénoms en police
simple)
Je souhaiterais pouvoir détecter le nombre de caractères en gras pour
pouvoir séparer les deux parties de la cellule en deux colonnes.
L'un d'entre vous aurait il une idée pour le faire ?
Avec mes remerciements anticipés,
A bientôt
Philippe
Bonjour,
Après un copier/coller d'un document Word dans Excel, je récupère dans une
même cellule des caractères en gras puis des caractères non gras (en
l'occurence les noms de famille sont en gras et les prénoms en police
simple)
Je souhaiterais pouvoir détecter le nombre de caractères en gras pour
pouvoir séparer les deux parties de la cellule en deux colonnes.
L'un d'entre vous aurait il une idée pour le faire ?
Avec mes remerciements anticipés,
A bientôt
Philippe
pour savoir si le 2ème caractère de la cellule a1 est gras :
MsgBox Range("a1").Characters(2, 1).Font.FontStyle
http://jacxl.free.fr/
"Philippe" a écrit dans le message de news:Bonjour,
Après un copier/coller d'un document Word dans Excel, je récupère dans
une
même cellule des caractères en gras puis des caractères non gras (en
l'occurence les noms de famille sont en gras et les prénoms en police
simple)
Je souhaiterais pouvoir détecter le nombre de caractères en gras pour
pouvoir séparer les deux parties de la cellule en deux colonnes.
L'un d'entre vous aurait il une idée pour le faire ?
Avec mes remerciements anticipés,
A bientôt
Philippe
pour savoir si le 2ème caractère de la cellule a1 est gras :
MsgBox Range("a1").Characters(2, 1).Font.FontStyle
J@C
http://jacxl.free.fr/
"Philippe" <ph.berard@wanadoo.fr> a écrit dans le message de news:
ubdTzNsmDHA.1740@TK2MSFTNGP12.phx.gbl...
Bonjour,
Après un copier/coller d'un document Word dans Excel, je récupère dans
une
même cellule des caractères en gras puis des caractères non gras (en
l'occurence les noms de famille sont en gras et les prénoms en police
simple)
Je souhaiterais pouvoir détecter le nombre de caractères en gras pour
pouvoir séparer les deux parties de la cellule en deux colonnes.
L'un d'entre vous aurait il une idée pour le faire ?
Avec mes remerciements anticipés,
A bientôt
Philippe
pour savoir si le 2ème caractère de la cellule a1 est gras :
MsgBox Range("a1").Characters(2, 1).Font.FontStyle
http://jacxl.free.fr/
"Philippe" a écrit dans le message de news:Bonjour,
Après un copier/coller d'un document Word dans Excel, je récupère dans
une
même cellule des caractères en gras puis des caractères non gras (en
l'occurence les noms de famille sont en gras et les prénoms en police
simple)
Je souhaiterais pouvoir détecter le nombre de caractères en gras pour
pouvoir séparer les deux parties de la cellule en deux colonnes.
L'un d'entre vous aurait il une idée pour le faire ?
Avec mes remerciements anticipés,
A bientôt
Philippe
Merci beaucoup
Et pour détecter la partie de la cellule en majuscule, existe-t-il un
autre
moyen que de passer par la fonction Code().
Philippe
"" a écrit dans le message de
news:uZg%pour savoir si le 2ème caractère de la cellule a1 est gras :
MsgBox Range("a1").Characters(2, 1).Font.FontStyle
http://jacxl.free.fr/
"Philippe" a écrit dans le message de news:Bonjour,
Après un copier/coller d'un document Word dans Excel, je récupère dans
unemême cellule des caractères en gras puis des caractères non gras (en
l'occurence les noms de famille sont en gras et les prénoms en police
simple)
Je souhaiterais pouvoir détecter le nombre de caractères en gras pour
pouvoir séparer les deux parties de la cellule en deux colonnes.
L'un d'entre vous aurait il une idée pour le faire ?
Avec mes remerciements anticipés,
A bientôt
Philippe
Merci beaucoup
Et pour détecter la partie de la cellule en majuscule, existe-t-il un
autre
moyen que de passer par la fonction Code().
Philippe
"j@c" <jacques.chaussard@noos.fr> a écrit dans le message de
news:uZg%23SlsmDHA.684@TK2MSFTNGP09.phx.gbl...
pour savoir si le 2ème caractère de la cellule a1 est gras :
MsgBox Range("a1").Characters(2, 1).Font.FontStyle
J@C
http://jacxl.free.fr/
"Philippe" <ph.berard@wanadoo.fr> a écrit dans le message de news:
ubdTzNsmDHA.1740@TK2MSFTNGP12.phx.gbl...
Bonjour,
Après un copier/coller d'un document Word dans Excel, je récupère dans
une
même cellule des caractères en gras puis des caractères non gras (en
l'occurence les noms de famille sont en gras et les prénoms en police
simple)
Je souhaiterais pouvoir détecter le nombre de caractères en gras pour
pouvoir séparer les deux parties de la cellule en deux colonnes.
L'un d'entre vous aurait il une idée pour le faire ?
Avec mes remerciements anticipés,
A bientôt
Philippe
Merci beaucoup
Et pour détecter la partie de la cellule en majuscule, existe-t-il un
autre
moyen que de passer par la fonction Code().
Philippe
"" a écrit dans le message de
news:uZg%pour savoir si le 2ème caractère de la cellule a1 est gras :
MsgBox Range("a1").Characters(2, 1).Font.FontStyle
http://jacxl.free.fr/
"Philippe" a écrit dans le message de news:Bonjour,
Après un copier/coller d'un document Word dans Excel, je récupère dans
unemême cellule des caractères en gras puis des caractères non gras (en
l'occurence les noms de famille sont en gras et les prénoms en police
simple)
Je souhaiterais pouvoir détecter le nombre de caractères en gras pour
pouvoir séparer les deux parties de la cellule en deux colonnes.
L'un d'entre vous aurait il une idée pour le faire ?
Avec mes remerciements anticipés,
A bientôt
Philippe
Bonjour,
Après un copier/coller d'un document Word dans Excel, je récupère dans une
même cellule des caractères en gras puis des caractères non gras (en
l'occurence les noms de famille sont en gras et les prénoms en police
simple)
Je souhaiterais pouvoir détecter le nombre de caractères en gras pour
pouvoir séparer les deux parties de la cellule en deux colonnes.
L'un d'entre vous aurait il une idée pour le faire ?
Avec mes remerciements anticipés,
A bientôt
Philippe
Bonjour,
Après un copier/coller d'un document Word dans Excel, je récupère dans une
même cellule des caractères en gras puis des caractères non gras (en
l'occurence les noms de famille sont en gras et les prénoms en police
simple)
Je souhaiterais pouvoir détecter le nombre de caractères en gras pour
pouvoir séparer les deux parties de la cellule en deux colonnes.
L'un d'entre vous aurait il une idée pour le faire ?
Avec mes remerciements anticipés,
A bientôt
Philippe
Bonjour,
Après un copier/coller d'un document Word dans Excel, je récupère dans une
même cellule des caractères en gras puis des caractères non gras (en
l'occurence les noms de famille sont en gras et les prénoms en police
simple)
Je souhaiterais pouvoir détecter le nombre de caractères en gras pour
pouvoir séparer les deux parties de la cellule en deux colonnes.
L'un d'entre vous aurait il une idée pour le faire ?
Avec mes remerciements anticipés,
A bientôt
Philippe
Bonjour,
Une fonction perso VBA (matricielle) pourrait te permettre de récupérer
les deux
infos en même temps :
'============== > Function NomPrenom(cell As Range)
Dim i&, pos&, Arr(0 To 1)
For i = 1 To Len(cell.Text)
If cell.Characters(i, 1).Font.Bold Then pos = i
Next
Arr(0) = Trim(Left(cell.Text, pos))
Arr(1) = Trim(Right(cell.Text, Len(cell.Text) - pos))
NomPrenom = Arr
End Function
Bonjour,
Une fonction perso VBA (matricielle) pourrait te permettre de récupérer
les deux
infos en même temps :
'============== > Function NomPrenom(cell As Range)
Dim i&, pos&, Arr(0 To 1)
For i = 1 To Len(cell.Text)
If cell.Characters(i, 1).Font.Bold Then pos = i
Next
Arr(0) = Trim(Left(cell.Text, pos))
Arr(1) = Trim(Right(cell.Text, Len(cell.Text) - pos))
NomPrenom = Arr
End Function
Bonjour,
Une fonction perso VBA (matricielle) pourrait te permettre de récupérer
les deux
infos en même temps :
'============== > Function NomPrenom(cell As Range)
Dim i&, pos&, Arr(0 To 1)
For i = 1 To Len(cell.Text)
If cell.Characters(i, 1).Font.Bold Then pos = i
Next
Arr(0) = Trim(Left(cell.Text, pos))
Arr(1) = Trim(Right(cell.Text, Len(cell.Text) - pos))
NomPrenom = Arr
End Function
Bonsoir,
Cette petite fonction fonctionne (si j'ose dire) à merveille.
Mais ayant un a priori négatif vis à vis des formules matricielles, je
souhaiterais pouvoir intégrer un argument supplémentaire pour indiquer si
l'on veut dans la colonne le nom ou le prénom.
Je l'ai donc adapté de la fàçon suivante, mais qui malheureusement me donne
un magnifique message d'erreur !
Pourrais-tu me donner un petit coup de main ?
Merci encore
Philippe
nb : pour ma culture personnelle, pourquoi intègres-tu dans la décalration
de variables un "&" après la variable ?
Function NomPrenom(cell As Range, NouP As Range)
'Dim i&, pos&, Arr(0 To 1)
Dim i, pos, N, P, Nom, Prenom
For i = 1 To Len(cell.Text)
If cell.Characters(i, 1).Font.Bold Then pos = i
Next
Nom = Trim(Left(cell.Text, pos))
Prenom = Trim(Right(cell.Text, Len(cell.Text) - pos))
If NouP = N Then
NomPrenom = Nom
Else
NomPrenom = Prenom
End If
End Function
"Frédéric Sigonneau" a écrit dans le message
de news:Bonjour,
Une fonction perso VBA (matricielle) pourrait te permettre de récupérer
les deuxinfos en même temps :
'============== > > Function NomPrenom(cell As Range)
Dim i&, pos&, Arr(0 To 1)
For i = 1 To Len(cell.Text)
If cell.Characters(i, 1).Font.Bold Then pos = i
Next
Arr(0) = Trim(Left(cell.Text, pos))
Arr(1) = Trim(Right(cell.Text, Len(cell.Text) - pos))
NomPrenom = Arr
End Function
Bonsoir,
Cette petite fonction fonctionne (si j'ose dire) à merveille.
Mais ayant un a priori négatif vis à vis des formules matricielles, je
souhaiterais pouvoir intégrer un argument supplémentaire pour indiquer si
l'on veut dans la colonne le nom ou le prénom.
Je l'ai donc adapté de la fàçon suivante, mais qui malheureusement me donne
un magnifique message d'erreur !
Pourrais-tu me donner un petit coup de main ?
Merci encore
Philippe
nb : pour ma culture personnelle, pourquoi intègres-tu dans la décalration
de variables un "&" après la variable ?
Function NomPrenom(cell As Range, NouP As Range)
'Dim i&, pos&, Arr(0 To 1)
Dim i, pos, N, P, Nom, Prenom
For i = 1 To Len(cell.Text)
If cell.Characters(i, 1).Font.Bold Then pos = i
Next
Nom = Trim(Left(cell.Text, pos))
Prenom = Trim(Right(cell.Text, Len(cell.Text) - pos))
If NouP = N Then
NomPrenom = Nom
Else
NomPrenom = Prenom
End If
End Function
"Frédéric Sigonneau" <frederic.sigonneau@wanadoo.fr> a écrit dans le message
de news:3F9A42C4.65A1891E@wanadoo.fr...
Bonjour,
Une fonction perso VBA (matricielle) pourrait te permettre de récupérer
les deux
infos en même temps :
'============== > > Function NomPrenom(cell As Range)
Dim i&, pos&, Arr(0 To 1)
For i = 1 To Len(cell.Text)
If cell.Characters(i, 1).Font.Bold Then pos = i
Next
Arr(0) = Trim(Left(cell.Text, pos))
Arr(1) = Trim(Right(cell.Text, Len(cell.Text) - pos))
NomPrenom = Arr
End Function
Bonsoir,
Cette petite fonction fonctionne (si j'ose dire) à merveille.
Mais ayant un a priori négatif vis à vis des formules matricielles, je
souhaiterais pouvoir intégrer un argument supplémentaire pour indiquer si
l'on veut dans la colonne le nom ou le prénom.
Je l'ai donc adapté de la fàçon suivante, mais qui malheureusement me donne
un magnifique message d'erreur !
Pourrais-tu me donner un petit coup de main ?
Merci encore
Philippe
nb : pour ma culture personnelle, pourquoi intègres-tu dans la décalration
de variables un "&" après la variable ?
Function NomPrenom(cell As Range, NouP As Range)
'Dim i&, pos&, Arr(0 To 1)
Dim i, pos, N, P, Nom, Prenom
For i = 1 To Len(cell.Text)
If cell.Characters(i, 1).Font.Bold Then pos = i
Next
Nom = Trim(Left(cell.Text, pos))
Prenom = Trim(Right(cell.Text, Len(cell.Text) - pos))
If NouP = N Then
NomPrenom = Nom
Else
NomPrenom = Prenom
End If
End Function
"Frédéric Sigonneau" a écrit dans le message
de news:Bonjour,
Une fonction perso VBA (matricielle) pourrait te permettre de récupérer
les deuxinfos en même temps :
'============== > > Function NomPrenom(cell As Range)
Dim i&, pos&, Arr(0 To 1)
For i = 1 To Len(cell.Text)
If cell.Characters(i, 1).Font.Bold Then pos = i
Next
Arr(0) = Trim(Left(cell.Text, pos))
Arr(1) = Trim(Right(cell.Text, Len(cell.Text) - pos))
NomPrenom = Arr
End Function
Bonjour.
Function NomPrenom$(cell As Range, Optional NouP As Boolean = True)
Dim i&, pos&
For i = 1 To Len(cell.Text)
If cell.Characters(i, 1).Font.Bold Then pos = i
Next
If NouP Then
NomPrenom = Trim$(Left$(cell.Text, pos))
Else
NomPrenom = Trim$(Right$(cell.Text, Len(cell.Text) - pos))
End If
End Function
Si ta cell = A1, en C1 = NomPrenom(A1) ---> Nom
en D1 = NomPrenom(A1,FAUX) ---> Prenom
Le & remplace as long, le $ remplace as string
Alain CROS.
"Philippe" a écrit dans le message de news:
Bonsoir,
Cette petite fonction fonctionne (si j'ose dire) à merveille.
Mais ayant un a priori négatif vis à vis des formules matricielles, je
souhaiterais pouvoir intégrer un argument supplémentaire pour indiquer
si
l'on veut dans la colonne le nom ou le prénom.
Je l'ai donc adapté de la fàçon suivante, mais qui malheureusement me
donne
un magnifique message d'erreur !
Pourrais-tu me donner un petit coup de main ?
Merci encore
Philippe
nb : pour ma culture personnelle, pourquoi intègres-tu dans la
décalration
de variables un "&" après la variable ?
Function NomPrenom(cell As Range, NouP As Range)
'Dim i&, pos&, Arr(0 To 1)
Dim i, pos, N, P, Nom, Prenom
For i = 1 To Len(cell.Text)
If cell.Characters(i, 1).Font.Bold Then pos = i
Next
Nom = Trim(Left(cell.Text, pos))
Prenom = Trim(Right(cell.Text, Len(cell.Text) - pos))
If NouP = N Then
NomPrenom = Nom
Else
NomPrenom = Prenom
End If
End Function
"Frédéric Sigonneau" a écrit dans le
message
de news:Bonjour,
Une fonction perso VBA (matricielle) pourrait te permettre de
récupérer
les deuxinfos en même temps :
'============== > > > Function NomPrenom(cell As Range)
Dim i&, pos&, Arr(0 To 1)
For i = 1 To Len(cell.Text)
If cell.Characters(i, 1).Font.Bold Then pos = i
Next
Arr(0) = Trim(Left(cell.Text, pos))
Arr(1) = Trim(Right(cell.Text, Len(cell.Text) - pos))
NomPrenom = Arr
End Function
Bonjour.
Function NomPrenom$(cell As Range, Optional NouP As Boolean = True)
Dim i&, pos&
For i = 1 To Len(cell.Text)
If cell.Characters(i, 1).Font.Bold Then pos = i
Next
If NouP Then
NomPrenom = Trim$(Left$(cell.Text, pos))
Else
NomPrenom = Trim$(Right$(cell.Text, Len(cell.Text) - pos))
End If
End Function
Si ta cell = A1, en C1 = NomPrenom(A1) ---> Nom
en D1 = NomPrenom(A1,FAUX) ---> Prenom
Le & remplace as long, le $ remplace as string
Alain CROS.
"Philippe" <ph.berard@wanadoo.fr> a écrit dans le message de news:
OvRTn9wmDHA.3316@TK2MSFTNGP11.phx.gbl...
Bonsoir,
Cette petite fonction fonctionne (si j'ose dire) à merveille.
Mais ayant un a priori négatif vis à vis des formules matricielles, je
souhaiterais pouvoir intégrer un argument supplémentaire pour indiquer
si
l'on veut dans la colonne le nom ou le prénom.
Je l'ai donc adapté de la fàçon suivante, mais qui malheureusement me
donne
un magnifique message d'erreur !
Pourrais-tu me donner un petit coup de main ?
Merci encore
Philippe
nb : pour ma culture personnelle, pourquoi intègres-tu dans la
décalration
de variables un "&" après la variable ?
Function NomPrenom(cell As Range, NouP As Range)
'Dim i&, pos&, Arr(0 To 1)
Dim i, pos, N, P, Nom, Prenom
For i = 1 To Len(cell.Text)
If cell.Characters(i, 1).Font.Bold Then pos = i
Next
Nom = Trim(Left(cell.Text, pos))
Prenom = Trim(Right(cell.Text, Len(cell.Text) - pos))
If NouP = N Then
NomPrenom = Nom
Else
NomPrenom = Prenom
End If
End Function
"Frédéric Sigonneau" <frederic.sigonneau@wanadoo.fr> a écrit dans le
message
de news:3F9A42C4.65A1891E@wanadoo.fr...
Bonjour,
Une fonction perso VBA (matricielle) pourrait te permettre de
récupérer
les deux
infos en même temps :
'============== > > > Function NomPrenom(cell As Range)
Dim i&, pos&, Arr(0 To 1)
For i = 1 To Len(cell.Text)
If cell.Characters(i, 1).Font.Bold Then pos = i
Next
Arr(0) = Trim(Left(cell.Text, pos))
Arr(1) = Trim(Right(cell.Text, Len(cell.Text) - pos))
NomPrenom = Arr
End Function
Bonjour.
Function NomPrenom$(cell As Range, Optional NouP As Boolean = True)
Dim i&, pos&
For i = 1 To Len(cell.Text)
If cell.Characters(i, 1).Font.Bold Then pos = i
Next
If NouP Then
NomPrenom = Trim$(Left$(cell.Text, pos))
Else
NomPrenom = Trim$(Right$(cell.Text, Len(cell.Text) - pos))
End If
End Function
Si ta cell = A1, en C1 = NomPrenom(A1) ---> Nom
en D1 = NomPrenom(A1,FAUX) ---> Prenom
Le & remplace as long, le $ remplace as string
Alain CROS.
"Philippe" a écrit dans le message de news:
Bonsoir,
Cette petite fonction fonctionne (si j'ose dire) à merveille.
Mais ayant un a priori négatif vis à vis des formules matricielles, je
souhaiterais pouvoir intégrer un argument supplémentaire pour indiquer
si
l'on veut dans la colonne le nom ou le prénom.
Je l'ai donc adapté de la fàçon suivante, mais qui malheureusement me
donne
un magnifique message d'erreur !
Pourrais-tu me donner un petit coup de main ?
Merci encore
Philippe
nb : pour ma culture personnelle, pourquoi intègres-tu dans la
décalration
de variables un "&" après la variable ?
Function NomPrenom(cell As Range, NouP As Range)
'Dim i&, pos&, Arr(0 To 1)
Dim i, pos, N, P, Nom, Prenom
For i = 1 To Len(cell.Text)
If cell.Characters(i, 1).Font.Bold Then pos = i
Next
Nom = Trim(Left(cell.Text, pos))
Prenom = Trim(Right(cell.Text, Len(cell.Text) - pos))
If NouP = N Then
NomPrenom = Nom
Else
NomPrenom = Prenom
End If
End Function
"Frédéric Sigonneau" a écrit dans le
message
de news:Bonjour,
Une fonction perso VBA (matricielle) pourrait te permettre de
récupérer
les deuxinfos en même temps :
'============== > > > Function NomPrenom(cell As Range)
Dim i&, pos&, Arr(0 To 1)
For i = 1 To Len(cell.Text)
If cell.Characters(i, 1).Font.Bold Then pos = i
Next
Arr(0) = Trim(Left(cell.Text, pos))
Arr(1) = Trim(Right(cell.Text, Len(cell.Text) - pos))
NomPrenom = Arr
End Function