Une colonne de noms et prénoms, tous précédés d'une ou plusieurs espace,
J'ai essayé avec =chercher(<>" ";a1;1) de trouver la position de la
première lettre, mais c'est invalide.
Comment trouver la première lettre qui n'est pas un espace ?
pour ensuite extraire les noms et prénoms ?
La noirceur vient d'arriver et ce n'est pas chaud, très rapide, malheureusement cela enlève les espaces entre les noms et prénoms. Il faut seulement enlever les 3 à 5 espaces **avant **
Selectionne d'abord la plage à traiter cette macro supprime : - tout les caractères insécables (Asc(160)) - tout les espaces avant et après ( ___Abcde___ devient Abcde) - les espaces redondants à l'intérieur (abcd___efg___hij devient abcd_efg_hij) ;o))) la fonction trim(VBA) se comporte differement de la fonction de feuille calcul TRIM
Sub test() Dim C As Range Application.ScreenUpdating = False Application.EnableEvents = False With activesheet For Each C In Selection C.Replace Chr(160), "" C = Trim(WorksheetFunction.Trim(C)) Next End With Application.ScreenUpdating = True Application.EnableEvents = True End Sub
Bonsour0174
"Albert" a écrit
La noirceur vient d'arriver et ce n'est pas chaud,
très rapide, malheureusement cela enlève les espaces entre les noms et
prénoms.
Il faut seulement enlever les 3 à 5 espaces **avant **
Selectionne d'abord la plage à traiter
cette macro supprime :
- tout les caractères insécables (Asc(160))
- tout les espaces avant et après ( ___Abcde___ devient Abcde)
- les espaces redondants à l'intérieur (abcd___efg___hij devient abcd_efg_hij)
;o))) la fonction trim(VBA) se comporte differement de la fonction de feuille
calcul TRIM
Sub test()
Dim C As Range
Application.ScreenUpdating = False
Application.EnableEvents = False
With activesheet
For Each C In Selection
C.Replace Chr(160), ""
C = Trim(WorksheetFunction.Trim(C))
Next
End With
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
La noirceur vient d'arriver et ce n'est pas chaud, très rapide, malheureusement cela enlève les espaces entre les noms et prénoms. Il faut seulement enlever les 3 à 5 espaces **avant **
Selectionne d'abord la plage à traiter cette macro supprime : - tout les caractères insécables (Asc(160)) - tout les espaces avant et après ( ___Abcde___ devient Abcde) - les espaces redondants à l'intérieur (abcd___efg___hij devient abcd_efg_hij) ;o))) la fonction trim(VBA) se comporte differement de la fonction de feuille calcul TRIM
Sub test() Dim C As Range Application.ScreenUpdating = False Application.EnableEvents = False With activesheet For Each C In Selection C.Replace Chr(160), "" C = Trim(WorksheetFunction.Trim(C)) Next End With Application.ScreenUpdating = True Application.EnableEvents = True End Sub
Albert
Bonsoir / Bonjour Ça fait bien la job Merci MichD
albert
"michdenis" a écrit dans le message de news:idp5ic$jgk$
Désolé, j'aurais dû prendre le temps de tester...
Essaie ceci :
'------------------------------------------------ Sub test() Dim C As Range, A As Long Application.ScreenUpdating = False Application.EnableEvents = False With Worksheets("Feuil1") 'nom feuille à adapter For Each C In Range("A1:A10") For A = 1 To Len(C) Select Case Mid(C.Value, 1, 1) Case Chr(32), Chr(160) C = Right(C, Len(C) - 1) A = A - 1 Case Else Exit For End Select Next Next End With Application.ScreenUpdating = True Application.EnableEvents = True End Sub '------------------------------------------------
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:idp5ic$jgk$1@speranza.aioe.org...
Désolé, j'aurais dû prendre le temps de tester...
Essaie ceci :
'------------------------------------------------
Sub test()
Dim C As Range, A As Long
Application.ScreenUpdating = False
Application.EnableEvents = False
With Worksheets("Feuil1") 'nom feuille à adapter
For Each C In Range("A1:A10")
For A = 1 To Len(C)
Select Case Mid(C.Value, 1, 1)
Case Chr(32), Chr(160)
C = Right(C, Len(C) - 1)
A = A - 1
Case Else
Exit For
End Select
Next
Next
End With
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
'------------------------------------------------
"michdenis" a écrit dans le message de news:idp5ic$jgk$
Désolé, j'aurais dû prendre le temps de tester...
Essaie ceci :
'------------------------------------------------ Sub test() Dim C As Range, A As Long Application.ScreenUpdating = False Application.EnableEvents = False With Worksheets("Feuil1") 'nom feuille à adapter For Each C In Range("A1:A10") For A = 1 To Len(C) Select Case Mid(C.Value, 1, 1) Case Chr(32), Chr(160) C = Right(C, Len(C) - 1) A = A - 1 Case Else Exit For End Select Next Next End With Application.ScreenUpdating = True Application.EnableEvents = True End Sub '------------------------------------------------
Bonjour / Bonsoir Maude Este Merci, cela fonctionne aussi très bien albert
"Maude Este" a écrit dans le message de news:idp5n9$jtg$
Bonsour0174
"Albert" a écrit
La noirceur vient d'arriver et ce n'est pas chaud, très rapide, malheureusement cela enlève les espaces entre les noms et prénoms. Il faut seulement enlever les 3 à 5 espaces **avant **
Selectionne d'abord la plage à traiter cette macro supprime : - tout les caractères insécables (Asc(160)) - tout les espaces avant et après ( ___Abcde___ devient Abcde) - les espaces redondants à l'intérieur (abcd___efg___hij devient abcd_efg_hij) ;o))) la fonction trim(VBA) se comporte differement de la fonction de feuille calcul TRIM
Sub test() Dim C As Range Application.ScreenUpdating = False Application.EnableEvents = False With activesheet For Each C In Selection C.Replace Chr(160), "" C = Trim(WorksheetFunction.Trim(C)) Next End With Application.ScreenUpdating = True Application.EnableEvents = True End Sub
Bonjour / Bonsoir Maude Este
Merci, cela fonctionne aussi très bien
albert
"Maude Este" <nomail@live.fr> a écrit dans le message de
news:idp5n9$jtg$1@speranza.aioe.org...
Bonsour0174
"Albert" a écrit
La noirceur vient d'arriver et ce n'est pas chaud,
très rapide, malheureusement cela enlève les espaces entre les noms et
prénoms.
Il faut seulement enlever les 3 à 5 espaces **avant **
Selectionne d'abord la plage à traiter
cette macro supprime :
- tout les caractères insécables (Asc(160))
- tout les espaces avant et après ( ___Abcde___ devient Abcde)
- les espaces redondants à l'intérieur (abcd___efg___hij devient
abcd_efg_hij)
;o))) la fonction trim(VBA) se comporte differement de la fonction de
feuille calcul TRIM
Sub test()
Dim C As Range
Application.ScreenUpdating = False
Application.EnableEvents = False
With activesheet
For Each C In Selection
C.Replace Chr(160), ""
C = Trim(WorksheetFunction.Trim(C))
Next
End With
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
Bonjour / Bonsoir Maude Este Merci, cela fonctionne aussi très bien albert
"Maude Este" a écrit dans le message de news:idp5n9$jtg$
Bonsour0174
"Albert" a écrit
La noirceur vient d'arriver et ce n'est pas chaud, très rapide, malheureusement cela enlève les espaces entre les noms et prénoms. Il faut seulement enlever les 3 à 5 espaces **avant **
Selectionne d'abord la plage à traiter cette macro supprime : - tout les caractères insécables (Asc(160)) - tout les espaces avant et après ( ___Abcde___ devient Abcde) - les espaces redondants à l'intérieur (abcd___efg___hij devient abcd_efg_hij) ;o))) la fonction trim(VBA) se comporte differement de la fonction de feuille calcul TRIM
Sub test() Dim C As Range Application.ScreenUpdating = False Application.EnableEvents = False With activesheet For Each C In Selection C.Replace Chr(160), "" C = Trim(WorksheetFunction.Trim(C)) Next End With Application.ScreenUpdating = True Application.EnableEvents = True End Sub
Jean-Claude
"Albert" a écrit dans le message de news: idoohd$h2u$
Bonjour
Une colonne de noms et prénoms, tous précédés d'une ou plusieurs espace, J'ai essayé avec =chercher(<>" ";a1;1) de trouver la position de la première lettre, mais c'est invalide.
Comment trouver la première lettre qui n'est pas un espace ? pour ensuite extraire les noms et prénoms ?
merci
-- albertri-at-videotron.ca.invalid
Bonjour, pourquoi pas simplement la formule : =SUPPRESPACE(A1) ? Comme le dit l'aide : "supprime tous les espaces, sauf les espaces simples entre les mots..." Ainsi " michel de la rombière " devient "michel de la rombière". JC
"Albert" <albert@invalid.com> a écrit dans le message de news:
idoohd$h2u$1@speranza.aioe.org...
Bonjour
Une colonne de noms et prénoms, tous précédés d'une ou plusieurs espace,
J'ai essayé avec =chercher(<>" ";a1;1) de trouver la position de la
première lettre, mais c'est invalide.
Comment trouver la première lettre qui n'est pas un espace ?
pour ensuite extraire les noms et prénoms ?
merci
--
albertri-at-videotron.ca.invalid
Bonjour,
pourquoi pas simplement la formule : =SUPPRESPACE(A1) ?
Comme le dit l'aide : "supprime tous les espaces, sauf les espaces simples
entre les mots..."
Ainsi " michel de la rombière " devient "michel de la rombière".
JC
"Albert" a écrit dans le message de news: idoohd$h2u$
Bonjour
Une colonne de noms et prénoms, tous précédés d'une ou plusieurs espace, J'ai essayé avec =chercher(<>" ";a1;1) de trouver la position de la première lettre, mais c'est invalide.
Comment trouver la première lettre qui n'est pas un espace ? pour ensuite extraire les noms et prénoms ?
merci
-- albertri-at-videotron.ca.invalid
Bonjour, pourquoi pas simplement la formule : =SUPPRESPACE(A1) ? Comme le dit l'aide : "supprime tous les espaces, sauf les espaces simples entre les mots..." Ainsi " michel de la rombière " devient "michel de la rombière". JC
Jacquouille
Bonjour Jean-Claude Encore plus simple que la mienne..... Et ça fonctionne ! -)
-- Bien amicalmement, "Le vin est au repas ce que le parfum est à la femme."
Jacquouille (MPFE).
"Jean-Claude" a écrit dans le message de news: 4d006c3f$0$7698$
"Albert" a écrit dans le message de news: idoohd$h2u$
Bonjour
Une colonne de noms et prénoms, tous précédés d'une ou plusieurs espace, J'ai essayé avec =chercher(<>" ";a1;1) de trouver la position de la première lettre, mais c'est invalide.
Comment trouver la première lettre qui n'est pas un espace ? pour ensuite extraire les noms et prénoms ?
merci
-- albertri-at-videotron.ca.invalid
Bonjour, pourquoi pas simplement la formule : =SUPPRESPACE(A1) ? Comme le dit l'aide : "supprime tous les espaces, sauf les espaces simples entre les mots..." Ainsi " michel de la rombière " devient "michel de la rombière". JC
Bonjour Jean-Claude
Encore plus simple que la mienne..... Et ça fonctionne ! -)
--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."
Jacquouille (MPFE).
"Jean-Claude" <repondre_en_forum@orange.fr> a écrit dans le message de news:
4d006c3f$0$7698$ba4acef3@reader.news.orange.fr...
"Albert" <albert@invalid.com> a écrit dans le message de news:
idoohd$h2u$1@speranza.aioe.org...
Bonjour
Une colonne de noms et prénoms, tous précédés d'une ou plusieurs
espace,
J'ai essayé avec =chercher(<>" ";a1;1) de trouver la position de la
première lettre, mais c'est invalide.
Comment trouver la première lettre qui n'est pas un espace ?
pour ensuite extraire les noms et prénoms ?
merci
--
albertri-at-videotron.ca.invalid
Bonjour,
pourquoi pas simplement la formule : =SUPPRESPACE(A1) ?
Comme le dit l'aide : "supprime tous les espaces, sauf les espaces simples
entre les mots..."
Ainsi " michel de la rombière " devient "michel de la rombière".
JC
Bonjour Jean-Claude Encore plus simple que la mienne..... Et ça fonctionne ! -)
-- Bien amicalmement, "Le vin est au repas ce que le parfum est à la femme."
Jacquouille (MPFE).
"Jean-Claude" a écrit dans le message de news: 4d006c3f$0$7698$
"Albert" a écrit dans le message de news: idoohd$h2u$
Bonjour
Une colonne de noms et prénoms, tous précédés d'une ou plusieurs espace, J'ai essayé avec =chercher(<>" ";a1;1) de trouver la position de la première lettre, mais c'est invalide.
Comment trouver la première lettre qui n'est pas un espace ? pour ensuite extraire les noms et prénoms ?
merci
-- albertri-at-videotron.ca.invalid
Bonjour, pourquoi pas simplement la formule : =SUPPRESPACE(A1) ? Comme le dit l'aide : "supprime tous les espaces, sauf les espaces simples entre les mots..." Ainsi " michel de la rombière " devient "michel de la rombière". JC
Albert
Bonjour Excellent Merci
albert
"Jacquouille" a écrit dans le message de news:4d00935d$0$14262$
Bonjour Jean-Claude Encore plus simple que la mienne..... Et ça fonctionne ! -)
-- Bien amicalmement, "Le vin est au repas ce que le parfum est à la femme."
Jacquouille (MPFE).
"Jean-Claude" a écrit dans le message de news: 4d006c3f$0$7698$
"Albert" a écrit dans le message de news: idoohd$h2u$
Bonjour
Une colonne de noms et prénoms, tous précédés d'une ou plusieurs espace, J'ai essayé avec =chercher(<>" ";a1;1) de trouver la position de la première lettre, mais c'est invalide.
Comment trouver la première lettre qui n'est pas un espace ? pour ensuite extraire les noms et prénoms ?
merci
-- albertri-at-videotron.ca.invalid
Bonjour, pourquoi pas simplement la formule : =SUPPRESPACE(A1) ? Comme le dit l'aide : "supprime tous les espaces, sauf les espaces simples entre les mots..." Ainsi " michel de la rombière " devient "michel de la rombière". JC
Bonjour
Excellent
Merci
albert
"Jacquouille" <NoSpam_j.thiernesse@skynet.be> a écrit dans le message de
news:4d00935d$0$14262$ba620e4c@news.skynet.be...
Bonjour Jean-Claude
Encore plus simple que la mienne..... Et ça fonctionne ! -)
--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."
Jacquouille (MPFE).
"Jean-Claude" <repondre_en_forum@orange.fr> a écrit dans le message de
news: 4d006c3f$0$7698$ba4acef3@reader.news.orange.fr...
"Albert" <albert@invalid.com> a écrit dans le message de news:
idoohd$h2u$1@speranza.aioe.org...
Bonjour
Une colonne de noms et prénoms, tous précédés d'une ou plusieurs
espace,
J'ai essayé avec =chercher(<>" ";a1;1) de trouver la position de la
première lettre, mais c'est invalide.
Comment trouver la première lettre qui n'est pas un espace ?
pour ensuite extraire les noms et prénoms ?
merci
--
albertri-at-videotron.ca.invalid
Bonjour,
pourquoi pas simplement la formule : =SUPPRESPACE(A1) ?
Comme le dit l'aide : "supprime tous les espaces, sauf les espaces
simples entre les mots..."
Ainsi " michel de la rombière " devient "michel de la rombière".
JC
"Jacquouille" a écrit dans le message de news:4d00935d$0$14262$
Bonjour Jean-Claude Encore plus simple que la mienne..... Et ça fonctionne ! -)
-- Bien amicalmement, "Le vin est au repas ce que le parfum est à la femme."
Jacquouille (MPFE).
"Jean-Claude" a écrit dans le message de news: 4d006c3f$0$7698$
"Albert" a écrit dans le message de news: idoohd$h2u$
Bonjour
Une colonne de noms et prénoms, tous précédés d'une ou plusieurs espace, J'ai essayé avec =chercher(<>" ";a1;1) de trouver la position de la première lettre, mais c'est invalide.
Comment trouver la première lettre qui n'est pas un espace ? pour ensuite extraire les noms et prénoms ?
merci
-- albertri-at-videotron.ca.invalid
Bonjour, pourquoi pas simplement la formule : =SUPPRESPACE(A1) ? Comme le dit l'aide : "supprime tous les espaces, sauf les espaces simples entre les mots..." Ainsi " michel de la rombière " devient "michel de la rombière". JC
José
Le 08/12/2010 22:28, Albert a écrit :
Bonsoir J'ai même essayé avec =SI(GAUCHE($A1;1)=" ";DROITE(A$1;NBCAR(A$1)-1);A$1 cela enlève des espaces mais n'est une solution si il faut ensuite traiter plusieurs colonnes. Il est plus simple d'enlever les espaces a la main dans chaque cellule. merci
albert
"Jacquouille" a écrit dans le message de news:4cffeef9$0$14248$
Bonjour La colonne A est celle dans laquelle se trouvent les noms et leurs espaces. En B1, copier cette formule, tirer ensuite jusqu'en bas, puis vers la droite (colC, voire D...jusqu'à ce qu'il n'y aie plus d'espaces en début de cellule) =SI(GAUCHE(A1;1)=" ";DROITE(A1;NBCAR(A1)-1);A1)
-- Bien amicalmement, "Le vin est au repas ce que le parfum est à la femme."
Jacquouille (MPFE).
"Albert" a écrit dans le message de news: idoohd$h2u$
Bonjour
Une colonne de noms et prénoms, tous précédés d'une ou plusieurs espace, J'ai essayé avec =chercher(<>" ";a1;1) de trouver la position de la première lettre, mais c'est invalide.
Comment trouver la première lettre qui n'est pas un espace ? pour ensuite extraire les noms et prénoms ?
merci
-- albertri-at-videotron.ca.invalid
Avec la fonction supprespace qui enlève les espaces avant et après la chaîne de caractères et ceux en trop dans la chaîne.
Cordialement
José
Le 08/12/2010 22:28, Albert a écrit :
Bonsoir
J'ai même essayé avec
=SI(GAUCHE($A1;1)=" ";DROITE(A$1;NBCAR(A$1)-1);A$1
cela enlève des espaces mais n'est une solution si il faut ensuite
traiter plusieurs colonnes.
Il est plus simple d'enlever les espaces a la main dans chaque cellule.
merci
albert
"Jacquouille" <NoSpam_j.thiernesse@skynet.be> a écrit dans le message de
news:4cffeef9$0$14248$ba620e4c@news.skynet.be...
Bonjour
La colonne A est celle dans laquelle se trouvent les noms et leurs
espaces.
En B1, copier cette formule, tirer ensuite jusqu'en bas, puis vers la
droite (colC, voire D...jusqu'à ce qu'il n'y aie plus d'espaces en
début de cellule)
=SI(GAUCHE(A1;1)=" ";DROITE(A1;NBCAR(A1)-1);A1)
--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."
Jacquouille (MPFE).
"Albert" <albert@invalid.com> a écrit dans le message de news:
idoohd$h2u$1@speranza.aioe.org...
Bonjour
Une colonne de noms et prénoms, tous précédés d'une ou plusieurs espace,
J'ai essayé avec =chercher(<>" ";a1;1) de trouver la position de la
première lettre, mais c'est invalide.
Comment trouver la première lettre qui n'est pas un espace ?
pour ensuite extraire les noms et prénoms ?
merci
--
albertri-at-videotron.ca.invalid
Avec la fonction supprespace qui enlève les espaces avant et après la
chaîne de caractères et ceux en trop dans la chaîne.
Bonsoir J'ai même essayé avec =SI(GAUCHE($A1;1)=" ";DROITE(A$1;NBCAR(A$1)-1);A$1 cela enlève des espaces mais n'est une solution si il faut ensuite traiter plusieurs colonnes. Il est plus simple d'enlever les espaces a la main dans chaque cellule. merci
albert
"Jacquouille" a écrit dans le message de news:4cffeef9$0$14248$
Bonjour La colonne A est celle dans laquelle se trouvent les noms et leurs espaces. En B1, copier cette formule, tirer ensuite jusqu'en bas, puis vers la droite (colC, voire D...jusqu'à ce qu'il n'y aie plus d'espaces en début de cellule) =SI(GAUCHE(A1;1)=" ";DROITE(A1;NBCAR(A1)-1);A1)
-- Bien amicalmement, "Le vin est au repas ce que le parfum est à la femme."
Jacquouille (MPFE).
"Albert" a écrit dans le message de news: idoohd$h2u$
Bonjour
Une colonne de noms et prénoms, tous précédés d'une ou plusieurs espace, J'ai essayé avec =chercher(<>" ";a1;1) de trouver la position de la première lettre, mais c'est invalide.
Comment trouver la première lettre qui n'est pas un espace ? pour ensuite extraire les noms et prénoms ?
merci
-- albertri-at-videotron.ca.invalid
Avec la fonction supprespace qui enlève les espaces avant et après la chaîne de caractères et ceux en trop dans la chaîne.
Cordialement
José
Albert
Bonsoir et bonne année 2011 à tous
"José" a écrit dans le message de news:4d1b6e0c$0$25558$
Le 08/12/2010 22:28, Albert a écrit :
Bonsoir
Avec la fonction supprespace qui enlève les espaces avant et après la chaîne de caractères et ceux en trop dans la chaîne. José
Merci José Le 2010-12-09 Jean-Claude avait déjà donné cette solution qui fait bien le travail
-- albertri-at-videotron.ca.invalid
Bonsoir et bonne année 2011 à tous
"José" <jose.braun1@free.fr> a écrit dans le message de
news:4d1b6e0c$0$25558$426a34cc@news.free.fr...
Le 08/12/2010 22:28, Albert a écrit :
Bonsoir
Avec la fonction supprespace qui enlève les espaces avant et après la
chaîne de caractères et ceux en trop dans la chaîne.
José
Merci José
Le 2010-12-09 Jean-Claude avait déjà donné cette solution qui fait bien le
travail