Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

pat66

XLDnaute Impliqué
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
 

Pièces jointes

  • Classeur1.xlsm
    12.1 KB · Affichages: 4

sylvanu

XLDnaute Barbatruc
Supporter XLD
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

pat66

XLDnaute Impliqué
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
 

pat66

XLDnaute Impliqué
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
 

pat66

XLDnaute Impliqué
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
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…