XL 2019 VBA - Copier liste déroulante en fonction d'une référence

[brandao]

Bonjour tous le monde,
J'ai un petit problème, j'aimerai pouvoir copier une liste déroulante associée à une référence dans une autre feuille si la référence est trouvée.

Je débute en programmation. Pouvez-vous m’aiguiller ?

Je vous remercie par avance.
Cordialement

Corentin

 

[sylvanu]

Bonjour Brandao,
Ou se trouve la liste déroulante dans la page Catalogue ? Je n'en ai trouvé aucune.

 

[brandao]

Bonjour Brandao,
Ou se trouve la liste déroulante dans la page Catalogue ? Je n'en ai trouvé aucune.

Bonjour,
Les listes déroulantes se trouvent en face de chaque référence (les données de ces listes correspondent aux données de la feuille TIGES)

Je vous remercie pour votre réponse

 

[sylvanu]

Désolé de ne pouvoir vous aider. Je n'ai rien là où vous indiquez. ( peut être un pb de version XL )

 

[brandao]

Désolé de ne pouvoir vous aider. Je n'ai rien là où vous indiquez. ( peut être un pb de version XL )
Regarde la pièce jointe 1058991

Même sans liste déroulante, est-il possible de copier la cellule C2 du catalogue associée à la référence 1001, dans la feuille final en face des références 1001 ?

 

[job75]

Bonjour brandao, sylvanu,

Voyez le fichier joint et cette macro dans le code de la feuille "Final" :

Private Sub Worksheet_Activate()
Dim plage As Range, i&, j As Variant
Set plage = Sheets("Catalogue ").[A1].CurrentRegion 'un espace superflu dans le nom de la feuille !!!
With [A1].CurrentRegion
    For i = 2 To .Rows.Count
        j = Application.Match(Cells(i, 2), plage.Columns(2), 0)
        If IsNumeric(j) Then plage(j, 3).Copy Cells(i, 3)
    Next
End With
End Sub

Elle se déclenche quand on active la feuille.

A+

 

[brandao]

Bonjour brandao, sylvanu,

Voyez le fichier joint et cette macro dans le code de la feuille "Final" :

Private Sub Worksheet_Activate()
Dim plage As Range, i&, j As Variant
Set plage = Sheets("Catalogue ").[A1].CurrentRegion 'un espace superflu dans le nom de la feuille !!!
With [A1].CurrentRegion
    For i = 2 To .Rows.Count
        j = Application.Match(Cells(i, 2), plage.Columns(2), 0)
        If IsNumeric(j) Then plage(j, 3).Copy Cells(i, 3)
    Next
End With
End Sub

Elle se déclenche quand on active la feuille.

A+

Super ! Merci beaucoup !
Cordialement