XL 2010 extraire des mots en gras

mapomme

XLDnaute Barbatruc

Supporter XLD

• 25 Septembre 2021

• #31

patricktoulon à dit:

(je soupçonne un truc ) et déjà remarqué et je reviens

Cliquez pour agrandir...

Curieux et impatient de connaitre l'issue de ta recherche...

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 25 Septembre 2021

• #32

Bon ben c'est choux blanc
j'ai cru que comme souvent quand je télécharge un fichier 2016 zt plus
et donc plus le core xml étant plus lourd ça me joue des tours sur la rapidité mais là non pas moyen de passer en dessous les 22/23 secondes

ça peut pas être le pc si je met moins d'une seconde en html
j'ai supprimer le kb pour le LAAC
j'ai supprimé le complément PowerQuery
mon excel est vierge
j'avoue je suis perdu

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 25 Septembre 2021

• #33

Re @patricktoulon,

Test de ton code du post #30 sur le fichier du post #14 : 3,5 s.

Je suppose que tu as éteint le PC puis redémarrer (un jour ça m'a supprimé des incohérences dans les traitements d'Excel). Mais là je doute fort que cela améliore les choses.
Tu n'as pas une autre machine pour tester?

C'est tout de même fort de café ton anomalie et pas facile pour trouver une piste!

 

Dernière édition: 25 Septembre 2021

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 25 Septembre 2021

• #34

re
non pas moyen
mon dernier code sur le fichier du post30
j'avoue que ca commence a me les chauffer ce truc

 

Vote positif 1 Vote négatif

C

carber

XLDnaute Nouveau

• 26 Septembre 2021

• #35

Bonsoir
Je vous remercie pour l'aide que vous nous apporté

je souhaite mettre tout les mots qui sont récupérer dans une autre feuille et dans une seul colonne

j'ai mis dans le code

VB:

Range("C2:C400").Copy Feuil2.Range("A1:A400")
Range("D2:D400").Copy Feuil2.Range("B1:B400")
Range("E2:E400").Copy Feuil2.Range("C1:C400")

mais je ne arrive pas a fusionner en une seule liste de mot

- A la place que les mots en gras s'affiche dans le feuille 1 a coté le texte, je souhaite affiché les mot dans la feuille 2 en une seule liste et une seule colonne

 

Pièces jointes

• extractiontexte-en-gras- v1.xlsm

  74.3 KB · Affichages: 3

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 26 Septembre 2021

• #36

Bonsoir carber,

Il est temps de vous manifester !

Je ne vois pas l'intérêt d'utiliser une 2ème feuille mais bon.

Voyez ce fichier (3) et la macro dans le code de la feuille "Résultat" :

VB:

Private Sub Worksheet_Activate()
With Feuil1.UsedRange 'CodeName de la feuille à adapter
    With .Columns(2) 'colonne auxiliaire
        .FormulaR1C1 = "=Mots_Gras(RC[-1])"
        .Value = .Value 'supprime les formules
        .Cells(1) = "MOTS GRAS"
        [A1].Resize(.Rows.Count) = .Value 'copie les valeurs
        [A1].Offset(.Rows.Count).Resize(Rows.Count - .Rows.Count).ClearContents 'RAZ en dessous
        .ClearContents 'RAZ
    End With
End With
Columns(1).AutoFit 'ajustement largeur
End Sub

Elle se déclenche automatiquement quand on active la feuille.

La fonction VBA Mots_Gras est la même qu'au post #12.

A+

 

Pièces jointes

• test-extraction-texte-en-gras(3).xlsm

  24.8 KB · Affichages: 4

Vote positif 1 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 26 Septembre 2021

• #37

Bonsoir Carber, Job, Patrick, Mapomme,
Je suis reparti de la macro très rapide de Patrick, et je restitue sur la Feuil2 en une seule colonne.
Sur mon PC pour 800 lignes j'obtiens 0.63s.

 

Pièces jointes

• test-extraction-texte-en-gras html version 2 patricktoulon (5).xlsm

  37.4 KB · Affichages: 3

Vote positif 1 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 26 Septembre 2021

• #38

Bonsoir à tous,

Ma p'tite version avec possibilité de tri et suppression des doublons.

Si utile, Il reste une option qui pourrait être la suppression des pluriels.

 

Pièces jointes

• carber- extractiontexte-en-gras- v2.xlsm

  68.9 KB · Affichages: 3

Vote positif 1 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 27 Septembre 2021

• #39

Re,
Avec l'option "suppression des pluriels (en s) si les singuliers figurent dans la liste".

 

Pièces jointes

• carber- extractiontexte-en-gras- v3.xlsm

  70.8 KB · Affichages: 11

Dernière édition: 27 Septembre 2021

Vote positif 1 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 27 Septembre 2021

• #40

Bonjour à tous

un modèle qui fait la lessive non??

 

Vote positif 0 Vote négatif