Salut!

Je suis en train de travailler sur une macro évènementielle qui doit se déclencher quand je me mets sur certaines cellules mais je n'arrive pas a le faire fonctionner.

Voilà le code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
    'permet de sortir de la procédure si plus d'une cellule est sélectionnée
    '(sinon la suite de la macro renvoie un message d'erreur)
    If Target.Count > 1 Then
 
    Exit Sub
 
    MsgBox "Vous venez de modifier la cellule " & Target.Address & _
        " (" & Target.Value & ")"
 
    Else
    'recherche si la cellule selectionnée correspond a l'une des cellules de l'emploi du temps
    cell = ActiveCell.Address
    For Each cell In TableauCible
        If Target.Address = cell Then
 
        ' code a executer
 
        End If
 
 
    Next cell
 
 
    End If
 
End Sub
Le code est groso modo un exemple trouvé sur le net avec quelques modifs.

Quelqu'un a des indications pour réussir a lançer le traitement dès qu'un certain range de cellules est changé ?