XL 2021 Rechercher les prénoms

Créer une discussion
Répondre

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
S

sonskriverez

XLDnaute Occasionnel
Bonjour le Forum,

Dans mon fichier j'ai 2 onglets et phrase. Je voudrais en utilsant les prénoms de l'onglet "Prénoms", surlignier toutes les cellules de l'onglet "Phrase" contenant un prénom.

MErci de votre aide
 

Pièces jointes

Trier par date Trier par votes
sonskriverez à dit:
Bonjour le Forum,

Dans mon fichier j'ai 2 onglets et phrase. Je voudrais en utilsant les prénoms de l'onglet "Prénoms", surlignier toutes les cellules de l'onglet "Phrase" contenant un prénom.

MErci de votre aide
Cliquez pour agrandir...
Bonjour,
Un essai mais ... vu l'étendue de la liste des prénoms, la macro ressort plein de scories ; exemple, le prénom anson est trouvé dans tous les titres contenant le mot "chanson", et les exemples de ce type fourmillent.
Cordialement,
 

Pièces jointes

Vote positif 0 Vote négatif
Bonjour

une propostion avec une macro à mettre dans un module standard

et au préalable.. il faut supprimer les lignes qui affichent "#Valeur" dans ta colonne B de phrases
à noter que vu la quantité de lignes à traiter.. la macro prend près de 7mn

VB: 
Sub Colorer2()
    Dim TabPh() As Variant
    Dim TabPré() As Variant
    Dim DicoPré As Object
    
    Set DicoPré = CreateObject("Scripting.dictionary")
    
    deb = Timer
    With Sheets("Prénoms")
        TabPré = .Range("A1").CurrentRegion.Value
        For i = LBound(TabPré, 1) To UBound(TabPré, 1)
            clé = TabPré(i, 1)
            If Not DicoPré.exists(clé) Then DicoPré.Add clé, i
        Next i
    End With
    With Sheets("Phrase")
        LastLine = .Range("B" & .Rows.Count).End(xlUp).Row
        TabPh = .Range("B2:C" & LastLine).Value
        
        For i = LBound(TabPh, 1) To UBound(TabPh, 1)
            For Each clé In DicoPré.keys
            'MsgBox clé
                If UCase(Trim(TabPh(i, 1))) = UCase(clé) Or InStr(1, UCase(TabPh(i, 1)), " " & UCase(clé) & " ") <> 0 Or InStr(1, UCase(TabPh(i, 1)), UCase(clé) & " ") <> 0 Or InStr(1, UCase(TabPh(i, 1)), " " & UCase(clé)) <> 0 Then
                    TabPh(i, 2) = clé
                    Exit For
                End If
            
            Next clé
        Next i
 
        .Range("B2:C" & LastLine) = TabPh
    End With
    MsgBox "Opération terminée en " & Timer - deb & " s"
End Sub
 
Vote positif 0 Vote négatif
vgendron à dit:
Bonjour

une propostion avec une macro à mettre dans un module standard

et au préalable.. il faut supprimer les lignes qui affichent "#Valeur" dans ta colonne B de phrases
à noter que vu la quantité de lignes à traiter.. la macro prend près de 7mn

VB: 
Sub Colorer2()
    Dim TabPh() As Variant
    Dim TabPré() As Variant
    Dim DicoPré As Object
   
    Set DicoPré = CreateObject("Scripting.dictionary")
   
    deb = Timer
    With Sheets("Prénoms")
        TabPré = .Range("A1").CurrentRegion.Value
        For i = LBound(TabPré, 1) To UBound(TabPré, 1)
            clé = TabPré(i, 1)
            If Not DicoPré.exists(clé) Then DicoPré.Add clé, i
        Next i
    End With
    With Sheets("Phrase")
        LastLine = .Range("B" & .Rows.Count).End(xlUp).Row
        TabPh = .Range("B2:C" & LastLine).Value
       
        For i = LBound(TabPh, 1) To UBound(TabPh, 1)
            For Each clé In DicoPré.keys
            'MsgBox clé
                If UCase(Trim(TabPh(i, 1))) = UCase(clé) Or InStr(1, UCase(TabPh(i, 1)), " " & UCase(clé) & " ") <> 0 Or InStr(1, UCase(TabPh(i, 1)), UCase(clé) & " ") <> 0 Or InStr(1, UCase(TabPh(i, 1)), " " & UCase(clé)) <> 0 Then
                    TabPh(i, 2) = clé
                    Exit For
                End If
           
            Next clé
        Next i
 
        .Range("B2:C" & LastLine) = TabPh
    End With
    MsgBox "Opération terminée en " & Timer - deb & " s"
End Sub
Cliquez pour agrandir...
Bjr, au bout de quelques minutes, la macro plante à la ligne "If Ucase.." erreur 13
 
Vote positif 0 Vote négatif
sonskriverez à dit:
Bje Gégé,

Merci pour ce travail, mais cela sélectionne beaucoup de lignes qui ne contiennent pas de prénom
Cliquez pour agrandir...
Lorsque, dans la liste, vous avez des prénoms comme "ai", avez-vous une idée du nombre de mots qui commencent ou qui finissent par "ai", et ceci n'est qu'un exemple.
Une bonne solution, restreindre la liste des prénoms à des occurrences plus courantes.
Cdlt
 
