Copier la ligne sur une feuille avec liste déroulante

débutent

comment faire ? copier la ligne sur une feuille avec liste déroulante

merci

20v5.xlsx (32.52 Ko)

Bonjour,

Pas compris ce que tu veux ! Copier une ligne, OK! A quelle condition ? Où ?

BONJOUR

SEULEMENT copier la ligne sur une feuille EN utilisons LA liste déroulante

SON CONDITION

MERCI

Tu ne réponds pas à la question ! Il y a trois listes déroulantes par ligne... ! Tu n'indiques pas la ligne à copier ! Tu n'indiques pas la feuille ! Ni la condition !

Un exemple : Si la D12 = "a" je copie la ligne A12:W12 sur la feuille "XA" à la première ligne disponible.

Ça, c'est compréhensible, et on peut le faire exactement !

merci

j'ai répondu à vos question sur la feuil excel

25v5-1.xlsx (18.10 Ko)

Voilà !

Sub CopieLigne()
    Dim i%, n%, nf$
    With ActiveSheet.Shapes(Application.Caller)
        With .ControlFormat
            nf = Range(.ListFillRange).Cells(.Value, 1)
        End With
        If nf <> "****" Then i = .TopLeftCell.Row Else Exit Sub
    End With
    With Worksheets(nf)
        n = .Range("A" & .Rows.Count).End(xlUp).Row
        If n < 8 Then n = 8 Else n = n + 1
        ActiveSheet.Range("A" & i & ":H" & i).Copy .Range("A" & n)
    End With
End Sub

Macro à affecter à toutes les formes Drop Down...

Cordialement.

20dreamsodfa-v5.xlsm (46.97 Ko)

MERCI INFINIMENT

VOUS M'AVEZ SAUVÉ

C TOTALEMENT SE QUE J'AI VOULU

Rechercher des sujets similaires à "copier ligne feuille liste deroulante"