Microsoft 365 Macro VBA pour Copier coller une valeur sur plusieurs feuilles

[pat66]

Bonjour le forum,

j'ai besoin d'aide pour réaliser une macro qui selon la cellule saisie dans une plage de la feuil1 va rechercher une valeur dans la feuil2 et la coller dans la feuil3

pour être plus clair, je joints un exemple

merci d'avance pour votre aide

 

[sylvanu]

Bonjour Pat,
Si j'ai bien compris, un essai en PJ avec

Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [BV25:BV33]) Is Nothing Then
        Application.ScreenUpdating = False
        Valeur = Cells(Target.Row, "D")
        Ligne = Application.Match(Valeur, Sheets("Feuil2").[B:B], 0)
        Sheets("Feuil3").[C2] = Sheets("Feuil2").Cells(Ligne, "L")
    End If
Fin:
End Sub

 

[pat66]

Bonjour Sylvanu,

c'est exactement ce dont j'ai besoin, mais en testant votre solution, je me suis aperçu qu'il serait judicieux de vider le contenu de la cellule C2 de la feuil3 si rien n'ai saisit dans la plage (D25:33) de la feuil1

merci d'avance

 

[sylvanu]

Je pensais D25.D23 comme une table fixe et qu'on ne modifiait que BV23.BV33.
Dans le doute si la cellule cliquée est vide ou son équivalent en colonne D vide alors je vide C2 de feuil3.

 

[pat66]

Quelle expertise !!!

un grand merci Sylvanu pour votre aide si précieuse pour des passionnés d'excel néophytes comme moi

bonne soirée

Pat

 

[pat66]

Bonjour Sylvanu,

j'ai encore besoin de vos lumières pour compéter cette macro, à savoir :
pourrait on copier la valeur saisit dans la plage [BV25:BV33] dans la cellule C4 de la feuil3

merci d'avance

 

[sylvanu]

Bonjour,
Fait.

 

[pat66]

Merci Sylvanu,

Mais peut on coller la valeur saisie dans [BV25:BV33] dans la cellule C4 de la feuil3 uniquement quelque soit la ligne renseignée dans [BV25:BV33] et non dans une plage C4:C12

merci

 

[sylvanu]

Sorry, la demande était ambigüe. Voir PJ.

 

[pat66]

haouuu ! impressionnant !

désolé pour ma demande ambiguë, mais c'est trop sympa !!!

un grand merci Sylvanu