XL 2013 Recherche noms dans liste avec macro

[mcj1997]

Bonjour,

Je recherche à automatiser la recherche de noms dans une liste avec une macro, fichier en PJ.

Merci d'avance,

 

[DoubleZero]

Re : Recherche noms dans liste avec macro

Bonjour, mcj1997, le Forum,

Un essai en pièce jointe.

A bientôt

P. S. : Bonjour + bises, Papu-net

 

[Papou-net]

Re : Recherche noms dans liste avec macro

Bonsoir mcl1997,

Un exemple de macro à insérer dans un module de code:

Option Compare Text

Sub Recherche()
Dim Cel As Range, Noms As String

Noms = "Francine, Delphine, Estelle"
With Feuil1
  For Each Cel In .Columns(1).SpecialCells(xlCellTypeConstants)
    Cel.Resize(1, 5).Interior.ColorIndex = IIf(InStr(Noms, Cel.Value) > 0, 43, 0)
  Next
End With
End Sub

A +

Cordialement.

Oups, pas rafraîchi! Bises nocturnes à toi, chère petite ânesse.

 

[Marc L]

Variantes …

Bonjour !

• Noms recherchés en dur dans le code :

​

Sub Demo1()
         Const F = "TRANSPOSE(IF(ISNUMBER(MATCH(#,{""delphine"",""estelle"",""francine""},0)),ADDRESS(ROW(#),1,4)))"
    With Cells(1).CurrentRegion
        .Interior.ColorIndex = xlNone
        VA = Filter(Evaluate(Replace(F, "#", .Columns(1).Address)), False, False)
        If UBound(VA) > -1 Then .Range(Join(VA, ",")).Interior.ColorIndex = 36
    End With
End Sub

• Recherche depuis une liste à partir de la cellule N1 :

​

Sub Demo2()
         Const F = "TRANSPOSE(IF(ISNUMBER(MATCH(#,@,0)),ADDRESS(ROW(#),1,4)))"
    With Cells(1).CurrentRegion
        .Interior.ColorIndex = xlNone
        VA = Filter(Evaluate(Replace(Replace(F, "#", .Columns(1).Address), "@", Cells(14).CurrentRegion.Address)), False, False)
        If UBound(VA) > -1 Then .Range(Join(VA, ",")).Interior.ColorIndex = 36
    End With
End Sub

_______________________________________________________________________________
Merci de cliquer sur J'aime ce post en bas à gauche de chaque message ayant aidé …

_______________________________________________________________________________
Je suis Paris, Charlie, Bruxelles, …
​

 

[mcj1997]

Re : Recherche noms dans liste avec macro

merci cela répond à ma problématique.

Cordialement,

Bonjour, mcj1997, le Forum,

Un essai en pièce jointe.

A bientôt

P. S. : Bonjour + bises, Papu-net