Exécution macro auto quand la valeur d'une cellule change

Bonjour à tous,

Je rencontre un problème sur l'exécution du code.

Quand je choisi une valeur dans ma cellule "C8" de ma Feuille 1, je souhaiterais que ce qu'il y a dans la cellule "K25" de ma feuille 1soit copié dans le cellule "H29" de ma feuille 2. J'ai créé une macro "CLNote" et créé "Range_Change dans mon code de la feuille, mais rien ne ce passe ! ?!

Je vous joint mon fichier !

Merci d'avance.

RQ

Bonjour,

Vous êtes bien sous excel MAC ?

Votre macro est correcte mais ce que vous voulez c'est qu'elle s'exécute directement en fonction du choix en C8, c'est bien cela ?
Et si oui, c'est toujours la cellule K25 quel que soit le choix en C8 ?

Crdlt

Bonjour, Oui c'est bien ce que j'ai fais, voici le code:

Sub CLNote()
' CLNote Macro

Dim M As Worksheet
Dim T As Worksheet

Set M = Worksheets("Menu")
Set T = Worksheets("TVAD")

    T.Range("H29").Value = M.Range("K25").Value
    T.Range("H30").Value = M.Range("K26").Value
    T.Range("H31").Value = M.Range("K27").Value
    T.Range("H33").Value = M.Range("K28").Value
    T.Range("H35").Value = M.Range("K29").Value
    T.Range("H36").Value = M.Range("K30").Value
    T.Range("H37").Value = M.Range("K31").Value
    T.Range("H38").Value = M.Range("K32").Value
    T.Range("H39").Value = M.Range("K33").Value
    T.Range("H41").Value = M.Range("K34").Value
    T.Range("H42").Value = M.Range("K35").Value
    T.Range("H43").Value = M.Range("K36").Value
    T.Range("H44").Value = M.Range("K37").Value
    T.Range("H45").Value = M.Range("K38").Value
    T.Range("H46").Value = M.Range("K39").Value
    T.Range("H47").Value = M.Range("K40").Value
    T.Range("H48").Value = M.Range("K41").Value

End Sub

J'ai créé une touche, sur laquelle j'ai attaché la macro, mais cela ne fonctionne pas !

faites ceci

- Allez dans l'éditeur VBA --> cela vous affiche une fenetre "VBA PROJECT" avec le nom des objets (feuilles et Thisworkbook)
- Dans cette fenêtre vous allez voir un objet nommé -> Feuil1(Menu)
- Double cliquez sur l'objet
- Dans la fenêtre, mettez le code ci-dessous

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("C8")) Is Nothing Then
    Call CLNote
End If
End Sub

- Choisissez une valeur en C8

Cordialement

Re !

Je viens de le faire, mais j'ai un message d'erreur :

"Erreur de compilation"

Et sa me rouvre la fenêtre du code VBA.

Bonjour

Je viens de le faire, mais j'ai un message d'erreur :"Erreur de compilation"

Vous avez essayé dans le fichier que vous avez posté ici ?
Je n'ai aucun souci. reste à voir si vous avez placé la macro au bon endroit