RechercheV - plusieurs réponses possible

Bonjour Noël,

Effectivement... le bouton m'oblige à définir la ligne... Mais j'ai déjà besoins de la macro avec le double click qui vient insérer une ligne en copiant certaines colonnes.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim monNb

monNb = InputBox(Prompt:="Saisir le Nombre de Lignes à insérer", Title:="Saisie", Default:="1")

If StrPtr(monNb) = 0 Then Cancel = True: Exit Sub

Rows(Target.Row + 1 & ":" & Target.Row + monNb).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

Range("C" & Target.Row).Copy Destination:=Range("C" & Target.Row + 1 & ":" & "C" & Target.Row + monNb)

Range("E" & Target.Row).Copy Destination:=Range("E" & Target.Row + 1 & ":" & "E" & Target.Row + monNb)

Range("G" & Target.Row).Copy Destination:=Range("G" & Target.Row + 1 & ":" & "G" & Target.Row + monNb)

Range("T" & Target.Row).Copy Destination:=Range("T" & Target.Row + 1 & ":" & "T" & Target.Row + monNb)

Cancel = True

End Sub

La macro devrait insérer un nombre de lignes en fonction de l'info de la message box et recopier l’intégralité de la ligne en dessous en tenant compte des formules existantes... Un triple click irait, mais cela ne marche pas...

Bien à toi.

Fabrice