Je souhaiterai suprimer des caracteres dans une cellule qui se trouve avant
un ou 2 mots bien precis.
Par contre les caractèresqui se trouve avant peuvent être complétement
differents tant en texte que nombre.
Exemple :
Cellule A1 :
sdfsdfj sdl 888 lfjpppir CN_ ttttttttmlùlùù
Cellule A2
tytyytygqs bbdbbkqsmrnnqnsdqsn rrrr MA_ lfjlsjfjf
On doit retrouver en B1
CN_ ttttttttmlùlùù
Et B2
MA_ lfjlsjfjf
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel.C
Bonjour. Essaie ce code :
Sub test() For Each c In Range("A1", Range("A65536").End(xlUp)) c.Offset(, 1) = Right(c, Len(c) - InStrRev(c, " ")) Next c End Sub
Cordialement. Daniel "jb1" a écrit dans le message de news: 6gu6j.22$
Bonjour,
Je souhaiterai suprimer des caracteres dans une cellule qui se trouve avant un ou 2 mots bien precis. Par contre les caractèresqui se trouve avant peuvent être complétement differents tant en texte que nombre. Exemple : Cellule A1 : sdfsdfj sdl 888 lfjpppir CN_ ttttttttmlùlùù Cellule A2 tytyytygqs bbdbbkqsmrnnqnsdqsn rrrr MA_ lfjlsjfjf
On doit retrouver en B1 CN_ ttttttttmlùlùù Et B2 MA_ lfjlsjfjf
Merci de votre aide
Bonjour.
Essaie ce code :
Sub test()
For Each c In Range("A1", Range("A65536").End(xlUp))
c.Offset(, 1) = Right(c, Len(c) - InStrRev(c, " "))
Next c
End Sub
Cordialement.
Daniel
"jb1" <jb@free.fr> a écrit dans le message de news:
6gu6j.22$8z1.43@nntpserver.swip.net...
Bonjour,
Je souhaiterai suprimer des caracteres dans une cellule qui se trouve
avant un ou 2 mots bien precis.
Par contre les caractèresqui se trouve avant peuvent être complétement
differents tant en texte que nombre.
Exemple :
Cellule A1 :
sdfsdfj sdl 888 lfjpppir CN_ ttttttttmlùlùù
Cellule A2
tytyytygqs bbdbbkqsmrnnqnsdqsn rrrr MA_ lfjlsjfjf
On doit retrouver en B1
CN_ ttttttttmlùlùù
Et B2
MA_ lfjlsjfjf
Sub test() For Each c In Range("A1", Range("A65536").End(xlUp)) c.Offset(, 1) = Right(c, Len(c) - InStrRev(c, " ")) Next c End Sub
Cordialement. Daniel "jb1" a écrit dans le message de news: 6gu6j.22$
Bonjour,
Je souhaiterai suprimer des caracteres dans une cellule qui se trouve avant un ou 2 mots bien precis. Par contre les caractèresqui se trouve avant peuvent être complétement differents tant en texte que nombre. Exemple : Cellule A1 : sdfsdfj sdl 888 lfjpppir CN_ ttttttttmlùlùù Cellule A2 tytyytygqs bbdbbkqsmrnnqnsdqsn rrrr MA_ lfjlsjfjf
On doit retrouver en B1 CN_ ttttttttmlùlùù Et B2 MA_ lfjlsjfjf
Merci de votre aide
Phil
bonjour Si le "_" est constant, en B1 =DROITE(A1;NBCAR(A1)-CHERCHE("_";A1;1)+3)
bonne journée "jb1" a écrit dans le message de news: 6gu6j.22$
Bonjour,
Je souhaiterai suprimer des caracteres dans une cellule qui se trouve avant un ou 2 mots bien precis. Par contre les caractèresqui se trouve avant peuvent être complétement differents tant en texte que nombre. Exemple : Cellule A1 : sdfsdfj sdl 888 lfjpppir CN_ ttttttttmlùlùù Cellule A2 tytyytygqs bbdbbkqsmrnnqnsdqsn rrrr MA_ lfjlsjfjf
On doit retrouver en B1 CN_ ttttttttmlùlùù Et B2 MA_ lfjlsjfjf
Merci de votre aide
bonjour
Si le "_" est constant,
en B1
=DROITE(A1;NBCAR(A1)-CHERCHE("_";A1;1)+3)
bonne journée
"jb1" <jb@free.fr> a écrit dans le message de news:
6gu6j.22$8z1.43@nntpserver.swip.net...
Bonjour,
Je souhaiterai suprimer des caracteres dans une cellule qui se trouve
avant un ou 2 mots bien precis.
Par contre les caractèresqui se trouve avant peuvent être complétement
differents tant en texte que nombre.
Exemple :
Cellule A1 :
sdfsdfj sdl 888 lfjpppir CN_ ttttttttmlùlùù
Cellule A2
tytyytygqs bbdbbkqsmrnnqnsdqsn rrrr MA_ lfjlsjfjf
On doit retrouver en B1
CN_ ttttttttmlùlùù
Et B2
MA_ lfjlsjfjf
bonjour Si le "_" est constant, en B1 =DROITE(A1;NBCAR(A1)-CHERCHE("_";A1;1)+3)
bonne journée "jb1" a écrit dans le message de news: 6gu6j.22$
Bonjour,
Je souhaiterai suprimer des caracteres dans une cellule qui se trouve avant un ou 2 mots bien precis. Par contre les caractèresqui se trouve avant peuvent être complétement differents tant en texte que nombre. Exemple : Cellule A1 : sdfsdfj sdl 888 lfjpppir CN_ ttttttttmlùlùù Cellule A2 tytyytygqs bbdbbkqsmrnnqnsdqsn rrrr MA_ lfjlsjfjf
On doit retrouver en B1 CN_ ttttttttmlùlùù Et B2 MA_ lfjlsjfjf
Merci de votre aide
jb1
Re bonjour,
Merci de la réponse ça marche presque mais je dois récupérer en B le CN_ ou MA_ J'ai essayer de comprendre la macro, mais trop dur pour moi
Merci de ton aide
"Daniel.C" a écrit dans le message de news: %
Bonjour. Essaie ce code :
Sub test() For Each c In Range("A1", Range("A65536").End(xlUp)) c.Offset(, 1) = Right(c, Len(c) - InStrRev(c, " ")) Next c End Sub
Cordialement. Daniel "jb1" a écrit dans le message de news: 6gu6j.22$
Bonjour,
Je souhaiterai suprimer des caracteres dans une cellule qui se trouve avant un ou 2 mots bien precis. Par contre les caractèresqui se trouve avant peuvent être complétement differents tant en texte que nombre. Exemple : Cellule A1 : sdfsdfj sdl 888 lfjpppir CN_ ttttttttmlùlùù Cellule A2 tytyytygqs bbdbbkqsmrnnqnsdqsn rrrr MA_ lfjlsjfjf
On doit retrouver en B1 CN_ ttttttttmlùlùù Et B2 MA_ lfjlsjfjf
Merci de votre aide
Re bonjour,
Merci de la réponse ça marche presque mais je dois récupérer en B le CN_ ou
MA_
J'ai essayer de comprendre la macro, mais trop dur pour moi
Merci de ton aide
"Daniel.C" <dZZZcolardelle@free.fr> a écrit dans le message de news:
%23pK1zkYOIHA.484@TK2MSFTNGP06.phx.gbl...
Bonjour.
Essaie ce code :
Sub test()
For Each c In Range("A1", Range("A65536").End(xlUp))
c.Offset(, 1) = Right(c, Len(c) - InStrRev(c, " "))
Next c
End Sub
Cordialement.
Daniel
"jb1" <jb@free.fr> a écrit dans le message de news:
6gu6j.22$8z1.43@nntpserver.swip.net...
Bonjour,
Je souhaiterai suprimer des caracteres dans une cellule qui se trouve
avant un ou 2 mots bien precis.
Par contre les caractèresqui se trouve avant peuvent être complétement
differents tant en texte que nombre.
Exemple :
Cellule A1 :
sdfsdfj sdl 888 lfjpppir CN_ ttttttttmlùlùù
Cellule A2
tytyytygqs bbdbbkqsmrnnqnsdqsn rrrr MA_ lfjlsjfjf
On doit retrouver en B1
CN_ ttttttttmlùlùù
Et B2
MA_ lfjlsjfjf
Merci de la réponse ça marche presque mais je dois récupérer en B le CN_ ou MA_ J'ai essayer de comprendre la macro, mais trop dur pour moi
Merci de ton aide
"Daniel.C" a écrit dans le message de news: %
Bonjour. Essaie ce code :
Sub test() For Each c In Range("A1", Range("A65536").End(xlUp)) c.Offset(, 1) = Right(c, Len(c) - InStrRev(c, " ")) Next c End Sub
Cordialement. Daniel "jb1" a écrit dans le message de news: 6gu6j.22$
Bonjour,
Je souhaiterai suprimer des caracteres dans une cellule qui se trouve avant un ou 2 mots bien precis. Par contre les caractèresqui se trouve avant peuvent être complétement differents tant en texte que nombre. Exemple : Cellule A1 : sdfsdfj sdl 888 lfjpppir CN_ ttttttttmlùlùù Cellule A2 tytyytygqs bbdbbkqsmrnnqnsdqsn rrrr MA_ lfjlsjfjf
On doit retrouver en B1 CN_ ttttttttmlùlùù Et B2 MA_ lfjlsjfjf
Merci de votre aide
Daniel.C
La macro récupère en B tout ce qui est à droite du dernier espace. Daniel "jb1" a écrit dans le message de news: bsv6j.35$
Re bonjour,
Merci de la réponse ça marche presque mais je dois récupérer en B le CN_ ou MA_ J'ai essayer de comprendre la macro, mais trop dur pour moi
Merci de ton aide
"Daniel.C" a écrit dans le message de news: %
Bonjour. Essaie ce code :
Sub test() For Each c In Range("A1", Range("A65536").End(xlUp)) c.Offset(, 1) = Right(c, Len(c) - InStrRev(c, " ")) Next c End Sub
Cordialement. Daniel "jb1" a écrit dans le message de news: 6gu6j.22$
Bonjour,
Je souhaiterai suprimer des caracteres dans une cellule qui se trouve avant un ou 2 mots bien precis. Par contre les caractèresqui se trouve avant peuvent être complétement differents tant en texte que nombre. Exemple : Cellule A1 : sdfsdfj sdl 888 lfjpppir CN_ ttttttttmlùlùù Cellule A2 tytyytygqs bbdbbkqsmrnnqnsdqsn rrrr MA_ lfjlsjfjf
On doit retrouver en B1 CN_ ttttttttmlùlùù Et B2 MA_ lfjlsjfjf
Merci de votre aide
La macro récupère en B tout ce qui est à droite du dernier espace.
Daniel
"jb1" <jb@free.fr> a écrit dans le message de news:
bsv6j.35$8z1.67@nntpserver.swip.net...
Re bonjour,
Merci de la réponse ça marche presque mais je dois récupérer en B le CN_
ou MA_
J'ai essayer de comprendre la macro, mais trop dur pour moi
Merci de ton aide
"Daniel.C" <dZZZcolardelle@free.fr> a écrit dans le message de news:
%23pK1zkYOIHA.484@TK2MSFTNGP06.phx.gbl...
Bonjour.
Essaie ce code :
Sub test()
For Each c In Range("A1", Range("A65536").End(xlUp))
c.Offset(, 1) = Right(c, Len(c) - InStrRev(c, " "))
Next c
End Sub
Cordialement.
Daniel
"jb1" <jb@free.fr> a écrit dans le message de news:
6gu6j.22$8z1.43@nntpserver.swip.net...
Bonjour,
Je souhaiterai suprimer des caracteres dans une cellule qui se trouve
avant un ou 2 mots bien precis.
Par contre les caractèresqui se trouve avant peuvent être complétement
differents tant en texte que nombre.
Exemple :
Cellule A1 :
sdfsdfj sdl 888 lfjpppir CN_ ttttttttmlùlùù
Cellule A2
tytyytygqs bbdbbkqsmrnnqnsdqsn rrrr MA_ lfjlsjfjf
On doit retrouver en B1
CN_ ttttttttmlùlùù
Et B2
MA_ lfjlsjfjf
La macro récupère en B tout ce qui est à droite du dernier espace. Daniel "jb1" a écrit dans le message de news: bsv6j.35$
Re bonjour,
Merci de la réponse ça marche presque mais je dois récupérer en B le CN_ ou MA_ J'ai essayer de comprendre la macro, mais trop dur pour moi
Merci de ton aide
"Daniel.C" a écrit dans le message de news: %
Bonjour. Essaie ce code :
Sub test() For Each c In Range("A1", Range("A65536").End(xlUp)) c.Offset(, 1) = Right(c, Len(c) - InStrRev(c, " ")) Next c End Sub
Cordialement. Daniel "jb1" a écrit dans le message de news: 6gu6j.22$
Bonjour,
Je souhaiterai suprimer des caracteres dans une cellule qui se trouve avant un ou 2 mots bien precis. Par contre les caractèresqui se trouve avant peuvent être complétement differents tant en texte que nombre. Exemple : Cellule A1 : sdfsdfj sdl 888 lfjpppir CN_ ttttttttmlùlùù Cellule A2 tytyytygqs bbdbbkqsmrnnqnsdqsn rrrr MA_ lfjlsjfjf
On doit retrouver en B1 CN_ ttttttttmlùlùù Et B2 MA_ lfjlsjfjf
Merci de votre aide
jb1
Merci j'ai trouvé et compris avec ta macro que j'ai modifié
Sub test() For Each c In Range("A1", Range("A65536").End(xlUp)) c.Offset(, 1) = Right(c, Len(c) - InStrRev(c, "_") + 3) Next c End Su
"Daniel.C" a écrit dans le message de news: %
Bonjour. Essaie ce code :
Sub test() For Each c In Range("A1", Range("A65536").End(xlUp)) c.Offset(, 1) = Right(c, Len(c) - InStrRev(c, " ")) Next c End Sub
Cordialement. Daniel "jb1" a écrit dans le message de news: 6gu6j.22$
Bonjour,
Je souhaiterai suprimer des caracteres dans une cellule qui se trouve avant un ou 2 mots bien precis. Par contre les caractèresqui se trouve avant peuvent être complétement differents tant en texte que nombre. Exemple : Cellule A1 : sdfsdfj sdl 888 lfjpppir CN_ ttttttttmlùlùù Cellule A2 tytyytygqs bbdbbkqsmrnnqnsdqsn rrrr MA_ lfjlsjfjf
On doit retrouver en B1 CN_ ttttttttmlùlùù Et B2 MA_ lfjlsjfjf
Merci de votre aide
Merci j'ai trouvé et compris avec ta macro que j'ai modifié
Sub test()
For Each c In Range("A1", Range("A65536").End(xlUp))
c.Offset(, 1) = Right(c, Len(c) - InStrRev(c, "_") + 3)
Next c
End Su
"Daniel.C" <dZZZcolardelle@free.fr> a écrit dans le message de news:
%23pK1zkYOIHA.484@TK2MSFTNGP06.phx.gbl...
Bonjour.
Essaie ce code :
Sub test()
For Each c In Range("A1", Range("A65536").End(xlUp))
c.Offset(, 1) = Right(c, Len(c) - InStrRev(c, " "))
Next c
End Sub
Cordialement.
Daniel
"jb1" <jb@free.fr> a écrit dans le message de news:
6gu6j.22$8z1.43@nntpserver.swip.net...
Bonjour,
Je souhaiterai suprimer des caracteres dans une cellule qui se trouve
avant un ou 2 mots bien precis.
Par contre les caractèresqui se trouve avant peuvent être complétement
differents tant en texte que nombre.
Exemple :
Cellule A1 :
sdfsdfj sdl 888 lfjpppir CN_ ttttttttmlùlùù
Cellule A2
tytyytygqs bbdbbkqsmrnnqnsdqsn rrrr MA_ lfjlsjfjf
On doit retrouver en B1
CN_ ttttttttmlùlùù
Et B2
MA_ lfjlsjfjf
Merci j'ai trouvé et compris avec ta macro que j'ai modifié
Sub test() For Each c In Range("A1", Range("A65536").End(xlUp)) c.Offset(, 1) = Right(c, Len(c) - InStrRev(c, "_") + 3) Next c End Su
"Daniel.C" a écrit dans le message de news: %
Bonjour. Essaie ce code :
Sub test() For Each c In Range("A1", Range("A65536").End(xlUp)) c.Offset(, 1) = Right(c, Len(c) - InStrRev(c, " ")) Next c End Sub
Cordialement. Daniel "jb1" a écrit dans le message de news: 6gu6j.22$
Bonjour,
Je souhaiterai suprimer des caracteres dans une cellule qui se trouve avant un ou 2 mots bien precis. Par contre les caractèresqui se trouve avant peuvent être complétement differents tant en texte que nombre. Exemple : Cellule A1 : sdfsdfj sdl 888 lfjpppir CN_ ttttttttmlùlùù Cellule A2 tytyytygqs bbdbbkqsmrnnqnsdqsn rrrr MA_ lfjlsjfjf
On doit retrouver en B1 CN_ ttttttttmlùlùù Et B2 MA_ lfjlsjfjf