RECHERCHEV + Macro

Bonjour à tous,

J'ai un classeur avec 2feuilles

En feuil 2, avec RECHERCHEV

je vais chercher en feuil1 celon la valeur de B2

Ce qui me copy les valeurs.

j'aimerai faire un copier coler de la ligne avec la MFC

Quelqu'un pourrait il m'aiguiller sur la façon de lancer une macro qui ferait le copier coller en fonction du résultat de la formule RECHERCHEV

Par avance merci

Bonjour

En interceptant l'événement Change

Mais c'est un peu figé comme méthode (si tu as plusieurs lignes avec ta RECHERCHE cela ne sera pas évident)

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cel As Range

  If Not Intersect(Range("B2"), Target) Is Nothing And Target.Count = 1 Then
    Set cel = Sheets("Feuil1").Columns("B").Find(what:=Target, LookIn:=xlValues, lookat:=xlWhole)
    If Not cel Is Nothing Then
      cel.Offset(0, 1).Resize(1, 6).Copy
      Range("B5").PasteSpecial Paste:=xlPasteFormats
      Application.CutCopyMode = False
    Else
      Range("B5:G5").Interior.ColorIndex = xlNone
    End If
  End If
End Sub

Bonjour le forum,

Bonjour Banzai64,

La macro est top.

J'ai effectivement plusieurs lignes qui sont placées sur différentes feuilles, j'ai donc adaptée la macro pour chacune d'elles,

à première vue ça fonctionne.

A suivre

Donc un grand merci à toi