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

Usine à gaz

XLDnaute Barbatruc
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

  • Coller_ds_barre_formule.xlsm
    11 KB · Affichages: 23
Dernière édition:
Trier par date Trier par votes

David Aubert

XLDnaute Barbatruc
Administrateur
Modérateur
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

job75

XLDnaute Barbatruc
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

youky(BJ)

XLDnaute Barbatruc
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

  • Coller_ds_barre_formule (1).xlsm
    20.5 KB · Affichages: 20
Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc
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

Usine à gaz

XLDnaute Barbatruc
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

Usine à gaz

XLDnaute Barbatruc

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

Usine à gaz

XLDnaute Barbatruc
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

  • Coller_ds_barre_formule_youky_test10.xlsm
    22.8 KB · Affichages: 5
  • Coller_ds_barre_formule_Youky.xlsm
    18.4 KB · Affichages: 4
Dernière édition:
Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc
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.

Discussions similaires

  • Résolu(e)
Autres Taille de la police dans la barre des formules
Réponses
2
Affichages
129
CISCO
G
  • Question
formule texte
Réponses
8
Affichages
572
TooFatBoy
  • Résolu(e)
XL 2016 VBA - Redimensionner un UserForm après le retrait de la barre du menu système (Caption)
5 6 7
Réponses
101
Affichages
2 K
Dudu2
R
  • Résolu(e)
Microsoft 365 Aide formule de comptage de texte dans lignes d'un tableau
Réponses
2
Affichages
147
richard31
R
M
  • Question
XL 2016 comment faire une barre de recherche
Réponses
7
Affichages
184
mumu91800
M
  • Question
XL 2016 formule si avec du texte
Réponses
14
Affichages
430
richardlion
F
  • Question
XL 2019 VBA et Power Query - Barre de progression
Réponses
10
Affichages
340
crocrocro
C
L
  • Question
Microsoft 365 Mise en barre
Réponses
2
Affichages
561
crocrocro
C
R
  • Question
Microsoft 365 Inscrire une date et initiales dans un fichier .pdf ouvert
Réponses
1
Affichages
210
kiki29
  • Résolu(e)
XL 2013 Automatisation de la Saisie et de l'Affichage des Textes dans une plage
Réponses
7
Affichages
401
chaelie2015
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…