execution macro qd la valeur d'une cellule change

SergiO

XLDnaute Accro

• 16 Juin 2006

• #2

Re:execution macro qd la valeur d'une cellule chan

Bonjour ben,

Essaie ce code :

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Not Intersect(Target, Range('G2')) Is Nothing Then

'exécute ta macro...

End If

End Sub

@+

 

Vote positif 0 Vote négatif

B

ben

Guest

• 16 Juin 2006

• #3

Petite précision, la mise en forme conditionnelle est impossible dans mon cas!

 

Vote positif 0 Vote négatif

justine

XLDnaute Occasionnel

• 16 Juin 2006

• #4

bonsoir tout le monde
ben j'abuse de ton post pour qu'une personne m'explique exactement le code cité par sergio:
If Not Intersect(Target, Range('G2')) Is Nothing Then
merci
justine

 

Vote positif 0 Vote négatif

Dan

XLDnaute Barbatruc

Membre du Staff

Modérateur

• 16 Juin 2006

• #5

Bonsoir,

Justine dans le code de Sergio il manque une instruction. Il faut ceci :

Code:

If Not Application.Intersect(Target, Range('G2')) Is Nothing Then 
....

Ben, peux tu dire si c'est la cellule G2 que tu veux colorier ou d'autres cellules en focntion de la valeur de G2 ?

😉

 

Vote positif 0 Vote négatif

justine

XLDnaute Occasionnel

• 16 Juin 2006

• #6

rebonsoir
comment ca va Dan, cela fait longtemps.
ce que je voudrais savoir, c'est l'explication de ce code que je ne comprends pas.
merci
justine

 

Vote positif 0 Vote négatif

D

Dan

Guest

• 16 Juin 2006

• #7

Message édité par: Dan, à: 16/06/2006 23:38

 

Vote positif 0 Vote négatif

Dan

XLDnaute Barbatruc

Membre du Staff

Modérateur

• 16 Juin 2006

• #8

Re,

Explication :

Application.intersect(target,range('A1') ... permet de vérifier s'il y a 'intersection' ou non entre la cellule A1 et la cellule sur laquelle ton pointeur se trouve.

exemple :
- si l'on utilise Application.intersect (target,Range('A1')) is nothing , cela signifie qu'en l'absence de l'intersection de Target et A1 (exemple : on est sur B1), on effectue une action tandis que si l'on est sur A1, il ne se produit rien.

- si l'on met Not application.intersect(target,Range(A1)) is nothing, ce sera le contraire, à savoir que l'évenement se produit si l'on se trouve sur A1 avec le pointeur.

Espérant que tu comprendras.

Si pb n'hésite pas

😉

 

Vote positif 0 Vote négatif

justine

XLDnaute Occasionnel

• 17 Juin 2006

• #9

merci Dan pour tes explications
justine

 

Vote positif 0 Vote négatif

B

Ben

Guest

• 19 Juin 2006

• #10

Dan écrit:

Bonsoir,

Justine dans le code de Sergio il manque une instruction. Il faut ceci :

Code:

If Not Application.Intersect(Target, Range('G2')) Is Nothing Then 
....

Ben, peux tu dire si c'est la cellule G2 que tu veux colorier ou d'autres cellules en focntion de la valeur de G2 ?

😉

Cliquez pour agrandir...

Ce sont les autres cellules que je souhaite colorier selon la valeur de G2.

Je vais essayer ces codes ce matin, merci à tous!

Ben

 

Vote positif 0 Vote négatif