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
 

Discussions similaires

Réponses
3
Affichages
348

Statistiques des forums

Discussions
313 260
Messages
2 096 637
Membres
106 694
dernier inscrit
hussor.t