Discussion :

[vbaétude]

Bonjour,

Habituellement j'utilise cette méthode pour lancer des macros

Code :

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

1
2
3
4
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("K21:K22")) Is Nothing Then
Call oppriskact
End If

Mais, corrigez moi si je me trompe; cette méthode ne marche que si il y a "une action" sur la cellule ?

Donc, est il possible de lancer une macro dès la modification "automatique" de cellule ? Si la valeur de la cellule est actualisée j'aimerai que ma macro se déclenche.

Merci

[marot_r]

Bonjour.

De mon expérience (limitée) il m'est apparu que sauf si tu as désactivé les événements si tu modifies une cellule, cela déclenche les macros associées.

La désactivation des événements se fait par :

Code :

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

Application.EnableEvents=false

A+

[Philippe Tulliez]

Bonjour,
Si tu lconsultes 'aide sur la méthode Intersect tu verras qu'elle renvoie un objet Range représentant l'intersection rectangulaire de deux ou plusieurs plages et si une ou plusieurs plages d'une feuille de calcul différente sont spécifiées, une erreur est renvoyée.
Donc .

Code :

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

Intersect(Range("A1:A2"), Range("A1:A3"))

renverra l'objet Range des cellules A1:A2
alors que

Code :

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

Intersect(Range("B1"), Range("A1:A3"))

ne renverra rien soit Nothing

et de fait on utilise cette méthode bien souvent au sein d'une procédure événementielle pour vérifier si l'"action" (on parlera plutôt d'événement puisque l'action est effectuée par une méthode) pour vérifier si la cellule ou plage de cellules où a eu lieu cet événement se situe à un endroit précis de la feuille.
Mais rien ne t'empêche d'utiliser cette même méthode par exemple dans une boucle.

[vbaétude]

@marot_r De mon expérience ( très limité ); non

Mais les explications détaillées de @philippe me font surtout prendre conscient que je dois mal utiliser/comprendre cette méthode. Je retourne bucher/expérimenter. Merci de votre réactivité!

[Philippe Tulliez]

Bonjour,
Voici un cas très concret de l'utilisation de la méthode Intersect que j'utilise régulièrement.
Afin de pouvoir sélectionner une ou plusieurs listes l'utilisateur peut faire un double clic qui provoquera l'apparition d'une croix ou sa disparition.
Donc pour éviter des erreurs je dois vérifier si l'utilisateur effectue bien son double clic dans la bonne colonne (ici la colonne Selected)



Le code dans la procédure événementielle

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_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  ' Déclaration
  Dim oListManager As ListObject
  ' Affectation
  Set oListManager = Me.ListObjects(1)
  With Application
    If Target.Count = 1 Then
      If Not Application.Intersect(Target, oListManager.ListColumns("Selected").DataBodyRange) Is Nothing Then
         Target = IIf(LCase(Target) = "X", "", "X")
         Cancel = True
      End If
    End If
  End With
  Set oListManager = Nothing
End Sub

[gFZT82]

Bonjour,

Donc, est il possible de lancer une macro dès la modification "automatique" de cellule ? Si la valeur de la cellule est actualisée j'aimerai que ma macro se déclenche.

Une remarque :
L’événement Worksheet.change se produit quand l'utilisateur (ou un lien externe) modifie des cellules de la feuille de calcul. Cet événement ne se produit pas lorsque les cellules sont modifiées pendant un recalcul.
Pour reprendre ton exemple, si la cible K1 contient la formule =C1, la modification de la valeur de C1 va modifier la valeur de K1 mais ne va pas lancer la procédure évènementielle Worksheet.change.

Cordialement.

[OrDonc]

Bonjour

@Philippe : ton exemple (très peu optimisé*) est une autre façon de procéder.
Pour en revenir à l’évènement Change, je rejoins totalement gFTZ82 en ajoutant que si, avec la macro appelée, la cellule Target est modifiée, il y a récursivité source de blocage intempestif (définitif pour certaines versions) !

* Je ne vois pas l‘utilité de With Application … End With.
Je ne comprends pas le LCase. Pour un effet bascule, je pencherais plutôt pour UCase.

Si par inadvertance un titre visé est modifié (Selected avec un espace final invisible) …

Il est toujours très intéressant de passer par des noms !

Si ton Tableau (ListObjects) est nommé Tb (par exemple), le code suivant, pour basculer, suffit :

Code :

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

1
2
3
4
5
6
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, [Tb].Columns(1)) Is Nothing Then
        Target = IIf(UCase(Target) = "X", "", "X")     ‘ si X : vide, si vide : X
        Cancel = True
    End If
End Sub

Nota : le DoubleClick ne concerne toujours qu’une cellule donc le test If Target.Count= 1 … est superflu.