j'ai un cellule dans laquelle j'ai le numéro du fournisseur plus 3 espaces
plus le numéro de la facture plus x espaces (je sais pas combien) et enfin le
nom du fournisseur dont la longueur varie
donc ce que je cherche à extraire c'est le nom du fournisseur
Je me perds dans les cherche, les droite , gauche etc....
Tu auras remarqué ceci dans la procédure de Modeste :
Destination:=Range("E1"), _
As-tu essayé de modifier E1 pour la colonne de ton choix ?
"pitichou" a écrit dans le message de news:
Super ça fonctionne mais j'ai oublié de dire que après la colonne E j'ai encore 3 colonnes avec des données donc si les extraction pouvaient se faire en épargnant ces colonnes ce serait le top du top
Merci encore
Bonsour® pitichou avec ferveur ;o))) vous nous disiez :
Merci mais ça ne fonctionne pas il me dit qu'il y a une erreur sinon voilà un échantillon de ce que je peux avoir dans la case ces données se trouvent en colonne E et la première cellule est la E2
Sub Macro1() ' Macro enregistrée le 25/04/2007 par Modeste GeeDee Columns("E:E").Select '----- attention aux caractéres de continuité, ci-dessous une seule instruction Selection.TextToColumns _ Destination:=Range("E1"), _ DataType:=xlFixedWidth, _ FieldInfo:=Array(Array(0, 1), Array(11, 1), Array(30, 1)), _ TrailingMinusNumbers:=True End Sub
-- -- @+ ;o)))
Tu auras remarqué ceci dans la procédure de Modeste :
Destination:=Range("E1"), _
As-tu essayé de modifier E1 pour la colonne de ton choix ?
"pitichou" <pitichou@discussions.microsoft.com> a écrit dans le message de news:
25B150C7-F0A4-42EC-A0B6-35C94C6D000C@microsoft.com...
Super ça fonctionne mais j'ai oublié de dire que après la colonne E j'ai
encore 3 colonnes avec des données donc si les extraction pouvaient se faire
en épargnant ces colonnes ce serait le top du top
Merci encore
Bonsour® pitichou avec ferveur ;o))) vous nous disiez :
Merci mais ça ne fonctionne pas il me dit qu'il y a une erreur
sinon voilà un échantillon de ce que je peux avoir dans la case
ces données se trouvent en colonne E et la première cellule est la E2
Sub Macro1()
' Macro enregistrée le 25/04/2007 par Modeste GeeDee
Columns("E:E").Select
'----- attention aux caractéres de continuité, ci-dessous une seule instruction
Selection.TextToColumns _
Destination:=Range("E1"), _
DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(11, 1), Array(30, 1)), _
TrailingMinusNumbers:=True
End Sub
Tu auras remarqué ceci dans la procédure de Modeste :
Destination:=Range("E1"), _
As-tu essayé de modifier E1 pour la colonne de ton choix ?
"pitichou" a écrit dans le message de news:
Super ça fonctionne mais j'ai oublié de dire que après la colonne E j'ai encore 3 colonnes avec des données donc si les extraction pouvaient se faire en épargnant ces colonnes ce serait le top du top
Merci encore
Bonsour® pitichou avec ferveur ;o))) vous nous disiez :
Merci mais ça ne fonctionne pas il me dit qu'il y a une erreur sinon voilà un échantillon de ce que je peux avoir dans la case ces données se trouvent en colonne E et la première cellule est la E2
Sub Macro1() ' Macro enregistrée le 25/04/2007 par Modeste GeeDee Columns("E:E").Select '----- attention aux caractéres de continuité, ci-dessous une seule instruction Selection.TextToColumns _ Destination:=Range("E1"), _ DataType:=xlFixedWidth, _ FieldInfo:=Array(Array(0, 1), Array(11, 1), Array(30, 1)), _ TrailingMinusNumbers:=True End Sub
-- -- @+ ;o)))
dre
Bonjour,
Après copie de l'exemple sur une feuille excel j'ai constaté qu'il y a un joyeux mélange d'espaces CAR(32) et CAR(0160).
Sous l'exemple joint, les " " sont des CAR(0160), tandis que les CAR(32) superflus ont été supprimés par la fonction SUPPRESPACE.
La formule peut être placée dans n'importe quelle cellule, et copiée vers le bas.
http://cjoint.com/?eznCRnrDtV
dré.
Merci mais ça ne fonctionne pas il me dit qu'il y a une erreur sinon voilà un échantillon de ce que je peux avoir dans la case ces données se trouvent en colonne E et la première cellule est la E2
Essais ceci (c'est le plus court que j'ai trouvé): ={STXT(A1;CHERCHE(STXT(SUBSTITUE(A1;" ";"");EQUIV(1;STXT(SUBSTITUE(A1;" ";""); LIGNE(INDIRECT("1:"&NBCAR(A1)));1)-9)+1;1);A1;1);200)} C'est une formule matricielle Bye Gaston
"pitichou" wrote:
Bonjour
j'ai un cellule dans laquelle j'ai le numéro du fournisseur plus 3 espaces plus le numéro de la facture plus x espaces (je sais pas combien) et enfin le nom du fournisseur dont la longueur varie
donc ce que je cherche à extraire c'est le nom du fournisseur
Je me perds dans les cherche, les droite , gauche etc....
un peu d'aide serait la bienvenue Merci
Bonjour,
Après copie de l'exemple sur une feuille excel j'ai constaté qu'il y a un
joyeux mélange d'espaces CAR(32) et CAR(0160).
Sous l'exemple joint, les " " sont des CAR(0160), tandis que les CAR(32)
superflus ont été supprimés par la fonction SUPPRESPACE.
La formule peut être placée dans n'importe quelle cellule, et copiée vers le
bas.
http://cjoint.com/?eznCRnrDtV
dré.
Merci mais ça ne fonctionne pas il me dit qu'il y a une erreur
sinon voilà un échantillon de ce que je peux avoir dans la case
ces données se trouvent en colonne E et la première cellule est la E2
Essais ceci (c'est le plus court que j'ai trouvé):
={STXT(A1;CHERCHE(STXT(SUBSTITUE(A1;" ";"");EQUIV(1;STXT(SUBSTITUE(A1;"
";""); LIGNE(INDIRECT("1:"&NBCAR(A1)));1)-9)+1;1);A1;1);200)}
C'est une formule matricielle
Bye
Gaston
"pitichou" wrote:
Bonjour
j'ai un cellule dans laquelle j'ai le numéro du fournisseur plus 3 espaces
plus le numéro de la facture plus x espaces (je sais pas combien) et enfin le
nom du fournisseur dont la longueur varie
donc ce que je cherche à extraire c'est le nom du fournisseur
Je me perds dans les cherche, les droite , gauche etc....
Après copie de l'exemple sur une feuille excel j'ai constaté qu'il y a un joyeux mélange d'espaces CAR(32) et CAR(0160).
Sous l'exemple joint, les " " sont des CAR(0160), tandis que les CAR(32) superflus ont été supprimés par la fonction SUPPRESPACE.
La formule peut être placée dans n'importe quelle cellule, et copiée vers le bas.
http://cjoint.com/?eznCRnrDtV
dré.
Merci mais ça ne fonctionne pas il me dit qu'il y a une erreur sinon voilà un échantillon de ce que je peux avoir dans la case ces données se trouvent en colonne E et la première cellule est la E2
Essais ceci (c'est le plus court que j'ai trouvé): ={STXT(A1;CHERCHE(STXT(SUBSTITUE(A1;" ";"");EQUIV(1;STXT(SUBSTITUE(A1;" ";""); LIGNE(INDIRECT("1:"&NBCAR(A1)));1)-9)+1;1);A1;1);200)} C'est une formule matricielle Bye Gaston
"pitichou" wrote:
Bonjour
j'ai un cellule dans laquelle j'ai le numéro du fournisseur plus 3 espaces plus le numéro de la facture plus x espaces (je sais pas combien) et enfin le nom du fournisseur dont la longueur varie
donc ce que je cherche à extraire c'est le nom du fournisseur
Je me perds dans les cherche, les droite , gauche etc....
un peu d'aide serait la bienvenue Merci
Modeste
Bonsour® pitichou avec ferveur ;o))) vous nous disiez :
Super ça fonctionne mais j'ai oublié de dire que après la colonne E j'ai encore 3 colonnes avec des données donc si les extraction pouvaient se faire en épargnant ces colonnes ce serait le top du top
en acceptant de perdre les infos des N° fournisseur et numéro de facture c-a-d on ne distribue pas ces deux premiers champs (valeur 9 au lieu de 1, pour le 2eme parametre des arrays correspondants)
Sub Macro1() ' Macro enregistrée le 25/04/2007 par Modeste GeeDee Columns("E:E").Select '----- attention aux caractéres de continuité, ci-dessous une seule instruction Selection.TextToColumns _ Destination:=Range("E1"), _ DataType:=xlFixedWidth, _ FieldInfo:=Array(Array(0, 9), Array(11, 9), Array(30, 1)), _ TrailingMinusNumbers:=True End Sub
-- -- @+ ;o)))
Bonsour® pitichou avec ferveur ;o))) vous nous disiez :
Super ça fonctionne mais j'ai oublié de dire que après la colonne E j'ai
encore 3 colonnes avec des données donc si les extraction pouvaient se faire
en épargnant ces colonnes ce serait le top du top
en acceptant de perdre les infos des N° fournisseur et numéro de facture
c-a-d on ne distribue pas ces deux premiers champs (valeur 9 au lieu de 1, pour
le 2eme parametre des arrays correspondants)
Sub Macro1()
' Macro enregistrée le 25/04/2007 par Modeste GeeDee
Columns("E:E").Select
'----- attention aux caractéres de continuité, ci-dessous une seule instruction
Selection.TextToColumns _
Destination:=Range("E1"), _
DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 9), Array(11, 9), Array(30, 1)), _
TrailingMinusNumbers:=True
End Sub
Bonsour® pitichou avec ferveur ;o))) vous nous disiez :
Super ça fonctionne mais j'ai oublié de dire que après la colonne E j'ai encore 3 colonnes avec des données donc si les extraction pouvaient se faire en épargnant ces colonnes ce serait le top du top
en acceptant de perdre les infos des N° fournisseur et numéro de facture c-a-d on ne distribue pas ces deux premiers champs (valeur 9 au lieu de 1, pour le 2eme parametre des arrays correspondants)
Sub Macro1() ' Macro enregistrée le 25/04/2007 par Modeste GeeDee Columns("E:E").Select '----- attention aux caractéres de continuité, ci-dessous une seule instruction Selection.TextToColumns _ Destination:=Range("E1"), _ DataType:=xlFixedWidth, _ FieldInfo:=Array(Array(0, 9), Array(11, 9), Array(30, 1)), _ TrailingMinusNumbers:=True End Sub
-- -- @+ ;o)))
pitichou
super merci beaucoup j'ai réussi à extraire tout ce dont j'avais besoin
Bonjour,
Après copie de l'exemple sur une feuille excel j'ai constaté qu'il y a un joyeux mélange d'espaces CAR(32) et CAR(0160).
Sous l'exemple joint, les " " sont des CAR(0160), tandis que les CAR(32) superflus ont été supprimés par la fonction SUPPRESPACE.
La formule peut être placée dans n'importe quelle cellule, et copiée vers le bas.
http://cjoint.com/?eznCRnrDtV
dré.
Merci mais ça ne fonctionne pas il me dit qu'il y a une erreur sinon voilà un échantillon de ce que je peux avoir dans la case ces données se trouvent en colonne E et la première cellule est la E2
Essais ceci (c'est le plus court que j'ai trouvé): ={STXT(A1;CHERCHE(STXT(SUBSTITUE(A1;" ";"");EQUIV(1;STXT(SUBSTITUE(A1;" ";""); LIGNE(INDIRECT("1:"&NBCAR(A1)));1)-9)+1;1);A1;1);200)} C'est une formule matricielle Bye Gaston
"pitichou" wrote:
Bonjour
j'ai un cellule dans laquelle j'ai le numéro du fournisseur plus 3 espaces plus le numéro de la facture plus x espaces (je sais pas combien) et enfin le nom du fournisseur dont la longueur varie
donc ce que je cherche à extraire c'est le nom du fournisseur
Je me perds dans les cherche, les droite , gauche etc....
un peu d'aide serait la bienvenue Merci
super merci beaucoup j'ai réussi à extraire tout ce dont j'avais besoin
Bonjour,
Après copie de l'exemple sur une feuille excel j'ai constaté qu'il y a un
joyeux mélange d'espaces CAR(32) et CAR(0160).
Sous l'exemple joint, les " " sont des CAR(0160), tandis que les CAR(32)
superflus ont été supprimés par la fonction SUPPRESPACE.
La formule peut être placée dans n'importe quelle cellule, et copiée vers le
bas.
http://cjoint.com/?eznCRnrDtV
dré.
Merci mais ça ne fonctionne pas il me dit qu'il y a une erreur
sinon voilà un échantillon de ce que je peux avoir dans la case
ces données se trouvent en colonne E et la première cellule est la E2
Essais ceci (c'est le plus court que j'ai trouvé):
={STXT(A1;CHERCHE(STXT(SUBSTITUE(A1;" ";"");EQUIV(1;STXT(SUBSTITUE(A1;"
";""); LIGNE(INDIRECT("1:"&NBCAR(A1)));1)-9)+1;1);A1;1);200)}
C'est une formule matricielle
Bye
Gaston
"pitichou" wrote:
Bonjour
j'ai un cellule dans laquelle j'ai le numéro du fournisseur plus 3 espaces
plus le numéro de la facture plus x espaces (je sais pas combien) et enfin le
nom du fournisseur dont la longueur varie
donc ce que je cherche à extraire c'est le nom du fournisseur
Je me perds dans les cherche, les droite , gauche etc....
super merci beaucoup j'ai réussi à extraire tout ce dont j'avais besoin
Bonjour,
Après copie de l'exemple sur une feuille excel j'ai constaté qu'il y a un joyeux mélange d'espaces CAR(32) et CAR(0160).
Sous l'exemple joint, les " " sont des CAR(0160), tandis que les CAR(32) superflus ont été supprimés par la fonction SUPPRESPACE.
La formule peut être placée dans n'importe quelle cellule, et copiée vers le bas.
http://cjoint.com/?eznCRnrDtV
dré.
Merci mais ça ne fonctionne pas il me dit qu'il y a une erreur sinon voilà un échantillon de ce que je peux avoir dans la case ces données se trouvent en colonne E et la première cellule est la E2
Essais ceci (c'est le plus court que j'ai trouvé): ={STXT(A1;CHERCHE(STXT(SUBSTITUE(A1;" ";"");EQUIV(1;STXT(SUBSTITUE(A1;" ";""); LIGNE(INDIRECT("1:"&NBCAR(A1)));1)-9)+1;1);A1;1);200)} C'est une formule matricielle Bye Gaston
"pitichou" wrote:
Bonjour
j'ai un cellule dans laquelle j'ai le numéro du fournisseur plus 3 espaces plus le numéro de la facture plus x espaces (je sais pas combien) et enfin le nom du fournisseur dont la longueur varie
donc ce que je cherche à extraire c'est le nom du fournisseur
Je me perds dans les cherche, les droite , gauche etc....
