XL 2016 [VBA] procédure évènementielle

soan à dit:

@shanon7

* le 1er With est pour ActiveCell : la cellule active

* le 2ème With est bien dépendant du 1er ; ça utilise donc :
With ActiveCell.Font

soan

Cliquez pour agrandir...

soan à dit:

@shanon7

regarde ces 2 subs événementielles :

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'...
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
'...
End Sub

Target apparaît comme argument de la fonction :

ByVal Target As Range

c'est seulement à ce moment-là que tu peux l'utiliser dans le corps de la sub.

Target représente la cellule active lors du déclenchement de l'événement.

soan

Cliquez pour agrandir...

soan à dit:

Bonjour Shanon, sylvanu,

hier, j'ai écrit : « Target représente la cellule active lors du déclenchement de l'événement. »

en fait, Target est effectivement la cellule active si une seule cellule est sélectionnée ; mais si la sélection comporte plusieurs cellules, alors Target est l'ensemble des cellules de la sélection ; c'est pourquoi j'écris souvent la sub selon cette « structure » :​

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
  With Target
    If .CountLarge > 1 Then Exit Sub 'sortie s'il y a
    'plus d'une cellule dans la sélection => la suite
    'de la sub est exécutée QUE si UNE SEULE cellule
    'est SÉLECTIONNÉE.
   
    'suite de la sub, en général test de POSITION :
    'par exemple si c'est QUE pour la cellule D5 :
    If .Address <> "$D$5" Then Exit Sub
   
    'suite de la sub, qui est UNIQUEMENT pour D5
  End With
  'ici, on peut mettre des instructions qui ne sont
  'pas dépendantes du With de Target.
End Sub

j'aurais aussi pu écrire ainsi le test de position :

VB:

    If .Address(0, 0) <> "D5" Then Exit Sub

si le test de position est pour plusieurs cellules, on peut mettre par exemple :​

VB:

    If Intersect(Target, [G5:G20]) Is Nothing Then Exit Sub

on sort si la cellule n'est pas dans la plage G5:G20, donc la suite de la sub est exécutée QUE si l'utilisateur modifie une cellule de G5:G20 ; autre exemple, si c'est QUE pour F8 ou une cellule en dessous :
​

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
  With Target
    If .CountLarge > 1 Then Exit Sub
    If .Column <> 6 Then Exit Sub 'sortie si colonne AUTRE que F
    If .Row < 8 Then Exit Sub 'sortie si n° ligne < 8
    'suite de la sub
  End With
End Sub

c'est-à-dire que c'est en colonne F, à partir de la ligne 8 (= ligne haute minimum), mais la ligne qui est sous la ligne 8 (= ligne basse maximum) est INDÉTERMINÉE (donc sans précision, ça peut être n'importe laquelle de la ligne 9 à la ligne 1 048 576).​

soan

Cliquez pour agrandir...