VBA RechercheV dans une colonne

Bonsoir le Forum,

Après une journée à chercher une solution...je n'arrive pas à trouver la solution...

Je ne sais pas si c'est possible...

J'ai une base de données (Onglet BDD FCJ) et j'aimerai quand je modifie une valeur dans la colonne C, que la valeur de la colonne D se modifie en fonction d'une recherche V dans l'onglet (Thèmes FCJ) en VBA.

Exemple : Quand je tape "INC_12" dans la cellule C7 le résultat en D7 soit "MSP + APP : Établissement d'une lance pré-connectée sur dévidoir fixe DN 40 - ETB 34"

Est-il possible d'avoir également une liste déroulante dans les colonne B et C sans les lignes vides..?

Colonne B en fonction de l'onglet "Listing Agents" et en colonne C en fonction de la colonne A de l'onglet "thèmes FCJ"

Merci pour votre aide.

Amicalement

Michael

Hello,

Je suis un fervent de vba mais je ne comprends pas pourquoi utiliser vba pour ta demande ...

Hello,

Car cette feuille est remplie par un autre fichier, c'est pour ça que j'aurai voulu une solution en VBA.

Merci

Bonsoir à tous,

Une proposition avec Power Query et une liste déroulante dynamique.

Power Query en add on sur Excel 2013. https://www.microsoft.com/fr-FR/download/details.aspx?id=39379

Cordialement

Bonjour Zebulon,

Merci pour ta solution, mais celle-ci ne correspond pas à mon projet.

Bonne journée

Michael

Pas très clair tout ça ...

j'aimerai quand je modifie une valeur dans la colonne C

cette feuille est remplie par un autre fichier

Dans les 2 cas une recherchev suffit dans la colonne D ....

Mais bon comme tu veux absolument faire une rechercheV en vba enjoy !

MonResultat = Application.WorksheetFunction.VLookup(Argument1, Argument2, Argument3, Argument4)

Merci de proposition.

Mais ça va supprimer la/les formules quand je vais importer les données...

concernant ton code : je ne le comprends pas...

Voici celui que j'ai fait avec l'enregistreur mais je n'arrive pas à faire pour qu'il s'applique uniquement dans le colonne D....

Sub Remplissage()
If Target.Column = 4 Then
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[-1]="""","""",VLOOKUP(RC[-1],'Thèmes FCJ'!R2C1:R248C7,2,FALSE))"
    ActiveCell.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

    ActiveCell.Select
    Application.CutCopyMode = False
    ActiveWorkbook.Save
End If

End Sub

Essaye comme ceci ( pas tester) :

dim dl as integer
With Sheets("BDD FCJ") 
    dl = .Range("C65536").End(xlUp).Row '
    .Cells(2, 4).Formula = "=VLOOKUP(C2,Thèmes FCJ!A2:B248",2,FALSE)" 
    Range("D2").Select 
    Selection.AutoFill Destination:=Range("D2:D" & dl), Type:=xlFillDefaultla 
End With

Merci, je vais tester et je vous redis.

Bonne soirée

Michael