Modif valeur copiée sous Excel avant paster
Résolu
Bidouille74
Messages postés
10
Date d'inscription
Statut
Membre
Dernière intervention
-
Bidouille74 Messages postés 10 Date d'inscription Statut Membre Dernière intervention -
Bidouille74 Messages postés 10 Date d'inscription Statut Membre Dernière intervention -
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.
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:
- Modif valeur copiée sous Excel avant paster
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
- Excel moyenne - Guide
10 réponses
Bonjour,
Pouvez-vous mettre la procédure complète et la valeur exacte qui se trouve dans la cellule [B82] ?
Pouvez-vous mettre la procédure complète et la valeur exacte qui se trouve dans la cellule [B82] ?
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
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
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 ?
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 ?
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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 + ?
Range("B82").Select
Selection.Copy
End Sub
mais cela correspond à ce que j'avais mis dans ma demande initale. Que puis-je dire de + ?
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].
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].
Salut
déjà eu ce probleme, tu peux utiliser le code ci-dessous :
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)
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)