Discussion :

[Janny]

Bonjour à tous,

je n'ai pas précisé la versio d'excel car, chez moi j'utilise 2007, mais il faut que cela fonctionne au travail, en version 2003 et 2000.
J'ai un petit souci que je n'arrive pas à résoudre...
Je souhaite exécuter mon programme lorsque l'utilisateur change une cellule parmi une plage de données fixe.
J'ai essayé avec Private Sub Worksheet_Change(ByVal Target As Range) mais je n'arrive pas à avoir se que je veux...
merci d'avance pour votre aide

Janny

[Lynx92260]

Bonjour ,


La méthode pour déclencher un evenement sur une plage de cellule fixe est la suivante

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
 
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
    Dim Region As Range, Position As Long
 
 
    ' Intersecetion renvoie un range si target dans dans le range nomme controle
    Set Region = Application.Intersect(Range("Controle"), Target)
 
    If Region Is Nothing Then
         MsgBox "La cible n'est pas dans la plage visé."
    Else
         MsgBox "La cible est dans la plage visé."        
    End If
 
end sub

Cette approche permet de voir si le changement d'une cellule intervient dans une région précise ..


Allez bonne nuit

[laetitia]

bonjour Janny Lynx92260 le forum on l écrire comme cela aussi en définissant une plage de b1:c10 a adapter!!

Code :

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

1
2
3
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("b1:c10")) Is Nothing Then MsgBox Target.Address
End Sub

[Janny]

Merci pour votre aide !!

[LeForestier]

Bonjour Tou(te)s,
Et pour mettre les conseils en pratique...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static AncAdd As String
Static AncCel
    If Target.Count > 1 Then Exit Sub
    If AncAdd <> "" Then
        If Not Intersect(Range(AncAdd), Range("B1:E10")) Is Nothing Then
            If Range(AncAdd) <> AncCel Then
                MsgBox "Cellule " & AncAdd & " changée dans le bloc"
            End If
        End If
    End If
        AncAdd = Target.Address
        AncCel = Target.Value2
End Sub

A+
PS: Pas oublier que Target est la cellule sur laquelle ont arrive.