Discussion :

[Aizen64]

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é ?

[niavlys26]

Bonjour,
Je comprends pas tout pcq les variables sont pas déclarées
C'est quoi Tableaucible ?

[Aizen64]

Voilà le bout de code qui manquait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
 
Dim Tableaucible As String
Tableaucible = Range("B2:F10")

[niavlys26]

Je suis en train d'essayer de voir pour ton code mais tu as un soucis avec les types apparemment : tu déclare Tableau As String, tu peux pas lui affecter un Objet Range !!

[niavlys26]

J'ai trouvé un code qui fonctionne, mais il utilise une boucle

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
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
Dim ZoneRose, Cellule As Range
'J'ai défini arbitrairement cette plage pour tester :)
Set ZoneRose = Range("A1:B10")
'Pour bien visualiser :
ZoneRose.Interior.ColorIndex = 38
 
For Each Cellule In ZoneRose
    If Cellule.Address = Target.Address Then
        MsgBox "Je suis dans la zone ROSE !!!"
    End If
Next Cellule
 
End Sub

Reste à voir si l'exécution deviendrait longue pour une grande plage

[SilkyRoad]

bonjour

tu peux utiliser la méthode Intersect:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim ZoneCible As Range, Cellule As Range
 
    Set ZoneCible = Range("A1:B10")
 
    If Not Intersect(ZoneCible, Target) Is Nothing Then _
        MsgBox "Je suis dans la zone " & ZoneCible.Address
 
End Sub

bon week end
michel