Condition Si cellule contient mot alors cellule adjacente

Bonjour à tous,

Novice en VBA, je cherche désespérément une solution à mon problème.

Mettons que j'ai un fichier client qui doit faire apparaître en colonne A le moyen de paiement (liste déroulante avec valeurs Chèque, Prélèvement, Virement etc etc.). Quand je sélectionne Prélèvement dans une cellule de la colonne A, je souhaite que la cellule adjacente en colonne B affiche la Référence Unique de Mandat dont la formule est calculée dans une autre feuille "Référence Mandat".

J'avais bien trouvé un code ci-dessous qui permettait d'afficher ma référence en colonne B rien qu'en entrant n'importe quelle valeur dans la colonne A mais je sèche pour faire la même chose avec une liste déroulante...

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
 Target.Offset(0, 1) = Sheets("Référence Mandat").Range("A6")
 End If
End Sub

Je sais que la solution n'est pas loin mais mes connaissances sont insuffisantes en l'état pour la trouver.

Merci d'avance pour votre aide et vos conseils.

Bernard

Bonjour,

pas sûr d'avoir tout compris; un essai non testé faute de classeur joint:

Private Sub Worksheet_Change(ByVal Target As Range)
   If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
       If Target.Value = "Prélèvement" Then  Target.Offset(0, 1).Value = Sheets("Référence Mandat").Range("A6").Value
 End If
End Sub

A+

C'est exactement ça !

Un grand merci AlgoPlus, vous aviez tout compris ^^

Ca me permet de voir et de comprendre ce qu'il me manquait

Bonne journée.

Cordialement

Bernard