Déclenchement d'une macro évenementielle

Brigitte

XLDnaute Barbatruc

• 14 Octobre 2010

• #2

Re : Déclenchement d'une macro évenementielle

Bonjour,

Peut être en enlevant les guillemets ?

 

Vote positif 0 Vote négatif

B

Banzai64

XLDnaute Accro

• 14 Octobre 2010

• #3

Re : Déclenchement d'une macro évenementielle

bonjour thierry.bayard
Bonjour Brigitte

remplaces

If (Target.Address = "D20") Then

Cliquez pour agrandir...

par

Code:

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ù

 

Vote positif 0 Vote négatif

T

thierry.bayard

Guest

• 14 Octobre 2010

• #4

Re : Déclenchement d'une macro évenementielle

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

 

Vote positif 0 Vote négatif

T

thierry.bayard

Guest

• 14 Octobre 2010

• #5

Re : Déclenchement d'une macro évenementielle

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

 

Vote positif 0 Vote négatif

coco_lapin

XLDnaute Impliqué

• 14 Octobre 2010

• #6

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

 

Vote positif 0 Vote négatif

T

thierry.bayard

Guest

• 14 Octobre 2010

• #7

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

 

Vote positif 0 Vote négatif

B

Banzai64

XLDnaute Accro

• 14 Octobre 2010

• #8

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

T

thierry.bayard

Guest

• 14 Octobre 2010

• #9

Re : Déclenchement d'une macro évenementielle

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

 

Vote positif 0 Vote négatif