Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 coller un texte dans la barre de formule

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bonjour à toutes et à tous,

Me voici avec un nouveau souci que je ne parviens par à résoudre.
Rien trouvé sur le net et mes tentatives ne donnent rien..

Je me permets, une fois de plus de vous le soumettre, dans l'espoir d'une solution :

Nous copions des informations à chaque instant qui viennent du net.
Des liens et des textes d'annonces de biens à vendre.

actuellement, je copie les textes d'annonces dans une cellule et, par exemple,
Un texte copié en cellule F5, se "propage" de F5 à F28 voire plus encore.

Je ramène tout ça dans une seule cellule par concaténer ou par &&&.
Mais voilà, mon fichier (+ de 50.000 lignes) est très lourd et depuis longtemps je me demandais pourquoi ?
(Alors que dans ma feuille, il n'y a aucune formule (elles sont dans mes codes) et donc que des valeurs.)

En testant dans tous les sens, je me suis aperçu que cette lourdeur provient de la copie des textes des annonces.

En effet, un classeurs avec seulement 5500 lignes à un poids de 3mégas.
Le même fichier en copiant directement les textes dans la barre de formule à un poids de - d'un méga.
D'où ma demande 🙂
Mon besoin est copier le texte directement dans la barre de formule,

Je n'arrive pas à faire un code qui exécute l'action de "coller"
dans la barre de formule pour la cellule choisie (dans l'exemple B3)

le cheminement serait celui-ci :
- sur le site où est le texte à copier, sélection et copy
- double clic dans la cellule réceptrice et le code copie dans la barre de formule

Je joins un fichier test.
Avec mes remerciements,
Je vous souhaite à toutes et à tous un super WE 🙂
amicalement,
arthour973,
 

Pièces jointes

Dernière édition:
Trier par date Trier par votes
Bonjour Arthour, bonjour à tous,
Merci de bien vérifier que tu es en phase avec ce point de la charte :

Si ce n'est pas le cas cette demande ne peut pas être publiée sur le site et je devrai la supprimer.
Merci pour ta compréhension et bon WE.
David
 
Vote positif 0 Vote négatif
Bonjour David,

C'est pour mon travail et ce que nous copions est professionnel et tout à fait autorisé.
Je pourrai te le montrer en message privé si nécessaire 🙂
Merci de t'en être inquiété 🙂
Amicalement,
arthour973
 
Vote positif 0 Vote négatif
Bonjour Lionel, hello David,

Tu ne prends pas le problème par le bon bout.

Car pour coller dans la barre de formule il faut être en mode "Edition" et alors aucune macro ne peut s'exécuter.

Mais ton problème se règle facilement par Collage spécial-Valeurs en exécutant cette macro :
VB: 
Sub CollageSpecialValeurs()
Dim ac As Range
Set ac = ActiveCell
Application.ScreenUpdating = False
On Error Resume Next 'si rien n'a été copié
With Workbooks.Add.Sheets(1) 'nouveau document
    .Paste
    .UsedRange.Copy
    ac.PasteSpecial xlPasteValues 'collage spécial-valeurs
    .Parent.Close False 'fermeture du nouveau document
End With
End Sub
A+
 
Vote positif 0 Vote négatif
Bonjour Gérard,

Je te remercie d'être encore là pour moi 🙂
Merci aussi pour le code mais ça ne veut pas marcher.
ça copie toujours sur plusieurs cellules.

Je continue mes recherches 🙂
@+
 
Vote positif 0 Vote négatif
Je profite de l'occasion pour donner le bonjour à mon voisin David.
Avec XLD nous avons l'occasion de grosses prises de tête mais on aime ça.
Chaque demande est un défis plus ou moins évident.
Pour celle-ci c'est que du texte alors . . . .
J'ai ajouté 2 onglets et une macro sur double _click dans ce fichier
Bruno
 

Pièces jointes

Vote positif 0 Vote négatif
Re- Gérard,

Cela me semble impossible car j'ai relevé en cherchant :

Quand nous travaillons, des centaines de fois par jours, nous ajoutons des annonces dans le fichier.
Je crois comprendre, que pour être en mode édition, il faut sortir du fichier pour y revenir.
Mais répété des centaines de fois/jours, nous perdrions trop de temps.

J'essais de faire des recherches pour voir si un code vba permet d'être en mode édition pour faire le "coller"
dans la barre de formule et de revenir au mode "normal" automatiquement et sans perdre de temps 🙂
Lionel,
 
Dernière édition:
Vote positif 0 Vote négatif
Oui Gérard et c'est ce que je fais depuis le début.
Mais le souci est que mon fichier et bcp trop lourd à cause de cette façon de coller :

"actuellement, je copie les textes d'annonces dans une cellule et, par exemple,
Un texte copié en cellule F5, se "propage" de F5 à F28 voire plus encore.
Je ramène tout ça dans une seule cellule par concaténer ou par &&&. "

"Mais voilà, mon fichier (+ de 50.000 lignes) est très lourd et depuis longtemps je me demandais pourquoi ?
(Alors que dans ma feuille, il n'y a aucune formule (elles sont dans mes codes) et donc que des valeurs.)

En testant dans tous les sens, je me suis aperçu que cette lourdeur provient de la copie des textes des annonces.
En effet, un classeurs avec seulement 5500 lignes à un poids de 3mégas.
Le même fichier en copiant directement les textes dans la barre de formule à un poids de - d'un méga.
D'où ma demande 🙂
Mon besoin est copier le texte directement dans la barre de formule,

Mais la méthode de Youky (Bruno) semble fonctionner même si elle modifie un peu notre façon de travailler.

Je vais voir ...

Encore merci Gérard 🙂
 
Dernière édition:
Vote positif 0 Vote négatif

Re-Bonjour Bruno,

Votre code fonctionne. Je vais voir comment intégrer cela dans nos fichiers de travail.
Un grand merci à vous 🙂
amicalement,
lionel,
 
Vote positif 0 Vote négatif
Bonjour à toutes et à tous,

Je reviens sur le fil car j'ai un nouveau souci.
Bien évidemment, le code de youky(BJ) fonctionne super bien (un grand merci 🙂).

Mais j'ai un autre traitement à faire :
Dans mon fichier de travail, j'ai environ 50.000 annonces (1 ligne par annonce) à re-traiter.

Je copie tout ça en valeur dans la feuille LaCopie en colonne B et j'ai fait une boucle For dans laquelle j'ai intégré le code de Youky
La copie en feuille "RECAP" se fait bien mais ….

le code copie le texte de la ligne précédemment copiée en y ajoutant l'annonce qu'il copie au moment de son exécution.
voir traitement fait en feuille "RECAP".

Je n'arrive pas à trouver comment modifier pour obtenir la bonne copie des annonces les unes en dessous des autres.
Pourriez-vous m'aider encore une fois? LOL
je joins un fichier anonymisé test pour 100 lignes ainsi que le fichier d'origine de Youky.

Avec mes remerciements,
Je vous souhaite à toutes et à tous une agréable journée,
Amicalement,
arthour973,
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Bonjour Arthour,
Je suis pas sur d'avoir compris ta demande.
Voici un code
Bruno
VB: 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'c'est pour col B
'1 double-click en col B copie le target à la suite en RECAP et efface la ligne de Lacopie
cancel=true
If Target.Value = "" Then Exit Sub
lig = Feuil4.[A65000].End(3).Row + 1
Feuil4.Cells(lig, 1) = Target.Value
Rows(Target.Row).Delete
End Sub
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Résolu(e)
XL 2013 Histogramme avec une seule barre par cellule
Réponses
6
Affichages
203
CISCO
F
  • Question Question
XL 2016 recherche de mots
2
Réponses
19
Affichages
475
job75
V
  • Résolu(e)
Microsoft 365 Barre de recherche : comment rendre éditable le résultat ?
2 3 4
Réponses
52
Affichages
928
dysorthographie
J
  • Question Question
Microsoft 365 VBA transformer une formule au format texte en formule dans excel
Réponses
2
Affichages
144
jujulili
J
  • Question Question
Microsoft 365 Effacer (et non supprimer) une ligne suivant texte.
Réponses
6
Affichages
125
DAVID-44-
  • Question Question
XL 2016 [RESOLU]Affichage texte et résultat d'une cellule dans une forme
Réponses
3
Affichages
161
nrdz83
R
  • Résolu(e)
XL 2010 vba excel : recherche concordance chaine texte dans cellule et données stockées dans un tablo (array)
Réponses
4
Affichages
179
Raynaud.JF
R
Z
  • Question Question
Microsoft 365 Formule index et contient texte
Réponses
2
Affichages
68
sylvanu
  • Question Question
XL 2019 Formule Max Cellules date
Réponses
3
Affichages
93
Caninge
D
  • Question Question
XL 2010 verifier le texte d une collonne et le coller dans la feuille 2
Réponses
3
Affichages
77
Staple1600
  • Résolu(e)
Microsoft 365 rendre visible automatiquement l'onglet de la feuille active sur la barre de navigation inférieure
Réponses
11
Affichages
697
Eric 888
  • Résolu(e)
XL 2021 Cette cellule contient une formule ? Ou un texte ? Mais en VBA.
Réponses
5
Affichages
161
Gégé-45550
F
  • Résolu(e)
Microsoft 365 Coller presse papier dans windows
Réponses
7
Affichages
146
Dudu2
P
  • Question Question
Microsoft 365 Insertion texte + numéro qui change à chaque changement de ligne
Réponses
4
Affichages
118
ptit_ange69
P
Y
  • Résolu(e)
XL 2016 Remplacer du texte par une image dans une application
Réponses
8
Affichages
179
OKBI
O
L
  • Résolu(e)
Autres Lier une cellule texte a une cellule valeur ou utiliser la formule max avec du texte
Réponses
4
Affichages
159
LBE
L
R
  • Résolu(e)
Microsoft 365 Aide formule de comptage de texte dans lignes d'un tableau
Réponses
2
Affichages
331
richard31
R
  • Question Question
Microsoft 365 Formule excel
Réponses
7
Affichages
177
eastwick
G
  • Question Question
formule texte
Réponses
8
Affichages
625
TooFatBoy
J
  • Question Question
XL 2021 Copier Coller données numériques page WEB
Réponses
1
Affichages
86
Jul1en
J
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…