supprimer chaine de caractères situé avant (ou après) occurence trouvée?
2 réponses
pegase33
Bonjour,
J'ai un texte (sur plusieurs lignes avec caractère carré de retour chariot
me semble t-il?) dans une cellule B1
J'aimerais inclure dans une macro la recherche d'une occurence dans cette
chaine contenue dans B1 et supprimer tout caractère situé avant (ou après)
cette occurence!!!
Merci
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
OnE
Bonjour,
Essaies donc ceci
Sub hop() Pos = InStr(1, Range("B1").Value, Chr(10)) avant = Mid(Range("B1").Value, 1, Pos - 1) apres = Mid(Range("B1").Value, Pos + 1) End Sub
Bonjour, J'ai un texte (sur plusieurs lignes avec caractère carré de retour chariot me semble t-il?) dans une cellule B1 J'aimerais inclure dans une macro la recherche d'une occurence dans cette chaine contenue dans B1 et supprimer tout caractère situé avant (ou après) cette occurence!!! Merci
Bonjour,
Essaies donc ceci
Sub hop()
Pos = InStr(1, Range("B1").Value, Chr(10))
avant = Mid(Range("B1").Value, 1, Pos - 1)
apres = Mid(Range("B1").Value, Pos + 1)
End Sub
Bonjour,
J'ai un texte (sur plusieurs lignes avec caractère carré de retour chariot
me semble t-il?) dans une cellule B1
J'aimerais inclure dans une macro la recherche d'une occurence dans cette
chaine contenue dans B1 et supprimer tout caractère situé avant (ou après)
cette occurence!!!
Merci
Sub hop() Pos = InStr(1, Range("B1").Value, Chr(10)) avant = Mid(Range("B1").Value, 1, Pos - 1) apres = Mid(Range("B1").Value, Pos + 1) End Sub
Bonjour, J'ai un texte (sur plusieurs lignes avec caractère carré de retour chariot me semble t-il?) dans une cellule B1 J'aimerais inclure dans une macro la recherche d'une occurence dans cette chaine contenue dans B1 et supprimer tout caractère situé avant (ou après) cette occurence!!! Merci
pegase33
Si j'ai comme occurence "résultats" comment dois-je le placer dans la macro??? Et pour effacer j'utilise clear???
Merci
Merci "OnE" a écrit dans le message de news:
Bonjour,
Essaies donc ceci
Sub hop() Pos = InStr(1, Range("B1").Value, Chr(10)) avant = Mid(Range("B1").Value, 1, Pos - 1) apres = Mid(Range("B1").Value, Pos + 1) End Sub
Bonjour, J'ai un texte (sur plusieurs lignes avec caractère carré de retour chariot me semble t-il?) dans une cellule B1 J'aimerais inclure dans une macro la recherche d'une occurence dans cette chaine contenue dans B1 et supprimer tout caractère situé avant (ou après) cette occurence!!! Merci
Si j'ai comme occurence "résultats" comment dois-je le placer dans la
macro???
Et pour effacer j'utilise clear???
Merci
Merci
"OnE" <OnE@discussions.microsoft.com> a écrit dans le message de news:
OzsDx6w0FHA.3780@TK2MSFTNGP12.phx.gbl...
Bonjour,
Essaies donc ceci
Sub hop()
Pos = InStr(1, Range("B1").Value, Chr(10))
avant = Mid(Range("B1").Value, 1, Pos - 1)
apres = Mid(Range("B1").Value, Pos + 1)
End Sub
Bonjour,
J'ai un texte (sur plusieurs lignes avec caractère carré de retour
chariot me semble t-il?) dans une cellule B1
J'aimerais inclure dans une macro la recherche d'une occurence dans cette
chaine contenue dans B1 et supprimer tout caractère situé avant (ou
après) cette occurence!!!
Merci
Si j'ai comme occurence "résultats" comment dois-je le placer dans la macro??? Et pour effacer j'utilise clear???
Merci
Merci "OnE" a écrit dans le message de news:
Bonjour,
Essaies donc ceci
Sub hop() Pos = InStr(1, Range("B1").Value, Chr(10)) avant = Mid(Range("B1").Value, 1, Pos - 1) apres = Mid(Range("B1").Value, Pos + 1) End Sub
Bonjour, J'ai un texte (sur plusieurs lignes avec caractère carré de retour chariot me semble t-il?) dans une cellule B1 J'aimerais inclure dans une macro la recherche d'une occurence dans cette chaine contenue dans B1 et supprimer tout caractère situé avant (ou après) cette occurence!!! Merci
