Problème d'incrustation de guillemet autour du texte de ma cellule
clemasson
Messages postés7Date d'inscriptionmardi 28 février 2006StatutMembreDernière intervention29 mai 2008
-
8 nov. 2006 à 13:03
clemasson
Messages postés7Date d'inscriptionmardi 28 février 2006StatutMembreDernière intervention29 mai 2008
-
8 nov. 2006 à 14:33
Bonjour,
ça fait 3 jours que je cherche partout comment supprimer la création automatique
de " avant et après le texte contenu dans ma cellule A1 sous excel par exemple.
(mon texte est généré par un module)
Ce texte contient des char(13) ou vbcr ( c'est la cause de mon pb)
Les " en question ne se voient pas dans la cellule xls.
Le phénomène se produit lorsque je fais un copier/coller de ma cellule vers un
document du bloc notes par exemple ou un module VBA.
Ca ne se produit pas si je colle ma cellule dans word.
Ca ne se produit pas non plus lorsque je séléctionne mon texte à l'aide du
curseur.
J'ai tellement cherché la solution que maintenant je cherche un génie pour
m'aider ;-)
Pour info le contenu de cette cellule est destiné à être inséré dans un module
access.
Merci et bonne journée !
A voir également:
Problème d'incrustation de guillemet autour du texte de ma cellule
clemasson
Messages postés7Date d'inscriptionmardi 28 février 2006StatutMembreDernière intervention29 mai 2008 8 nov. 2006 à 14:33
'boucle utile pour ne pas afficher plus de 500 caractères par ligne, créer un retour chariot
Dim X As Integer
Dim Temp As String
Temp = ""
Tempz = ""
Cible = ""
For z = 3 To Range("AD6500").End(xlUp).Row Step 1
Temp = Range("AD" & z)
Cible = Cible & Temp
If Len(Cible) > 500 Then
Tempz = Tempz & Cible & " _" & vbCr
Cible = ""
End If
Next z
Tempz = Tempz & Cible
'ici on retire le dernier caractère ";"
Tempz = Left(Tempz, Len(Tempz) - 1)
'ici on retire le premier caractère " "
Tempz = Right(Tempz, Len(Tempz) - 1)
Range(CelLibreAR4).Select
Range(CelLibreAR4).Value = Tempz
Pour reproduire le défaut séléctionne le texte puis
mets toi dans une cellule ou dans la barre de formule pour avoir le curseur et colle le texte.
Ensuite sors de la cellule, sélectionne là puis fais un copier/coller dans le bloc Notes.
et la tu verras les " ".
voici mon mail
[mailto:euro.speed@free.fr euro.speed@free.fr]
envois moi un message bidon et je te transmets une feuille excel avec la cellule en question si tu veux.