OVH Cloud OVH Cloud

copier le texte seulement

13 réponses
Avatar
j
salut tous
dans une cellule j'ai du texte
comment faire en vba pour ne copier que le texte (sans les formats et autres
excelleries) ?
ie ce que je fais à la mimine et sélectionnant le texte dnas la barre de
formules et en faisant ctrl c...
merci
j@c

10 réponses

1 2
Avatar
Denis Michon
Bonjour ,

Essaie ceci : une façon de faire ...

'-------------------
Sub CopierTexte()

Dim Tblo As Variant

With Worksheets("Feuil1")
Set rg = .Range("A1:B10")
Tblo = rg
End With

With Worksheets("Feuil2")
.Range("A1").Resize(UBound(Tblo, 1), UBound(Tblo, 2)) = Tblo
End With

Set rg = Nothing

End Sub
'-------------------


Salutations!


"" a écrit dans le message de news:%
salut tous
dans une cellule j'ai du texte
comment faire en vba pour ne copier que le texte (sans les formats et autres
excelleries) ?
ie ce que je fais à la mimine et sélectionnant le texte dnas la barre de
formules et en faisant ctrl c...
merci

Avatar
Nicolas B.
Salut ,

Quelque chose comme ceci peut-être :
Range("A1").Copy
Range("A2").PasteSpecial Paste:=xlPasteValues

Eventuellement quelques paramètres à modifier, ça dépend ce que sont les
"autres excelleries".


A+
--
Nicolas B.

Adresse @adresse.bidon.com invalide,
E-mail : www.cerbermail.com/?gAAILfkPsC


salut tous
dans une cellule j'ai du texte
comment faire en vba pour ne copier que le texte (sans les formats et
autres excelleries) ?
ie ce que je fais à la mimine et sélectionnant le texte dnas la barre
de formules et en faisant ctrl c...
merci



Avatar
AV
dans une cellule j'ai du texte
comment faire en vba pour ne copier que le texte (sans les formats et autres
excelleries) ?


[B1] = [A1]
??
AV

