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

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 3 Septembre 2023

• #2

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

VB:

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

 

Pièces jointes

• Classeur1.xlsm

  17.8 KB · Affichages: 4

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 3 Septembre 2023

• #3

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 3 Septembre 2023

• #4

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.

 

Pièces jointes

• Classeur1(V2).xlsm

  17.9 KB · Affichages: 4

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 3 Septembre 2023

• #5

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

 

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 4 Septembre 2023

• #6

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 4 Septembre 2023

• #7

Bonjour,
Fait.

 

Pièces jointes

• Classeur1(V3).xlsm

  18.5 KB · Affichages: 4

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 4 Septembre 2023

• #8

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 4 Septembre 2023

• #9

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

 

Pièces jointes

• Classeur1(V4).xlsm

  18.5 KB · Affichages: 4

Vote positif 0 Vote négatif

Solution

P

pat66

XLDnaute Impliqué

• 4 Septembre 2023

• #10

haouuu ! impressionnant !

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

un grand merci Sylvanu

 

Vote positif 0 Vote négatif