Bonjour,
J’ai deux macros à exécuter, je voudrais quand je saisi une valeur dans la
cellule M7 et je valide, mon premier macro s’exécute, le deuxième sera
appeler par mon premier quand je valide une cellule de la colonne « C » de
C20 à C36 ,j’ai essayé avec,
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("M7"), Range("C20:C36")) Is Nothing Then
macro1
endif
End Sub
mais ça marche pas peut être j’ai mal utilisé la syntaxe de Intersect ? Ou
????
merci d’avance pour votre aide.
Bonjour à tt et merci à Isteph,JLuc et à anonymousA
If Not Intersect(Target, Union([m7], [k20:k26])) Is Nothing Then macro1 endif ça marche.
merci une seconde fois Abed_H
Avant j’ai fonctionné mes macros de cette façon
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range(“$M$7”) Is Nothing Then Macro1 End If End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Target, Range("K20:K36")) Is Nothing Then Exit Sub Macro 2 End Sub
sa marchais bien mais je voudrais les exécuté a l’évènement change() Y a il d’autre solution s.v.p
Merci une autre fois Abd_H
"anonymousA" wrote:
Je ne vois pas pourquoi ca ne marcherait pas. En fait le Union crée une plage de cellules non contigues ( ici les cellules M7 et la plage de cellules C20 à C36). Ensuite Intersect teste si Target, c'est à dire la cellule qui a changé appartient à la plage de cellules non contigues. Si oui alors on fait quelque chose, sinon on ne fait rien. Voilà le principe.
A+
merci anonymousA pour la réponse, j'ai essayé avant avec union et aussi ça marche pas pourquoi ? Set rng = Union(Range("M7"), Range("C20:C36"))
If not Intersect(Target, rng) Is Nothing Then
merci Abed_H
"anonymousA" wrote:
Fais un union des Ranges que tu veux tester avant d'utiliser Intersect.
Bonjour,
Intersect n'accepte que 2 paramètres tout simplement.
A+
Bonjour, J’ai deux macros à exécuter, je voudrais quand je saisi une valeur dans la cellule M7 et je valide, mon premier macro s’exécute, le deuxième sera appeler par mon premier quand je valide une cellule de la colonne « C » de C20 à C36 ,j’ai essayé avec,
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("M7"), Range("C20:C36")) Is Nothing Then macro1 endif End Sub mais ça marche pas peut être j’ai mal utilisé la syntaxe de Intersect ? Ou ???? merci d’avance pour votre aide.
Bonjour à tt
et merci à Isteph,JLuc et à anonymousA
If Not Intersect(Target, Union([m7], [k20:k26])) Is Nothing Then
macro1
endif
ça marche.
merci une seconde fois
Abed_H
Avant j’ai fonctionné mes macros de cette façon
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range(“$M$7”) Is Nothing Then
Macro1
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("K20:K36")) Is Nothing Then Exit Sub
Macro 2
End Sub
sa marchais bien mais je voudrais les exécuté a l’évènement change()
Y a il d’autre solution s.v.p
Merci une autre fois
Abd_H
"anonymousA" wrote:
Je ne vois pas pourquoi ca ne marcherait pas.
En fait le Union crée une plage de cellules non contigues ( ici les
cellules M7 et la plage de cellules C20 à C36).
Ensuite Intersect teste si Target, c'est à dire la cellule qui a changé
appartient à la plage de cellules non contigues. Si oui alors on fait
quelque chose, sinon on ne fait rien.
Voilà le principe.
A+
merci anonymousA pour la réponse,
j'ai essayé avant avec union et aussi ça marche pas pourquoi ?
Set rng = Union(Range("M7"), Range("C20:C36"))
If not Intersect(Target, rng) Is Nothing Then
merci
Abed_H
"anonymousA" wrote:
Fais un union des Ranges que tu veux tester avant d'utiliser Intersect.
Bonjour,
Intersect n'accepte que 2 paramètres tout simplement.
A+
Bonjour,
J’ai deux macros à exécuter, je voudrais quand je saisi une valeur
dans la cellule M7 et je valide, mon premier macro s’exécute, le
deuxième sera appeler par mon premier quand je valide une cellule de
la colonne « C » de C20 à C36 ,j’ai essayé avec,
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("M7"), Range("C20:C36")) Is Nothing
Then macro1
endif
End Sub
mais ça marche pas peut être j’ai mal utilisé la syntaxe de Intersect
? Ou ????
merci d’avance pour votre aide.
Bonjour à tt et merci à Isteph,JLuc et à anonymousA
If Not Intersect(Target, Union([m7], [k20:k26])) Is Nothing Then macro1 endif ça marche.
merci une seconde fois Abed_H
Avant j’ai fonctionné mes macros de cette façon
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range(“$M$7”) Is Nothing Then Macro1 End If End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Target, Range("K20:K36")) Is Nothing Then Exit Sub Macro 2 End Sub
sa marchais bien mais je voudrais les exécuté a l’évènement change() Y a il d’autre solution s.v.p
Merci une autre fois Abd_H
"anonymousA" wrote:
Je ne vois pas pourquoi ca ne marcherait pas. En fait le Union crée une plage de cellules non contigues ( ici les cellules M7 et la plage de cellules C20 à C36). Ensuite Intersect teste si Target, c'est à dire la cellule qui a changé appartient à la plage de cellules non contigues. Si oui alors on fait quelque chose, sinon on ne fait rien. Voilà le principe.
A+
merci anonymousA pour la réponse, j'ai essayé avant avec union et aussi ça marche pas pourquoi ? Set rng = Union(Range("M7"), Range("C20:C36"))
If not Intersect(Target, rng) Is Nothing Then
merci Abed_H
"anonymousA" wrote:
Fais un union des Ranges que tu veux tester avant d'utiliser Intersect.
Bonjour,
Intersect n'accepte que 2 paramètres tout simplement.
A+
Bonjour, J’ai deux macros à exécuter, je voudrais quand je saisi une valeur dans la cellule M7 et je valide, mon premier macro s’exécute, le deuxième sera appeler par mon premier quand je valide une cellule de la colonne « C » de C20 à C36 ,j’ai essayé avec,
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("M7"), Range("C20:C36")) Is Nothing Then macro1 endif End Sub mais ça marche pas peut être j’ai mal utilisé la syntaxe de Intersect ? Ou ???? merci d’avance pour votre aide.