Avatar
j
oups...
je crois que je me suis mal exprimé
Je ne veux pas recopier le texte de la cellule, je veux simplement le passer
dans le presse-papiers sous forme de TEXTE.
OK, ça parait bizarre, je m'explique
Dans ma cellule (ou dans une variable vba) il y a par exemple :
"<TABLE><TR><TD>zaza</TD><TD>toto</TD></TR></TABLE>"
(c'est à dire une table HTML)
Si je place ce texte dans le presse papiers et que je le copie en texte dans
une page Excel, Excel m'interprète le HTML et me recrache le tableau que je
peux utiliser normalement.
(Évidemment si je copie une cellule contenant ce texte, je ne pourrai coller
que la cellule !)

je peux toujours passer par un fichier texte intermédiaire mais je
préfèrerais m'en passer...
Any idea ?


"" a écrit dans le message de news:
#
salut tous
dans une cellule j'ai du texte
comment faire en vba pour ne copier que le texte (sans les formats et
autres

excelleries) ?
ie ce que je fais à la mimine et sélectionnant le texte dnas la barre de
formules et en faisant ctrl c...
merci





Avatar
Frédéric Sigonneau
Bonsoir ,

Peut-être en utilisant un DataObject ? Et en utilisant la propriété Text de la
cellule comme chaîne à stocker dans cet objet ?
Exemple de code pour le manipuler :

http://perso.wanadoo.fr/frederic.sigonneau/code/Excel/UtiliserPressePapiers.txt

FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !


oups...
je crois que je me suis mal exprimé
Je ne veux pas recopier le texte de la cellule, je veux simplement le passer
dans le presse-papiers sous forme de TEXTE.
OK, ça parait bizarre, je m'explique
Dans ma cellule (ou dans une variable vba) il y a par exemple :
"<TABLE><TR><TD>zaza</TD><TD>toto</TD></TR></TABLE>"
(c'est à dire une table HTML)
Si je place ce texte dans le presse papiers et que je le copie en texte dans
une page Excel, Excel m'interprète le HTML et me recrache le tableau que je
peux utiliser normalement.
(Évidemment si je copie une cellule contenant ce texte, je ne pourrai coller
que la cellule !)

je peux toujours passer par un fichier texte intermédiaire mais je
préfèrerais m'en passer...
Any idea ?

"" a écrit dans le message de news:
#
salut tous
dans une cellule j'ai du texte
comment faire en vba pour ne copier que le texte (sans les formats et
autres

excelleries) ?
ie ce que je fais à la mimine et sélectionnant le texte dnas la barre de
formules et en faisant ctrl c...
merci







Avatar
j
génial, ça marche
j'avais fait en passant par un fichier texte intermédiaire mais là c'est
impec
merci



"Frédéric Sigonneau" a écrit dans le message
de news:
Bonsoir ,

Peut-être en utilisant un DataObject ? Et en utilisant la propriété Text
de la

cellule comme chaîne à stocker dans cet objet ?
Exemple de code pour le manipuler :


http://perso.wanadoo.fr/frederic.sigonneau/code/Excel/UtiliserPressePapiers.

txt

FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !


oups...
je crois que je me suis mal exprimé
Je ne veux pas recopier le texte de la cellule, je veux simplement le
passer


dans le presse-papiers sous forme de TEXTE.
OK, ça parait bizarre, je m'explique
Dans ma cellule (ou dans une variable vba) il y a par exemple :
"<TABLE><TR><TD>zaza</TD><TD>toto</TD></TR></TABLE>"
(c'est à dire une table HTML)
Si je place ce texte dans le presse papiers et que je le copie en texte
dans


une page Excel, Excel m'interprète le HTML et me recrache le tableau que
je


peux utiliser normalement.
(Évidemment si je copie une cellule contenant ce texte, je ne pourrai
coller


que la cellule !)

je peux toujours passer par un fichier texte intermédiaire mais je
préfèrerais m'en passer...
Any idea ?

"" a écrit dans le message de news:
#
salut tous
dans une cellule j'ai du texte
comment faire en vba pour ne copier que le texte (sans les formats et
autres

excelleries) ?
ie ce que je fais à la mimine et sélectionnant le texte dnas la barre
de



formules et en faisant ctrl c...
merci









Avatar
AV
Sur ce modèle ?

Sub zzzzzz()
laVar = "<TABLE><TR><TD>zaza</TD><TD>toto</TD></TR></TABLE>"
[A1] = "<" & Mid(laVar, 2, Len(laVar) - 2) & ">"
End Sub

AV
Avatar
j
merci Alain,
mais je ne veux pas recoller du texte dans la cellule 1, je veux en fait
copier comme du html. Il faut que je passe par paste.
mais la solution de Frédéric marche super, ne perd pas ton temps
encore merci


"AV" a écrit dans le message de news:

Sur ce modèle ?

Sub zzzzzz()
laVar = "<TABLE><TR><TD>zaza</TD><TD>toto</TD></TR></TABLE>"
[A1] = "<" & Mid(laVar, 2, Len(laVar) - 2) & ">"
End Sub

AV




Avatar
AV
mais je ne veux pas recoller du texte dans la cellule 1, je veux en fait
copier comme du html. Il faut que je passe par paste.


Il y a un dinstinguo qui m'échappe totalement !
Dans la mesure où tu passes le texte dans une variable tu "paste" où tu veux et
quand tu veux non ?

Enfin..bon... comme tu as qu'il fallait pas que je "perde mon temps" ;-)

AV

Avatar
j
non justement, mon pb c'était bien de mettre ce fichu texte dans le
presse-papier pour le coller ensuite
- si je copie le texte exemple dont on parle
("<TABLE><TR><TD>zaza</TD><TD>toto</TD></TR></TABLE>") en A1, j'obtiens
zaza en A1 et toto en B1.
- si je dis [A1]="<TABLE><TR><TD>zaza</...") j'aurai simplement cet horrible
texte dans la cellule A1 et rien dans la cellule A2

Ce que je fais c'est profiter du fait que Excel sait lire le HTML pour
récupérer des tables HTML dans des pages web que je ne peux pas ouvrir
directement sous Excel...

encore merci




"AV" a écrit dans le message de news:
#dn#
mais je ne veux pas recoller du texte dans la cellule 1, je veux en fait
copier comme du html. Il faut que je passe par paste.


Il y a un dinstinguo qui m'échappe totalement !
Dans la mesure où tu passes le texte dans une variable tu "paste" où tu
veux et

quand tu veux non ?

Enfin..bon... comme tu as qu'il fallait pas que je "perde mon temps" ;-)

AV





1 2