Aide formule avec rechercheV choix multiple

Bonsoir à tous,

xhurdebise,

la prochaine fois, ouvre un poste à ton nom, celui-ci étant

apparemment soldé par l'auteur.

Amadéus,

Quitte à coder, autant supprimer les formules

plus besoin de trier.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim x%
If Not Intersect([E16], Target) Is Nothing Then
    Rows(2).ClearContents
    With Sheets("tests")
        On Error Resume Next
        x = Application.Match(Target, .Range("b:b"), 0)
        On Error GoTo 0
        If x > 0 Then
            .Range(.Cells(x, "a"), .Cells(x, "k")).Copy Destination:=Range("a2")
        End If
    End With
End If
End Sub

Amicalement

Claude

Bonjour,

merci beaucoup à chacun d'entre vous !

Cordialement

LM Xhurdebise

Bonjour

Cordialement

Bonjour,

je reviens sur le sujet car je constate que l'extraction du test ne se réalise pas (A1-K2) lorsque je l'ai sélectionné (efg 16)

merci à vous

Bonjour

xhurdebise a écrit :

je constate que l'extraction du test ne se réalise pas (A1-K2) lorsque je l'ai sélectionné (efg 16)

C'est quoi efg 16 ?

Amicalement

Nad

Il s'agit de la plage de sékection du test par encodage de la première lettre

Re

Je n'ai aucun problème avec le fichier de Dubois.

L'as-tu modifié ? Si c'est le cas, merci de joindre le tien.

Nad

Oups, je n'avais pas ôté la protection anti-macro !!!!!

Je me sens le boulet du jour,

merci

Cordialement