Discussion :

[Frizz]

Bonjour,
Je souhaiterai trouver une formule ou une macro qui me permettrai d'effectuer les actions suivantes :
retrouver parmi une grande liste une cellule dont le contenu correspond au contenu d'une cellule situee sur une autre feuille puis selectionner et copier la ligne correspondante dans une troisieme feuille.
Je pense que le fichier Excel en PJ sera plus parlant!
Merci beaucoup de votre aide,

[gFZT82]

Bonjour,

Une solution avec VBA.
On utilise l'évènement Change de la feuille "Selection" pour détecter une modification de la valeur de la cellule B2.
Ensuite, on recherche la valeur correspondante dans la colonne A de la feuille "Choix possibles".
Et enfin, on copie cette valeur et les coefficients associés dans la feuille "Travail".

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim WsS As Worksheet, WsC As Worksheet
Dim C As Range
    If Target.Count = 1 And Target.Address = "$B$2" Then
        Set WsS = Worksheets("Choix possibles")
        Set WsC = Worksheets("Travail")
        Set C = WsS.Range("Choix").Find(Target.Value, , xlValues, xlWhole)
        If Not C Is Nothing Then
            C.Resize(, 4).Copy WsC.Range("A3")
            WsC.Select
            WsC.Range("A3").Select
        End If
        Set C = Nothing: Set WsS = Nothing: Set WsC = Nothing:
    End If
End Sub

[Frizz]

Bonjour! Merci beaucoup de votre reponse aussi rapide, elle semble marcher parfaitement! Je la teste au plus vite en l'adaptant au vrai projet et je reviens vers vous s'il y a un soucis!

[Frizz]

Pouvez vous m'expliquer en detail la ligne
Set C = WsS.Range("Choix").Find(Target.Value, , xlValues, xlWhole)

En effet, il y a un bug lorsque j'essaie de transposer cela a mon projet et je ne comprends pas d'ou viens la definition "Choix"...

Merci d'avance!

[Frizz]

Pas de soucis finalement, j'ai reussi a m'en sortir! Encore merci de votre aide!