Vote positif 0 Vote négatif
Cette version est "légèrement" plus rapide....
VB: 
Sub Colorer3()
    Dim TabPh() As Variant
    Dim TabPré() As Variant
    Dim DicoPré As Object
    
    Set DicoPré = CreateObject("Scripting.dictionary")
    
    deb = Timer
    With Sheets("Prénoms")
        TabPré = .Range("A1").CurrentRegion.Value
        For i = LBound(TabPré, 1) To UBound(TabPré, 1)
            clé = UCase(Trim(TabPré(i, 1)))
            If Not DicoPré.exists(clé) Then DicoPré.Add clé, i
        Next i
    End With

    With Sheets("Phrase")
        LastLine = .Range("B" & .Rows.Count).End(xlUp).Row
        TabPh = .Range("B2:C" & LastLine).Value
        
        For i = LBound(TabPh, 1) To UBound(TabPh, 1)
            TabTemp = Split(TabPh(i, 1), " ")
            For j = LBound(TabTemp) To UBound(TabTemp)
                If DicoPré.exists(UCase(TabTemp(j))) Then
                    TabPh(i, 2) = TabTemp(j)
                    Exit For
                End If
            Next j
        Next i
        .Range("B2:C" & LastLine) = TabPh
    End With
    MsgBox "Opération terminée en " & Timer - deb & " s"
End Sub
 
Vote positif 0 Vote négatif
bonsoir
c'est un truc qui a été vu plusieurs fois ça
il y a diverses méthodes quelques une ont été abordées ici sur xld par @mapomme et d'auitres camarades ainsi que moi même
si vous cherchez avec les pseudos vous devriez trouver
certaines méthodes se sont révélées relativement très rapide
 
Vote positif 0 Vote négatif
re
je n'ai pavu "Les" DANS LES PR2NOMS MOI
1744134160536.png
 
Vote positif 0 Vote négatif
re
ben va voir l'ophtalmo alors "Les" c'est pas "leroy" ou "lesedi"
si tu devais prendre en compte les syllabes ça n'aurait aucun sens car tout serait presque en rouge à mon avis
Absurde comme réflexion mes lunettes vont très bien
si tu cherche les prénoms c'est les prénoms en entier 🙄
je cite le demandeur au cas ou
Dans mon fichier j'ai 2 onglets et phrase. Je voudrais en utilsant les prénoms de l'onglet "Prénoms", surlignier toutes les cellules de l'onglet "Phrase" contenant un prénom.
Cliquez pour agrandir...
je récapépète"contenant un prenom"
 
Vote positif 0 Vote négatif
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

lynyrd
  • Question Question
XL 2019 Ajouter une msg Box pour les prénoms
Réponses
10
Affichages
262
lynyrd
lynyrd
B
  • Résolu(e)
XL 2013 Regrouper des listes de noms et prénoms
Réponses
7
Affichages
686
Birobi
B
G
  • Question Question
XL 2010 Copier valeur plusieurs cellules vers plusieurs ZoneTexte vba
Réponses
6
Affichages
260
Gnedea
G
R
  • Question Question
Microsoft 365 recherche en decalant
Réponses
4
Affichages
312
ROSSI85
R
K
  • Question Question
XL 2016 Coup de main pour créer un fichier Excel qui gère le suivi des visites médicales du personnel.
Réponses
4
Affichages
352
dysorthographie
dysorthographie
W
  • Résolu(e)
XL 2019 Retirer un mot dans un pavé de cellules contenant des Vblf
2
Réponses
21
Affichages
420
Webperegrino
W
Pierre77
  • Question Question
Microsoft 365 Problème Création Sommaire
Réponses
4
Affichages
218
sylvanu
sylvanu
M
Gestion du personnel, Pointage quotidien (présences, absences…)
Réponses
4
Affichages
325
MHORY
M
W
  • Résolu(e)
XL 2016 Gestion de liste transposée dans une autre feuille avec décalage d'une colonne et exclusion de certains éléments
Réponses
9
Affichages
534
Webperegrino
W
D
  • Résolu(e)
XL 2021 afficher prénom de la plageprénom si correspondance avec prénom à la date du jour dans plage10 (fêtes)
Réponses
5
Affichages
595
DédéW83
D
O
  • Question Question
XL 2019 Inscription club sportif
Réponses
11
Affichages
255
Gégé-45550
Gégé-45550
Yann71
  • Question Question
Microsoft 365 Impression recto-verso
Réponses
2
Affichages
97
Yann71
Yann71
N
  • Question Question
Microsoft 365 Séparer NOM et Prénom d'une ListBox dans 2 Textbox
5 6 7
Réponses
98
Affichages
3 K
NONO14
N
S
  • Résolu(e)
XL 2016 Récupération valeurs cellules lignes autre onglet
Réponses
11
Affichages
113
safranien
S
W
  • Question Question
XL 2016 Macro pour remplissage de case automatique
Réponses
2
Affichages
323
Wanou22
W
V
  • Question Question
Autres Importer des données avec condition depuis l'onglet source
Réponses
4
Affichages
475
vdudu
V
F
  • Question Question
XL 2016 recherche de mots
2
Réponses
19
Affichages
614
job75
job75
D
  • Résolu(e)
Microsoft 365 Remplissage colonne automatique dépendant d'un tableau
Réponses
7
Affichages
724
fanfan38
fanfan38
N
  • Résolu(e)
XL 2019 copier coller sous condition avec trois feuil
Réponses
11
Affichages
474
Nico77
N
I
  • Question Question
XL pour MAC Xlsm - Fichier permettant de gérer un cross d'établissement scolaire
Réponses
8
Affichages
570
iruri
I
Retour