Problème avec un code VBA

Bonjour

J'ai fait ce code mais il ne fonctionne pas .la macro seule fonctionne mais pas associée au reste

Je précise que ("D19:M19")est un menu déroulant

Si vous avez une solution je suis preneur

Crdlt

Private Sub Worksheet_Selection_Change(ByVal Target As Range)

If Range("D19:M19") = Worksheet("Évaluation")("B1") Then

Range("D19:M19").Select
Sheets("Évaluation").Select
Range("A21:A38").Select
Selection.Copy
Sheets("Directrice d'installation(s)").Select
ActiveWindow.SmallScroll Down:=93
Range("R112").Select
ActiveSheet.Paste

End If

End Sub

Bonjour,

Précision : D19:M19 est sur qu'elle feuille? La feuille ou est située la macro événementielle? Indiquer le nom de cette feuille et/ou de celle qui contient la macro évenementielle

Quelques corrections :

Private Sub Worksheet_Selection_Change(ByVal Target As Range)
If Range("D19").Value = Worksheet("Évaluation").Range("B1").Value Then
  Sheets("Évaluation").Range("A21:A38").Copy Sheets("Directrice d'installation(s)").Range("R112")
End If
End Sub

Bonjour merci pour ta réponse

D19:M19 se trouve sur la feuille ainsi que la Private Sub

J'ai fait un essai avec ton code mais cela ne fonctionne pas

Directrice d'installation(s)

ne fonctionne pas

Ne nous sert à rien.

Dis nous le message d'erreur, ce qui se passe ou ne se passe pas, ce que tu veux obtenir et que tu n'obtiens pas...

Par exemple :

Lorsque ma liste déroulante en feuille Évaluation D19:M19 change de valeur, si elle est égale au contenu de ma cellule B1 feuille Évaluation, je veux copier le contenu des cellules A21:A38 de la feuille Évaluation sur les cellules R112 et suivante de ma feuille Directrice d'installation(s).

Le tout en faisant attention à l'orthographe des noms des feuilles...

Lorsque ma liste déroulante en feuille Directrice d'installation(s) D19:M19 change de

d'installation(s).

La partie soulignée est une rectification de ce que tu as noté ,maintenant le contenu ci-dessus est exactement ce que je souhaite avoir

Voilà qui est mieux.
Plus clair en tous cas...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$D$19:$M$19" Then
        Application.EnableEvents = False
        If Range("D19").Value = Worksheets("Évaluation").Range("B1").Value Then
            Sheets("Évaluation").Range("A21:A38").Copy Range("R112")
        End If
        Application.EnableEvents = True
    End If
End Sub

Merci pour ton aide mais le copier coller ne fonctionne toujours pas

Bonjour,

Passe nous donc ton classeur sans données confidentielles.

Bonjour

Problème résolu code trouvé sur le net

Merci

Cordialement

Bonjour,

Ce serait sympa de nous mettre le code, pour 2 raisons :

> un futur internaute peut avoir le même problème et trouver sa réponse en nous lisant,

> pour nous, enfin, savoir qu'elle était notre erreur...

Rechercher des sujets similaires à "probleme code vba"