XL 2016 fonction rechercher

[phil77]

bonjour

je suis nouveau et je suis perdu face a une recherche

je souhaiterais faire une recherche dans un tableau par exmple de tous les 1 qui n ont pas la couleur orange de fond et afficher aussi le contenu de la cellule bonus
et egalement la lettre de la ligne ou sont trouve les 1

merci d avance

 

[Florian53]

Bonjour phil77 et bienvenue sur le forum,

Voici un essai en pièce jointe car je ne sais pas si j'ai très bien compris ta demande.

 

[job75]

Bonjour phil77, Florian53,

Fichier joint avec cette macro dans le code de la feuille (clic droit sur l'onglet et Visualiser le code) :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rech, source As Range, tablo, ncol%, resu, i&, n%, j%, h&
With [J7] 'à adapter
    If Intersect(Target, .Cells) Is Nothing Then Exit Sub 'à adapter
    rech = .Value
End With
Set source = [A6].CurrentRegion 'à adapter
tablo = source 'tableau VBA, plus rapide
ncol = UBound(tablo, 2)
Application.ScreenUpdating = False
If FilterMode Then ShowAllData 'si la feuille est filtrée
With [K8] 'à adapter
    With .Resize(Rows.Count - .Row + 1, 3)
        .ClearContents 'RAZ
        .Borders.LineStyle = xlNone
        resu = .Value 'tableau VBA, plus rapide
    End With
    For i = 1 To UBound(tablo)
        n = 0
        For j = 2 To ncol
            If tablo(i, j) = rech Then
                If source(i, j).Interior.ColorIndex = xlNone Then 'si la cellule est incolore
                    n = n + 1
                    If n = 1 Then h = h + 1: resu(h, 1) = tablo(i, 1): resu(h, 3) = tablo(i, ncol)
                End If
            End If
        Next j
        If n Then resu(h, 2) = n
    Next i
    If h Then
        .Resize(h, 3) = resu
        .Resize(h, 3).Borders.Weight = xlThin
    End If
End With
End Sub

Choisir une valeur dans la liste de validation en J7.

A+

 

[phil77]

bonjour Florian53 et job75

merci de votre aide
je vais faire des essais avec la methode de job75 qui corresponds mieux a notre attende

encore mille fois merci

 

[phil77]

désolé de revenir vers vous
serait il possible de savoir dans quel colonne se trouve les chiffres trouvé
dans mon exemple j ai les colonnes B C D E F G H

que lors de la recherche il me recréé un tableau par comme par exemple
si je cherche le 1 sans fond orange j obtiens comme sur ce fichier

puis si possible ou je dois modifier dans le code pour ajouter des lignes et des colonnes
encore merci et merci pour m avoir souhaite la bienvenue

 

[job75]

Re,

Il suffit de modifier légèrement la macro, fichier (2).

A+

 

[phil77]

re
super un tout grand merci cela me convient super
comment faire a présent pour ajouter des lignes et pour changer les chiffres dans le menu déroulant de la recherche
encore bravo pour ce forum

 

[job75]

comment faire a présent pour ajouter des lignes et pour changer les chiffres dans le menu déroulant de la recherche

Tout dépend de ce que vous voulez faire, de toute façon cherchez un peu.

 

[phil77]

merci pour la réponse

pour ajouter des lignes il suffit d étendre le tableau
et ensuite de le remplir
pour le menu déroulant changer a l intérieur
donc nickel
super bonne nuit