Déclenchement d'une macro évenementielle

[thierry.bayard]

Bonjour,

Je débute sous VBA, donc merci de m'excusez les approximations de vocabulaires.

Voici la macro que j'ai écrite pour déclencher une macro (ici : Masquer_lignes_vides) lorsqu'une cellule est modifiée :

Private Sub Worksheet_Change(ByVal Target As Range)

If (Target.Address = "D20") Then

Application.ScreenUpdating = False
Masquer_lignes_vides
Application.ScreenUpdating = True

End If

End Sub
Ce code fonctionne mais mon problème est que lorsque j'ajoute une ligne au dessus de la cellule D20, la macro ne se déclenche pas. Par conséquent, sous Excel, j'ai nommé cette cellule "Choix1".
Mais dans le code, si je remplace "D20" par "Choix1", ça ne fonctionne plus.

Est-ce que quelqu'un aurait une solution pour résoudre ce problème ?

Merci

 

[Brigitte]

Re : Déclenchement d'une macro évenementielle

Bonjour,

Peut être en enlevant les guillemets ?

 

[Banzai64]

Re : Déclenchement d'une macro évenementielle

bonjour thierry.bayard
Bonjour Brigitte

remplaces

If (Target.Address = "D20") Then

par

If Not Intersect(Range("Choix1"), Target) Is Nothing Then

je pense que cela suffira

ainsi ta cellule nommée 'Choix1' peut être n'importe où

 

[thierry.bayard]

Re : Déclenchement d'une macro évenementielle

J'ai essayé mais ça ne fonctionne pas non plus.

 

[thierry.bayard]

Re : Déclenchement d'une macro évenementielle

Oups, je répondais à Brigitte. Je teste ta solution Banzai64.

 

[coco_lapin]

Re : Déclenchement d'une macro évenementielle

Bonjour le forum,

ou bien en remplaçant

If (Target.Address = "D20") Then

par

If (Target.Address = Range("Choix1").Adress) Then

 

[thierry.bayard]

Re : Déclenchement d'une macro évenementielle

Merci beaucoup, ça fonctionne Par contre, si je peux abuser un peu :
- En fait, mon code initial complet était : If (Target.Address = "B20"') Or (Target.Address = "35") Or (Target.Address = "C42") Then puisqu'il y avait plusieurs cellule qui déclenchaient la macro. Comment faire cela avec la solution que tu proposes ?
- Quel serait la traduction "en français" de l'ordre "If not Intersect... is nothing ?

Merci encore pour votre aide

 

[Banzai64]

Re : Déclenchement d'une macro évenementielle

Re

Nommes toutes tes cellules qui doivent être prises en compte puis

If Not Intersect(Union(Range("Choix1"),Range("Choix2"),Range("Choix3")), Target) Is Nothing Then

If Not Intersect ...... Is Nothing

Peut être traduit par

Il y a un croisement entre la cellule modifié et les cellules servant de test


PS: Il n'y a pas d'espace dans le mot Range

 

[thierry.bayard]

Re : Déclenchement d'une macro évenementielle

Merci à tous pour vos réponses, ça fonctionne très bien