Sujet Précédent Sujet Suivant

Modif valeur copiée sous Excel avant paster

Résolu/Fermé
Bidouille74 Messages postés 10 Date d'inscription mercredi 27 janvier 2010 Statut Membre Dernière intervention 9 mars 2010 - 27 janv. 2010 à 11:09
Bidouille74 Messages postés 10 Date d'inscription mercredi 27 janvier 2010 Statut Membre Dernière intervention 9 mars 2010 - 29 janv. 2010 à 09:45
Bonjour, j'ai crée grace à la superbe macro qui suit :
Range("B82").Select
Selection.Copy
le contenu d'une cellule afin de pourvoir la coller en dehors d'excel à volonté dans un nom de fichier sous l'explorateur. Malheureusement, le contenu contient un CR ou Carriage Return (en pastant dans un notepad je vois qu'il y a deux lignes) et donc je ne vois rien quand je paste ma valeur dans mon mon de fichier.
Comment puis-je modifier ma valeur qui a été copier et qui est donc encore en mémoire afin de lui enlever en automatique dans ma macro ce méchant caractère ?
Merci aux érudits de tous poils.
A voir également:

10 réponses

Réponse 1 / 10
Le Pingou Messages postés 12041 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 22 avril 2024 1 425
27 janv. 2010 à 17:46
Bonjour,
Pouvez-vous mettre la procédure complète et la valeur exacte qui se trouve dans la cellule [B82] ?
0
Réponse 2 / 10
Bidouille74 Messages postés 10 Date d'inscription mercredi 27 janvier 2010 Statut Membre Dernière intervention 9 mars 2010
28 janv. 2010 à 10:11
en [B87], j'ai un report à une autre cellule : =N37
en [N37], j'ai la formule suivante : =CONCATENER(GAUCHE($H$5;4);"_";B65;"_";DROITE($B$6;4)) et le résultat est un chaine = "PART_RS60_4321"

Merci pour votre aide

Cordialement

Claude
0
Réponse 3 / 10
Le Pingou Messages postés 12041 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 22 avril 2024 1 425
28 janv. 2010 à 11:09
Bonjour,
Merci pour l'information sur la valeur exacte, c'est parfait.
Mais où est la procédure (macro) utiliée pour coller sur une autre application ?
0
Réponse 4 / 10
Bidouille74 Messages postés 10 Date d'inscription mercredi 27 janvier 2010 Statut Membre Dernière intervention 9 mars 2010
28 janv. 2010 à 14:05
Dans la fenetre du VBA
sous VBAProject
sous Microsoft Excel Objects
Dans la Feuil1
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 10
Le Pingou Messages postés 12041 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 22 avril 2024 1 425
28 janv. 2010 à 14:10
Bonjour,
Oui et je fais comment pour voir le code de cette procédure !
0
Réponse 6 / 10
Bidouille74 Messages postés 10 Date d'inscription mercredi 27 janvier 2010 Statut Membre Dernière intervention 9 mars 2010
28 janv. 2010 à 14:15
Private Sub CommandButton4_Click()
Range("B82").Select
Selection.Copy
End Sub
mais cela correspond à ce que j'avais mis dans ma demande initale. Que puis-je dire de + ?
0
Réponse 7 / 10
Le Pingou Messages postés 12041 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 22 avril 2024 1 425
28 janv. 2010 à 16:20
Bonjour,
Eh bien je pense que j’ai enfin compris votre façon de faire.
Vous passez par l’outil [Presse-papier] et dans se cas c’est ce dernier qui met un retour à la ligne.
Passer par [Collage spécial…] (touche : Alt+Ctrl+V) et choisir [Texte sans mise en forme].
0
Réponse 8 / 10
tompols Messages postés 1273 Date d'inscription jeudi 29 juillet 2004 Statut Contributeur Dernière intervention 25 novembre 2013 435
28 janv. 2010 à 18:22
Salut
déjà eu ce probleme, tu peux utiliser le code ci-dessous : 
mastring = Range("B82").Value
Set mydata = New dataObject
mydata.SetText mastring
mydata.PutInClipboard

Nécessite une référence à la bibliotheque "Microsoft Forms 2.0 Object Library", soit tu l'ajoutes à la main via le menu Outils\Références, soit tu crées un userform ds ton projet (cela activera la référence)
0
Réponse 9 / 10
Le Pingou Messages postés 12041 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 22 avril 2024 1 425
28 janv. 2010 à 21:25
Merci tompols,
Excellente solution que je ranges au bon endroit..
0
Réponse 10 / 10
Bidouille74 Messages postés 10 Date d'inscription mercredi 27 janvier 2010 Statut Membre Dernière intervention 9 mars 2010
29 janv. 2010 à 09:45
Un grand grand Merci à TOMPOLS et à toi egalement Le PINGOU pour votre aide.
Ca marche du tonnerre de ....
A charge de revanche.

Claude
0

Discussions similaires

Formule Excel : "SI" une cellule contient un mot, alors ?
Tonio5933 -
Mike-31 -

9 réponses