Procédure trop Grande

Bonjour à tous,

Étant donné qu'il y a maintenant 3 cellules qui peuvent déclencher la macro (selon ton fichier de travail), voici la macro adaptée.

Code modifié ...

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim c As Range
    If Target.Address =  "$V$4" Or Target.Address = "$X$4" Or Target.Address = "$Z$4" Then
        With Sheets("Params")
            Set c = .[A:D].Find(Range("$AB$4").Value, , xlValues, xlWhole)
            [18:4586].EntireRow.Hidden = True
            If Not c Is Nothing Then Range(.Cells(c.Row, "E").Value).EntireRow.Hidden = False
        End With
    End If
End Sub

Je t'envoie le lien du fichier complété avec la macro adaptée en message privé ... ne sachant pas si tu voulais partager le fichier de travail avec la communauté.

Merci à eriiic pour la version très courte du code.

ric

merci merci merci

ca fonctionne.

Rester plus qu'a configurer ma feuille params avec mes 546 possibilités et ce sera parfait;

Je reviens vers vous dans 3 jours

Une chose m'échappe.

Tu as 4 cellules pour entrer les ref et tu ne veux afficher que la dernière saisie et non les 4 ?

eric

Bonjour à tous.

En fait, je me suis trompé, il n'y a que 3 cellules qui peuvent déclencher la macro

V4...w4...X4...y4...Z4 ....... quant à AB4 elle, c'est une formule =V4&X4&Z4

R1 & R4 & BB = R1R4BB

Désolé de mon inattention

ric

Non

Je veux afficher les lignes (dans mon premier onglent) proposé dans la cellule E (onglet PARAMS) si la référence dans AB4 (premier onglet se trouve dans l'une des collones A, B,C ou D (onglet PARAMS)

Dans ce cas reviens à mon premier code.

.[A:D].Find recherche AB4 dans les 4 colonnes en même temps.

Je n'ai pas pu voir ton fichier, tu ne m'as envoyé que des liens moisis...