Bonjour,
j'ai récupérer une feuille excel dans laquelle tous les retours chariots apparaissent sous cette
forme : %0a (ce code vient de l'application d'origine importée sous excel)
j'aimerais savoir comment faire pour transformer ce code en véritable retour chariot dans toute la
feuille (fonction macro ou autre.
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
Oliv'
Pascal Legrand que je salut a écrit dans 429ede8d$0$29529$
Bonjour, j'ai récupérer une feuille excel dans laquelle tous les retours chariots apparaissent sous cette forme : %0a (ce code vient de l'application d'origine importée sous excel) j'aimerais savoir comment faire pour transformer ce code en véritable retour chariot dans toute la feuille (fonction macro ou autre.
d'avance merci en vba :
sub remplace_ligne () Cells.Select quoi="$car(10)$" 'remplacer par ta recherche Application.ReplaceFormat.WrapText = True Selection.Replace What:=quoi, Replacement:=Chr(10), LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:úlse, SearchFormat:úlse, _ ReplaceFormat:=True end sub
-- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Have a nice day Oliv' Pour me joindre : http://cerbermail.com/?V8r2o1YHl4 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Pascal Legrand <Pascal.Legrand.nospam@univ-orleans.fr> que je salut a écrit
dans 429ede8d$0$29529$626a14ce@news.free.fr
Bonjour,
j'ai récupérer une feuille excel dans laquelle tous les retours
chariots apparaissent sous cette forme : %0a (ce code vient de
l'application d'origine importée sous excel) j'aimerais savoir comment
faire pour transformer ce code en véritable
retour chariot dans toute la feuille (fonction macro ou autre.
d'avance merci
en vba :
sub remplace_ligne ()
Cells.Select
quoi="$car(10)$" 'remplacer par ta recherche
Application.ReplaceFormat.WrapText = True
Selection.Replace What:=quoi, Replacement:=Chr(10), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:úlse, SearchFormat:úlse, _
ReplaceFormat:=True
end sub
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Pascal Legrand que je salut a écrit dans 429ede8d$0$29529$
Bonjour, j'ai récupérer une feuille excel dans laquelle tous les retours chariots apparaissent sous cette forme : %0a (ce code vient de l'application d'origine importée sous excel) j'aimerais savoir comment faire pour transformer ce code en véritable retour chariot dans toute la feuille (fonction macro ou autre.
d'avance merci en vba :
sub remplace_ligne () Cells.Select quoi="$car(10)$" 'remplacer par ta recherche Application.ReplaceFormat.WrapText = True Selection.Replace What:=quoi, Replacement:=Chr(10), LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:úlse, SearchFormat:úlse, _ ReplaceFormat:=True end sub
-- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Have a nice day Oliv' Pour me joindre : http://cerbermail.com/?V8r2o1YHl4 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Pascal Legrand
-------- Message original --------
Pascal Legrand que je salut a écrit dans 429ede8d$0$29529$
Bonjour, j'ai récupérer une feuille excel dans laquelle tous les retours chariots apparaissent sous cette forme : %0a (ce code vient de l'application d'origine importée sous excel) j'aimerais savoir comment faire pour transformer ce code en véritable retour chariot dans toute la feuille (fonction macro ou autre.
d'avance merci en vba :
sub remplace_ligne () Cells.Select quoi="$car(10)$" 'remplacer par ta recherche Application.ReplaceFormat.WrapText = True Selection.Replace What:=quoi, Replacement:=Chr(10), LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:úlse, SearchFormat:úlse, _ ReplaceFormat:=True end sub
Tout d'abord merci pour ta réponse
Je suis une vraie bille dans la variable quoi si je veux qu'il me remplace %0a par le retour chariot je met : quoi="%0a"???? de plus lorsque j'execute ce code j'ai l'erreur suivante : Erreur d'execution 438 propriété ou méthode non gérée par cet objet Quand je clique su r déboguage il surligne la ligne suivante : Application.ReplaceFormat.WrapText = True
encore merci
-------- Message original --------
Pascal Legrand <Pascal.Legrand.nospam@univ-orleans.fr> que je salut a écrit
dans 429ede8d$0$29529$626a14ce@news.free.fr
Bonjour,
j'ai récupérer une feuille excel dans laquelle tous les retours
chariots apparaissent sous cette forme : %0a (ce code vient de
l'application d'origine importée sous excel) j'aimerais savoir comment
faire pour transformer ce code en véritable
retour chariot dans toute la feuille (fonction macro ou autre.
d'avance merci
en vba :
sub remplace_ligne ()
Cells.Select
quoi="$car(10)$" 'remplacer par ta recherche
Application.ReplaceFormat.WrapText = True
Selection.Replace What:=quoi, Replacement:=Chr(10), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:úlse, SearchFormat:úlse, _
ReplaceFormat:=True
end sub
Tout d'abord merci pour ta réponse
Je suis une vraie bille dans la variable quoi si je veux qu'il me remplace %0a par le retour chariot
je met : quoi="%0a"????
de plus lorsque j'execute ce code j'ai l'erreur suivante :
Erreur d'execution 438 propriété ou méthode non gérée par cet objet
Quand je clique su r déboguage il surligne la ligne suivante :
Application.ReplaceFormat.WrapText = True
Pascal Legrand que je salut a écrit dans 429ede8d$0$29529$
Bonjour, j'ai récupérer une feuille excel dans laquelle tous les retours chariots apparaissent sous cette forme : %0a (ce code vient de l'application d'origine importée sous excel) j'aimerais savoir comment faire pour transformer ce code en véritable retour chariot dans toute la feuille (fonction macro ou autre.
d'avance merci en vba :
sub remplace_ligne () Cells.Select quoi="$car(10)$" 'remplacer par ta recherche Application.ReplaceFormat.WrapText = True Selection.Replace What:=quoi, Replacement:=Chr(10), LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:úlse, SearchFormat:úlse, _ ReplaceFormat:=True end sub
Tout d'abord merci pour ta réponse
Je suis une vraie bille dans la variable quoi si je veux qu'il me remplace %0a par le retour chariot je met : quoi="%0a"???? de plus lorsque j'execute ce code j'ai l'erreur suivante : Erreur d'execution 438 propriété ou méthode non gérée par cet objet Quand je clique su r déboguage il surligne la ligne suivante : Application.ReplaceFormat.WrapText = True
encore merci
Oliv'
Pascal Legrand que je salut a écrit dans 429eef4d$0$29396$
-------- Message original --------
Pascal Legrand que je salut a écrit dans 429ede8d$0$29529$
Bonjour, j'ai récupérer une feuille excel dans laquelle tous les retours chariots apparaissent sous cette forme : %0a (ce code vient de l'application d'origine importée sous excel) j'aimerais savoir comment faire pour transformer ce code en véritable retour chariot dans toute la feuille (fonction macro ou autre.
d'avance merci en vba :
sub remplace_ligne () Cells.Select quoi="$car(10)$" 'remplacer par ta recherche Application.ReplaceFormat.WrapText = True Selection.Replace What:=quoi, Replacement:=Chr(10), LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:úlse, SearchFormat:úlse, _ ReplaceFormat:=True end sub
Tout d'abord merci pour ta réponse
Je suis une vraie bille dans la variable quoi si je veux qu'il me remplace %0a par le retour chariot je met : quoi="%0a"???? YES !!
de plus lorsque j'execute ce code j'ai l'erreur suivante : Erreur d'execution 438 propriété ou méthode non gérée par cet objet Quand je clique su r déboguage il surligne la ligne suivante : Application.ReplaceFormat.WrapText = True ca doit venir de ta version moi OFFICE 2003
tu peux supprimer cette ligne et le faire manuellement dans format/cellule/alignement/renvoyer à la ligne.
-- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Have a nice day Oliv' Pour me joindre : http://cerbermail.com/?V8r2o1YHl4 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Pascal Legrand <Pascal.Legrand.nospam@univ-orleans.fr> que je salut a écrit
dans 429eef4d$0$29396$626a14ce@news.free.fr
-------- Message original --------
Pascal Legrand <Pascal.Legrand.nospam@univ-orleans.fr> que je salut
a écrit dans 429ede8d$0$29529$626a14ce@news.free.fr
Bonjour,
j'ai récupérer une feuille excel dans laquelle tous les retours
chariots apparaissent sous cette forme : %0a (ce code vient de
l'application d'origine importée sous excel) j'aimerais savoir
comment faire pour transformer ce code en véritable
retour chariot dans toute la feuille (fonction macro ou autre.
d'avance merci
en vba :
sub remplace_ligne ()
Cells.Select
quoi="$car(10)$" 'remplacer par ta recherche
Application.ReplaceFormat.WrapText = True
Selection.Replace What:=quoi, Replacement:=Chr(10), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:úlse,
SearchFormat:úlse, _ ReplaceFormat:=True
end sub
Tout d'abord merci pour ta réponse
Je suis une vraie bille dans la variable quoi si je veux qu'il me
remplace %0a par le retour chariot je met : quoi="%0a"????
YES !!
de plus lorsque j'execute ce code j'ai l'erreur suivante :
Erreur d'execution 438 propriété ou méthode non gérée par cet objet
Quand je clique su r déboguage il surligne la ligne suivante :
Application.ReplaceFormat.WrapText = True
ca doit venir de ta version moi OFFICE 2003
tu peux supprimer cette ligne et le faire manuellement dans
format/cellule/alignement/renvoyer à la ligne.
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Pascal Legrand que je salut a écrit dans 429eef4d$0$29396$
-------- Message original --------
Pascal Legrand que je salut a écrit dans 429ede8d$0$29529$
Bonjour, j'ai récupérer une feuille excel dans laquelle tous les retours chariots apparaissent sous cette forme : %0a (ce code vient de l'application d'origine importée sous excel) j'aimerais savoir comment faire pour transformer ce code en véritable retour chariot dans toute la feuille (fonction macro ou autre.
d'avance merci en vba :
sub remplace_ligne () Cells.Select quoi="$car(10)$" 'remplacer par ta recherche Application.ReplaceFormat.WrapText = True Selection.Replace What:=quoi, Replacement:=Chr(10), LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:úlse, SearchFormat:úlse, _ ReplaceFormat:=True end sub
Tout d'abord merci pour ta réponse
Je suis une vraie bille dans la variable quoi si je veux qu'il me remplace %0a par le retour chariot je met : quoi="%0a"???? YES !!
de plus lorsque j'execute ce code j'ai l'erreur suivante : Erreur d'execution 438 propriété ou méthode non gérée par cet objet Quand je clique su r déboguage il surligne la ligne suivante : Application.ReplaceFormat.WrapText = True ca doit venir de ta version moi OFFICE 2003
tu peux supprimer cette ligne et le faire manuellement dans format/cellule/alignement/renvoyer à la ligne.
-- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Have a nice day Oliv' Pour me joindre : http://cerbermail.com/?V8r2o1YHl4 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Pascal Legrand
-------- Message original --------
Pascal Legrand que je salut a écrit dans 429eef4d$0$29396$
-------- Message original --------
Pascal Legrand que je salut a écrit dans 429ede8d$0$29529$
Bonjour, j'ai récupérer une feuille excel dans laquelle tous les retours chariots apparaissent sous cette forme : %0a (ce code vient de l'application d'origine importée sous excel) j'aimerais savoir comment faire pour transformer ce code en véritable retour chariot dans toute la feuille (fonction macro ou autre.
d'avance merci en vba :
sub remplace_ligne () Cells.Select quoi="$car(10)$" 'remplacer par ta recherche Application.ReplaceFormat.WrapText = True Selection.Replace What:=quoi, Replacement:=Chr(10), LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:úlse, SearchFormat:úlse, _ ReplaceFormat:=True end sub
Tout d'abord merci pour ta réponse
Je suis une vraie bille dans la variable quoi si je veux qu'il me remplace %0a par le retour chariot je met : quoi="%0a"???? YES !!
de plus lorsque j'execute ce code j'ai l'erreur suivante : Erreur d'execution 438 propriété ou méthode non gérée par cet objet Quand je clique su r déboguage il surligne la ligne suivante : Application.ReplaceFormat.WrapText = True ca doit venir de ta version moi OFFICE 2003
tu peux supprimer cette ligne et le faire manuellement dans format/cellule/alignement/renvoyer à la ligne.
nikel
encore merci
-------- Message original --------
Pascal Legrand <Pascal.Legrand.nospam@univ-orleans.fr> que je salut a écrit
dans 429eef4d$0$29396$626a14ce@news.free.fr
-------- Message original --------
Pascal Legrand <Pascal.Legrand.nospam@univ-orleans.fr> que je salut
a écrit dans 429ede8d$0$29529$626a14ce@news.free.fr
Bonjour,
j'ai récupérer une feuille excel dans laquelle tous les retours
chariots apparaissent sous cette forme : %0a (ce code vient de
l'application d'origine importée sous excel) j'aimerais savoir
comment faire pour transformer ce code en véritable
retour chariot dans toute la feuille (fonction macro ou autre.
d'avance merci
en vba :
sub remplace_ligne ()
Cells.Select
quoi="$car(10)$" 'remplacer par ta recherche
Application.ReplaceFormat.WrapText = True
Selection.Replace What:=quoi, Replacement:=Chr(10), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:úlse,
SearchFormat:úlse, _ ReplaceFormat:=True
end sub
Tout d'abord merci pour ta réponse
Je suis une vraie bille dans la variable quoi si je veux qu'il me
remplace %0a par le retour chariot je met : quoi="%0a"????
YES !!
de plus lorsque j'execute ce code j'ai l'erreur suivante :
Erreur d'execution 438 propriété ou méthode non gérée par cet objet
Quand je clique su r déboguage il surligne la ligne suivante :
Application.ReplaceFormat.WrapText = True
ca doit venir de ta version moi OFFICE 2003
tu peux supprimer cette ligne et le faire manuellement dans
format/cellule/alignement/renvoyer à la ligne.
Pascal Legrand que je salut a écrit dans 429eef4d$0$29396$
-------- Message original --------
Pascal Legrand que je salut a écrit dans 429ede8d$0$29529$
Bonjour, j'ai récupérer une feuille excel dans laquelle tous les retours chariots apparaissent sous cette forme : %0a (ce code vient de l'application d'origine importée sous excel) j'aimerais savoir comment faire pour transformer ce code en véritable retour chariot dans toute la feuille (fonction macro ou autre.
d'avance merci en vba :
sub remplace_ligne () Cells.Select quoi="$car(10)$" 'remplacer par ta recherche Application.ReplaceFormat.WrapText = True Selection.Replace What:=quoi, Replacement:=Chr(10), LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:úlse, SearchFormat:úlse, _ ReplaceFormat:=True end sub
Tout d'abord merci pour ta réponse
Je suis une vraie bille dans la variable quoi si je veux qu'il me remplace %0a par le retour chariot je met : quoi="%0a"???? YES !!
de plus lorsque j'execute ce code j'ai l'erreur suivante : Erreur d'execution 438 propriété ou méthode non gérée par cet objet Quand je clique su r déboguage il surligne la ligne suivante : Application.ReplaceFormat.WrapText = True ca doit venir de ta version moi OFFICE 2003
tu peux supprimer cette ligne et le faire manuellement dans format/cellule/alignement/renvoyer à la ligne.
