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

XL 2016 recherche de mots

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
F

finarobert

XLDnaute Junior
Supporter XLD
bonsoir. Encore un problème qui m'échappe. Voir le fichier Excel qui accompagne. En onglet 1 intitulé texte de base, on trouve des phrases qui s'écrivent sur 2 lignes et qui commencent par Essai.. En onglet 2 intitulé mots recherchés je mets une liste de mots que je recherche dans ces textes. En onglet 3 intitulé Solution pour chaque mot recherché quand je le trouve, je copie la phrase (le mot est dans la deuxième ligne donc je copie la ligne précédente et la ligne qui contient le mot que j'ai mis en Gras. Le fichier est un exemple complet
est ce possible?
merci beaucoup
Robert
 

Pièces jointes

Trier par date Trier par votes
l'idéal serait qu'à partir de l'onglet 2 qui possède les lots recherchés, on lance une macro qui monte l'onglet 3
merci
Robert
 
Vote positif 0 Vote négatif
Bonjour finarobert, le forum,

Voyez le fichier joint et cette macro dans le code de la feuille "solution" :
VB: 
Option Compare Text 'la casse est ignorée

Private Sub Worksheet_Activate()
Dim critere As Range, crit1$, L%, crit2$, lig&, i&, c As Range, p%
Application.ScreenUpdating = False
Columns(1).Clear 'RAZ
For Each critere In Sheets("mots recherchés").[A1].CurrentRegion.Offset(1)
    crit1 = Trim(critere)
    If crit1 <> "" Then
        L = Len(crit1)
        crit2 = "*" & crit1 & "*"
        lig = lig + 1
        With Cells(lig, 1)
            .Font.Bold = True 'gras
            .Font.Color = vbBlue 'bleu
            .Font.Size = 14 'taille
            .Value = crit1
        End With
        lig = lig + 1
        With Sheets("texte de base").[A1].CurrentRegion
            For i = 2 To .Rows.Count Step 2
                If Application.CountIf(.Cells(i, 1).Resize(2), crit2) Then
                    Cells(lig, 1).Resize(2) = .Cells(i, 1).Resize(2).Value 'copie les valeurs
                    For Each c In Cells(lig, 1).Resize(2)
                        Do
                            p = InStr(p + 1, c, crit1)
                            If p Then
                                With c.Characters(p, L)
                                    .Font.Bold = True 'gras
                                    .Font.Size = 14 'taille
                                End With
                            Else
                                Exit Do 'sort de la boucle
                            End If
                        Loop
                    Next c
                    lig = lig + 2
                End If
            Next i
        End With
    End If
Next critere
End Sub
Elle se déclenche quand on active la feuille.

Pour tester j'ai recopié la plage A2:A15 de la 1ère feuille sur 14 000 lignes, la macro s'exécute chez moi en 3,8 secondes.

A+
 

Pièces jointes

Vote positif 0 Vote négatif
job75 à dit:
Juste cliquer sur son onglet en bas de la fenêtre Excel. La touche F5 n'a jamais fait partir une macro !
Cliquez pour agrandir...
ok.....et si ma liste de mots recherchés vient d'un autre fichier et que j'y vos des doublons. Puis je enlever ces doublons automatiquement avant d'avancer les solutions de l'onglet suivant (pour ne pas trouver plusieurs fois la même chose?
merci par avance
Robert
 

Pièces jointes

Vote positif 0 Vote négatif
job75 à dit:
Utilisez la commande Supprimer les doublons du menu Données.
Cliquez pour agrandir...
bonsoir. On m'a envoyé un gros fichier pour tester mais ça coince. Dans l'onglet base de données chaque donnée est sur deux lignes, la première commence par sp et la seconde par c. On cherche dans cette deuxième ligne le "mot" de l'onglet précédent, s'il est; on copie dans le troisième onglet la ligne supérieure qui commence par sp et la ligne du dessous qui commence par c. Orle fichier commence par une ligne en c donc pas de sp et plusieurs lignes dans le tableau commencent par s. Bon si cela est embêtant, on peut laisser tomber, je ne veux pas vous embeter plus. Cordialement Robert
le fichier est trop volumineux (7,5M)
 
Vote positif 0 Vote négatif
j'ai diminué le fichier de base et j'ai relancé? Vous voyez le premier commence par c034 qui est une deuxième ligne
job75 à dit:
Bonjour le forum,

La macro traite la 1ère feuille par groupes de 2 lignes donc tout va bien, le début des phrases n'a pas d'importance.

A+
Cliquez pour agrandir...
bonjour job75 et le forum
dommage que je ne peux joindre le fichier trop volumineux. Mais je vous envoie un exemple avec copie écran. Quand on fait tourner la moulinette la première ligne commence pas c5b556444. Ill manque au dessus la ligne qui commence par SP qui identifie les 2 lignes. e vous mets en copie l'extrait de la base de données avec a ligne c5 et sa ligne SP juste au dessus. Toute la base de données est construite comme cela. Cordialement
Robert
job75 à dit:
Bonjour le forum,

La macro traite la 1ère feuille par groupes de 2 lignes donc tout va bien, le début des phrases n'a pas d'importance.

A+
Cliquez pour agrandir...
 

Pièces jointes

  • c5b55....JPG
    35.9 KB · Affichages: 4
  • image1.JPG
    35.7 KB · Affichages: 5
Vote positif 0 Vote négatif
autre exemple dans l'image. On voit que 2d727, il n'y a rien . C'est OK
ensuite pour 626C2 : les deux premières lignes sont correctes, celle qui commence par SP (Q8W242.4) et sa ligne suivante qui elle possède 626C2 et commence par <c.
par contre la ligne suivante devrait commencer avec SP pour reprendre une nouvelle paire, mais elle n'est pas, on passe directement à la ligne suivante qui commence par <c. Si vos regardez dans la base, il y a bien une ligne qui commence par SP et qui chapeaute celle ligne <c. Toutes les lignes vont par couple : la deuxième possède l'info recherché et commence par <c. La première commence par SP et est juste avant.
Ce qui est dommage c'est que l'exemple (soleil etc...) marchait impec et que là...est ce le volume?
Si je vous embete trop, on laisse tomber. e ne veux pas prendre trop de votre temps
cordialement
Robert
 

Pièces jointes

  • c12a4626c2.JPG
    26.9 KB · Affichages: 3
Vote positif 0 Vote négatif
Je vais décortiquer la base de données pour voir si elle est bien nette....
 
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)
Microsoft 365 Si contient telle liste de mots, colorer en bleu, sinon autre liste en vert, autre en violet..., etc.
2
Réponses
17
Affichages
313
anthoYS
F
  • Question Question
XL 2016 mots en colonne et en ligne dans Excel
2
Réponses
21
Affichages
410
finarobert
F
J
  • Résolu(e)
Autres Extraire dans une phrase, les mots précédés d'un # en colonne.(Excel 2007)
2
Réponses
23
Affichages
387
patricktoulon
  • Question Question
XL 2021 Mots et maux : colorer et lister
2
Réponses
29
Affichages
1 K
DoubleZero
N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
108
patricktoulon
  • Résolu(e)
XL 2010 Recherche parties de mots dans une base de données
2
Réponses
25
Affichages
504
Caninge
R
  • Question Question
Microsoft 365 Protéger les mots de passe
2
Réponses
17
Affichages
465
Phil69970
M
  • Question Question
Microsoft 365 Impossible de coller en mode valeur
Réponses
10
Affichages
220
job75
C
Index de vos Macros avec Mots-Clés
2 3
Réponses
43
Affichages
756
oguruma
N
  • Résolu(e)
XL 2021 comment faire recherche dans une colonne et ligne
Réponses
5
Affichages
522
job75
A
  • Résolu(e)
XL 2016 Recherche d'un mot dans une cellule et surlignage de la ligne
Réponses
4
Affichages
215
Abi23
A
C
  • Question Question
XL 2010 Trier des lignes par nombre de mots pertinent
Réponses
3
Affichages
790
crocrocro
C
F
  • Question Question
XL 2016 tableaux xl
Réponses
12
Affichages
211
TooFatBoy
  • 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
695
Eric 888
M
  • Question Question
XL 2019 Recherche mots dans cellule et résultat dans cellule avec séparateur
2
Réponses
20
Affichages
1 K
job75
V
  • Résolu(e)
Microsoft 365 Recherche V avec 2 classeurs
Réponses
3
Affichages
111
JHA
J
  • Question Question
Microsoft 365 Effacer (et non supprimer) une ligne suivant texte.
Réponses
6
Affichages
123
DAVID-44-
K
  • Question Question
Microsoft 365 Couleur cellule recherche
Réponses
4
Affichages
97
fanfan38
  • Question Question
XL 2013 Filtrage automatique des résultats de recherche
Réponses
11
Affichages
472
TooFatBoy
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
177
Raynaud.JF
R
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…