Bonsoir
J'ai découvert cette macro de Mr Boisgontier jacques
mais est il possible de mettre les couleurs sur une autre feuille
débutant en macro je ne comprend pas très bien ceci
If Not Intersect([A1:C15], Target) Is Nothing And Target.Count = 1 Then
Merci de votre
Anb
http://cjoint.com/?dytFwXWMCV
Bonsoir
J'ai découvert cette macro de Mr Boisgontier jacques
mais est il possible de mettre les couleurs sur une autre feuille
débutant en macro je ne comprend pas très bien ceci
If Not Intersect([A1:C15], Target) Is Nothing And Target.Count = 1 Then
Merci de votre
Anb
http://cjoint.com/?dytFwXWMCV
Bonsoir
J'ai découvert cette macro de Mr Boisgontier jacques
mais est il possible de mettre les couleurs sur une autre feuille
débutant en macro je ne comprend pas très bien ceci
If Not Intersect([A1:C15], Target) Is Nothing And Target.Count = 1 Then
Merci de votre
Anb
http://cjoint.com/?dytFwXWMCV
Bonsoir,
> mais est il possible de mettre les couleurs sur une autre feuille
oui mais explique mieux le contexte car je n'en vois qu'une dans ton
exemple.
>If Not Intersect([A1:C15], Target) Is Nothing And Target.Count = 1 Then
...
Cela signifie que l'on n'agit que si la cible a une intersection avec la
zone à traiter
>Not Intersect([A1:C15], Target) Is Nothing
et
..dommage (encore que c'est parfois voulu) une seule cellule
>Target.Count = 1
Cela intervient généralement dans un _Change
En l'occurence ça ne convient pas car
si je rentre "AR" en A6:G10 il faudrait qu'il se passe qqchose en A6:C10
Donc..
Sauf si l'on doit exercer plusieurs cas du même évennement
il est préférable de faire autrement soit souvent l'inverse
Donc je me permettrais un conseil...
;-)
Commencer (pour ceux qui veulent coder proprement) par déclarer une
variable objet qui visera l'intersection entre la zone dans laquelle on
saisit et celle à traiter
s'il n'y a pas d'intersection sortir et sinon
elle sera bouclée si la saisie
opère sur tout ou partie de la zone voulue
au lieu de négliger cette hypothèse de saisie multiple.
Dim iSect as range, c as range
Set iSect=Intersect([A1:C15], Target)
if isect is nothing then Exit Sub
application.enableeventsúlse
For each c in iSect.cells 'et oui c'est bien l'intersection
'...traitement de c
next c
application.enableevents=true
'a+
'lSteph
AnB a écrit :Bonsoir
J'ai découvert cette macro de Mr Boisgontier jacques
mais est il possible de mettre les couleurs sur une autre feuille
débutant en macro je ne comprend pas très bien ceci
If Not Intersect([A1:C15], Target) Is Nothing And Target.Count = 1 Then
Merci de votre
Anb
http://cjoint.com/?dytFwXWMCV
Bonsoir,
> mais est il possible de mettre les couleurs sur une autre feuille
oui mais explique mieux le contexte car je n'en vois qu'une dans ton
exemple.
>If Not Intersect([A1:C15], Target) Is Nothing And Target.Count = 1 Then
...
Cela signifie que l'on n'agit que si la cible a une intersection avec la
zone à traiter
>Not Intersect([A1:C15], Target) Is Nothing
et
..dommage (encore que c'est parfois voulu) une seule cellule
>Target.Count = 1
Cela intervient généralement dans un _Change
En l'occurence ça ne convient pas car
si je rentre "AR" en A6:G10 il faudrait qu'il se passe qqchose en A6:C10
Donc..
Sauf si l'on doit exercer plusieurs cas du même évennement
il est préférable de faire autrement soit souvent l'inverse
Donc je me permettrais un conseil...
;-)
Commencer (pour ceux qui veulent coder proprement) par déclarer une
variable objet qui visera l'intersection entre la zone dans laquelle on
saisit et celle à traiter
s'il n'y a pas d'intersection sortir et sinon
elle sera bouclée si la saisie
opère sur tout ou partie de la zone voulue
au lieu de négliger cette hypothèse de saisie multiple.
Dim iSect as range, c as range
Set iSect=Intersect([A1:C15], Target)
if isect is nothing then Exit Sub
application.enableeventsúlse
For each c in iSect.cells 'et oui c'est bien l'intersection
'...traitement de c
next c
application.enableevents=true
'a+
'lSteph
AnB a écrit :
Bonsoir
J'ai découvert cette macro de Mr Boisgontier jacques
mais est il possible de mettre les couleurs sur une autre feuille
débutant en macro je ne comprend pas très bien ceci
If Not Intersect([A1:C15], Target) Is Nothing And Target.Count = 1 Then
Merci de votre
Anb
http://cjoint.com/?dytFwXWMCV
Bonsoir,
> mais est il possible de mettre les couleurs sur une autre feuille
oui mais explique mieux le contexte car je n'en vois qu'une dans ton
exemple.
>If Not Intersect([A1:C15], Target) Is Nothing And Target.Count = 1 Then
...
Cela signifie que l'on n'agit que si la cible a une intersection avec la
zone à traiter
>Not Intersect([A1:C15], Target) Is Nothing
et
..dommage (encore que c'est parfois voulu) une seule cellule
>Target.Count = 1
Cela intervient généralement dans un _Change
En l'occurence ça ne convient pas car
si je rentre "AR" en A6:G10 il faudrait qu'il se passe qqchose en A6:C10
Donc..
Sauf si l'on doit exercer plusieurs cas du même évennement
il est préférable de faire autrement soit souvent l'inverse
Donc je me permettrais un conseil...
;-)
Commencer (pour ceux qui veulent coder proprement) par déclarer une
variable objet qui visera l'intersection entre la zone dans laquelle on
saisit et celle à traiter
s'il n'y a pas d'intersection sortir et sinon
elle sera bouclée si la saisie
opère sur tout ou partie de la zone voulue
au lieu de négliger cette hypothèse de saisie multiple.
Dim iSect as range, c as range
Set iSect=Intersect([A1:C15], Target)
if isect is nothing then Exit Sub
application.enableeventsúlse
For each c in iSect.cells 'et oui c'est bien l'intersection
'...traitement de c
next c
application.enableevents=true
'a+
'lSteph
AnB a écrit :Bonsoir
J'ai découvert cette macro de Mr Boisgontier jacques
mais est il possible de mettre les couleurs sur une autre feuille
débutant en macro je ne comprend pas très bien ceci
If Not Intersect([A1:C15], Target) Is Nothing And Target.Count = 1 Then
Merci de votre
Anb
http://cjoint.com/?dytFwXWMCV
Bonsoir,
> mais est il possible de mettre les couleurs sur une autre feuille
oui mais explique mieux le contexte car je n'en vois qu'une dans ton
exemple.
>If Not Intersect([A1:C15], Target) Is Nothing And Target.Count = 1 Then
...
Cela signifie que l'on n'agit que si la cible a une intersection avec la
zone à traiter
>Not Intersect([A1:C15], Target) Is Nothing
et
..dommage (encore que c'est parfois voulu) une seule cellule
>Target.Count = 1
Cela intervient généralement dans un _Change
En l'occurence ça ne convient pas car
si je rentre "AR" en A6:G10 il faudrait qu'il se passe qqchose en A6:C10
Donc..
Sauf si l'on doit exercer plusieurs cas du même évennement
il est préférable de faire autrement soit souvent l'inverse
Donc je me permettrais un conseil...
;-)
Commencer (pour ceux qui veulent coder proprement) par déclarer une
variable objet qui visera l'intersection entre la zone dans laquelle on
saisit et celle à traiter
s'il n'y a pas d'intersection sortir et sinon
elle sera bouclée si la saisie
opère sur tout ou partie de la zone voulue
au lieu de négliger cette hypothèse de saisie multiple.
Dim iSect as range, c as range
Set iSect=Intersect([A1:C15], Target)
if isect is nothing then Exit Sub
application.enableeventsúlse
For each c in iSect.cells 'et oui c'est bien l'intersection
'...traitement de c
next c
application.enableevents=true
'a+
'lSteph
AnB a écrit :Bonsoir
J'ai découvert cette macro de Mr Boisgontier jacques
mais est il possible de mettre les couleurs sur une autre feuille
débutant en macro je ne comprend pas très bien ceci
If Not Intersect([A1:C15], Target) Is Nothing And Target.Count = 1 Then
Merci de votre
Anb
http://cjoint.com/?dytFwXWMCV
Bonsoir,
> mais est il possible de mettre les couleurs sur une autre feuille
oui mais explique mieux le contexte car je n'en vois qu'une dans ton
exemple.
>If Not Intersect([A1:C15], Target) Is Nothing And Target.Count = 1 Then
...
Cela signifie que l'on n'agit que si la cible a une intersection avec la
zone à traiter
>Not Intersect([A1:C15], Target) Is Nothing
et
..dommage (encore que c'est parfois voulu) une seule cellule
>Target.Count = 1
Cela intervient généralement dans un _Change
En l'occurence ça ne convient pas car
si je rentre "AR" en A6:G10 il faudrait qu'il se passe qqchose en A6:C10
Donc..
Sauf si l'on doit exercer plusieurs cas du même évennement
il est préférable de faire autrement soit souvent l'inverse
Donc je me permettrais un conseil...
;-)
Commencer (pour ceux qui veulent coder proprement) par déclarer une
variable objet qui visera l'intersection entre la zone dans laquelle on
saisit et celle à traiter
s'il n'y a pas d'intersection sortir et sinon
elle sera bouclée si la saisie
opère sur tout ou partie de la zone voulue
au lieu de négliger cette hypothèse de saisie multiple.
Dim iSect as range, c as range
Set iSect=Intersect([A1:C15], Target)
if isect is nothing then Exit Sub
application.enableeventsúlse
For each c in iSect.cells 'et oui c'est bien l'intersection
'...traitement de c
next c
application.enableevents=true
'a+
'lSteph
AnB a écrit :
Bonsoir
J'ai découvert cette macro de Mr Boisgontier jacques
mais est il possible de mettre les couleurs sur une autre feuille
débutant en macro je ne comprend pas très bien ceci
If Not Intersect([A1:C15], Target) Is Nothing And Target.Count = 1 Then
Merci de votre
Anb
http://cjoint.com/?dytFwXWMCV
Bonsoir,
> mais est il possible de mettre les couleurs sur une autre feuille
oui mais explique mieux le contexte car je n'en vois qu'une dans ton
exemple.
>If Not Intersect([A1:C15], Target) Is Nothing And Target.Count = 1 Then
...
Cela signifie que l'on n'agit que si la cible a une intersection avec la
zone à traiter
>Not Intersect([A1:C15], Target) Is Nothing
et
..dommage (encore que c'est parfois voulu) une seule cellule
>Target.Count = 1
Cela intervient généralement dans un _Change
En l'occurence ça ne convient pas car
si je rentre "AR" en A6:G10 il faudrait qu'il se passe qqchose en A6:C10
Donc..
Sauf si l'on doit exercer plusieurs cas du même évennement
il est préférable de faire autrement soit souvent l'inverse
Donc je me permettrais un conseil...
;-)
Commencer (pour ceux qui veulent coder proprement) par déclarer une
variable objet qui visera l'intersection entre la zone dans laquelle on
saisit et celle à traiter
s'il n'y a pas d'intersection sortir et sinon
elle sera bouclée si la saisie
opère sur tout ou partie de la zone voulue
au lieu de négliger cette hypothèse de saisie multiple.
Dim iSect as range, c as range
Set iSect=Intersect([A1:C15], Target)
if isect is nothing then Exit Sub
application.enableeventsúlse
For each c in iSect.cells 'et oui c'est bien l'intersection
'...traitement de c
next c
application.enableevents=true
'a+
'lSteph
AnB a écrit :Bonsoir
J'ai découvert cette macro de Mr Boisgontier jacques
mais est il possible de mettre les couleurs sur une autre feuille
débutant en macro je ne comprend pas très bien ceci
If Not Intersect([A1:C15], Target) Is Nothing And Target.Count = 1 Then
Merci de votre
Anb
http://cjoint.com/?dytFwXWMCV
j'ai mis les couleurs zone (L4 à L12) sur une autre feuille du classeur, la
macro ne marcha pas
merci pour cet éclairage
Anb
"LSteph" a écrit dans le message de news:Bonsoir,mais est il possible de mettre les couleurs sur une autre feuille
oui mais explique mieux le contexte car je n'en vois qu'une dans ton
exemple.If Not Intersect([A1:C15], Target) Is Nothing And Target.Count = 1 Then
...
Cela signifie que l'on n'agit que si la cible a une intersection avec la
zone à traiterNot Intersect([A1:C15], Target) Is Nothing
et
..dommage (encore que c'est parfois voulu) une seule celluleTarget.Count = 1
Cela intervient généralement dans un _Change
En l'occurence ça ne convient pas car
si je rentre "AR" en A6:G10 il faudrait qu'il se passe qqchose en A6:C10
Donc..
Sauf si l'on doit exercer plusieurs cas du même évennement
il est préférable de faire autrement soit souvent l'inverse
Donc je me permettrais un conseil...
;-)
Commencer (pour ceux qui veulent coder proprement) par déclarer une
variable objet qui visera l'intersection entre la zone dans laquelle on
saisit et celle à traiter
s'il n'y a pas d'intersection sortir et sinon
elle sera bouclée si la saisie
opère sur tout ou partie de la zone voulue
au lieu de négliger cette hypothèse de saisie multiple.
Dim iSect as range, c as range
Set iSect=Intersect([A1:C15], Target)
if isect is nothing then Exit Sub
application.enableeventsúlse
For each c in iSect.cells 'et oui c'est bien l'intersection
'...traitement de c
next c
application.enableevents=true
'a+
'lSteph
AnB a écrit :Bonsoir
J'ai découvert cette macro de Mr Boisgontier jacques
mais est il possible de mettre les couleurs sur une autre feuille
débutant en macro je ne comprend pas très bien ceci
If Not Intersect([A1:C15], Target) Is Nothing And Target.Count = 1 Then
Merci de votre
Anb
http://cjoint.com/?dytFwXWMCV
j'ai mis les couleurs zone (L4 à L12) sur une autre feuille du classeur, la
macro ne marcha pas
merci pour cet éclairage
Anb
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
OWRwZJ0qJHA.3420@TK2MSFTNGP03.phx.gbl...
Bonsoir,
mais est il possible de mettre les couleurs sur une autre feuille
oui mais explique mieux le contexte car je n'en vois qu'une dans ton
exemple.
If Not Intersect([A1:C15], Target) Is Nothing And Target.Count = 1 Then
...
Cela signifie que l'on n'agit que si la cible a une intersection avec la
zone à traiter
Not Intersect([A1:C15], Target) Is Nothing
et
..dommage (encore que c'est parfois voulu) une seule cellule
Target.Count = 1
Cela intervient généralement dans un _Change
En l'occurence ça ne convient pas car
si je rentre "AR" en A6:G10 il faudrait qu'il se passe qqchose en A6:C10
Donc..
Sauf si l'on doit exercer plusieurs cas du même évennement
il est préférable de faire autrement soit souvent l'inverse
Donc je me permettrais un conseil...
;-)
Commencer (pour ceux qui veulent coder proprement) par déclarer une
variable objet qui visera l'intersection entre la zone dans laquelle on
saisit et celle à traiter
s'il n'y a pas d'intersection sortir et sinon
elle sera bouclée si la saisie
opère sur tout ou partie de la zone voulue
au lieu de négliger cette hypothèse de saisie multiple.
Dim iSect as range, c as range
Set iSect=Intersect([A1:C15], Target)
if isect is nothing then Exit Sub
application.enableeventsúlse
For each c in iSect.cells 'et oui c'est bien l'intersection
'...traitement de c
next c
application.enableevents=true
'a+
'lSteph
AnB a écrit :
Bonsoir
J'ai découvert cette macro de Mr Boisgontier jacques
mais est il possible de mettre les couleurs sur une autre feuille
débutant en macro je ne comprend pas très bien ceci
If Not Intersect([A1:C15], Target) Is Nothing And Target.Count = 1 Then
Merci de votre
Anb
http://cjoint.com/?dytFwXWMCV
j'ai mis les couleurs zone (L4 à L12) sur une autre feuille du classeur, la
macro ne marcha pas
merci pour cet éclairage
Anb
"LSteph" a écrit dans le message de news:Bonsoir,mais est il possible de mettre les couleurs sur une autre feuille
oui mais explique mieux le contexte car je n'en vois qu'une dans ton
exemple.If Not Intersect([A1:C15], Target) Is Nothing And Target.Count = 1 Then
...
Cela signifie que l'on n'agit que si la cible a une intersection avec la
zone à traiterNot Intersect([A1:C15], Target) Is Nothing
et
..dommage (encore que c'est parfois voulu) une seule celluleTarget.Count = 1
Cela intervient généralement dans un _Change
En l'occurence ça ne convient pas car
si je rentre "AR" en A6:G10 il faudrait qu'il se passe qqchose en A6:C10
Donc..
Sauf si l'on doit exercer plusieurs cas du même évennement
il est préférable de faire autrement soit souvent l'inverse
Donc je me permettrais un conseil...
;-)
Commencer (pour ceux qui veulent coder proprement) par déclarer une
variable objet qui visera l'intersection entre la zone dans laquelle on
saisit et celle à traiter
s'il n'y a pas d'intersection sortir et sinon
elle sera bouclée si la saisie
opère sur tout ou partie de la zone voulue
au lieu de négliger cette hypothèse de saisie multiple.
Dim iSect as range, c as range
Set iSect=Intersect([A1:C15], Target)
if isect is nothing then Exit Sub
application.enableeventsúlse
For each c in iSect.cells 'et oui c'est bien l'intersection
'...traitement de c
next c
application.enableevents=true
'a+
'lSteph
AnB a écrit :Bonsoir
J'ai découvert cette macro de Mr Boisgontier jacques
mais est il possible de mettre les couleurs sur une autre feuille
débutant en macro je ne comprend pas très bien ceci
If Not Intersect([A1:C15], Target) Is Nothing And Target.Count = 1 Then
Merci de votre
Anb
http://cjoint.com/?dytFwXWMCV
Bonsoir
J'ai découvert cette macro de Mr Boisgontier jacques
mais est il possible de mettre les couleurs sur une autre feuille
débutant en macro je ne comprend pas très bien ceci
If Not Intersect([A1:C15], Target) Is Nothing And Target.Count = 1 T hen
Merci de votre
Anbhttp://cjoint.com/?dytFwXWMCV
Bonsoir
J'ai découvert cette macro de Mr Boisgontier jacques
mais est il possible de mettre les couleurs sur une autre feuille
débutant en macro je ne comprend pas très bien ceci
If Not Intersect([A1:C15], Target) Is Nothing And Target.Count = 1 T hen
Merci de votre
Anbhttp://cjoint.com/?dytFwXWMCV
Bonsoir
J'ai découvert cette macro de Mr Boisgontier jacques
mais est il possible de mettre les couleurs sur une autre feuille
débutant en macro je ne comprend pas très bien ceci
If Not Intersect([A1:C15], Target) Is Nothing And Target.Count = 1 T hen
Merci de votre
Anbhttp://cjoint.com/?dytFwXWMCV
Bonjour,
http://cjoint.com/?dzgIxstNSH
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([A1:C15], Target) Is Nothing Then
On Error Resume Next
Target.Interior.ColorIndex = [couleurs].Find(Target,
LookAt:=xlWhole).Interior.ColorIndex
End If
End Sub
JB
http://boisgontierjacques.free.fr/
On 22 mar, 20:45, "AnB" wrote:Bonsoir
J'ai découvert cette macro de Mr Boisgontier jacques
mais est il possible de mettre les couleurs sur une autre feuille
débutant en macro je ne comprend pas très bien ceci
If Not Intersect([A1:C15], Target) Is Nothing And Target.Count = 1 Then
Merci de votre
Anbhttp://cjoint.com/?dytFwXWMCV
Bonjour,
http://cjoint.com/?dzgIxstNSH
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([A1:C15], Target) Is Nothing Then
On Error Resume Next
Target.Interior.ColorIndex = [couleurs].Find(Target,
LookAt:=xlWhole).Interior.ColorIndex
End If
End Sub
JB
http://boisgontierjacques.free.fr/
On 22 mar, 20:45, "AnB" <nospam...@noos.fr> wrote:
Bonsoir
J'ai découvert cette macro de Mr Boisgontier jacques
mais est il possible de mettre les couleurs sur une autre feuille
débutant en macro je ne comprend pas très bien ceci
If Not Intersect([A1:C15], Target) Is Nothing And Target.Count = 1 Then
Merci de votre
Anbhttp://cjoint.com/?dytFwXWMCV
Bonjour,
http://cjoint.com/?dzgIxstNSH
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([A1:C15], Target) Is Nothing Then
On Error Resume Next
Target.Interior.ColorIndex = [couleurs].Find(Target,
LookAt:=xlWhole).Interior.ColorIndex
End If
End Sub
JB
http://boisgontierjacques.free.fr/
On 22 mar, 20:45, "AnB" wrote:Bonsoir
J'ai découvert cette macro de Mr Boisgontier jacques
mais est il possible de mettre les couleurs sur une autre feuille
débutant en macro je ne comprend pas très bien ceci
If Not Intersect([A1:C15], Target) Is Nothing And Target.Count = 1 Then
Merci de votre
Anbhttp://cjoint.com/?dytFwXWMCV
j'ai mis les couleurs zone (L4 à L12) sur une autre feuille du classeur , la
macro ne marcha pas
merci pour cet éclairage
Anb
"LSteph" a écrit dans le message de news:
> Bonsoir,
> > mais est il possible de mettre les couleurs sur une autre feuille
> oui mais explique mieux le contexte car je n'en vois qu'une dans ton
> exemple.
> >If Not Intersect([A1:C15], Target) Is Nothing And Target.Count = 1 T hen
> ...
> Cela signifie que l'on n'agit que si la cible a une intersection avec l a
> zone à traiter
> >Not Intersect([A1:C15], Target) Is Nothing
> et
> ..dommage (encore que c'est parfois voulu) une seule cellule
> >Target.Count = 1
> Cela intervient généralement dans un _Change
> En l'occurence ça ne convient pas car
> si je rentre "AR" en A6:G10 il faudrait qu'il se passe qqchose en A6:C1 0
> Donc..
> Sauf si l'on doit exercer plusieurs cas du même évennement
> il est préférable de faire autrement soit souvent l'inverse
> Donc je me permettrais un conseil...
> ;-)
> Commencer (pour ceux qui veulent coder proprement) par déclarer une
> variable objet qui visera l'intersection entre la zone dans laquelle on
> saisit et celle à traiter
> s'il n'y a pas d'intersection sortir et sinon
> elle sera bouclée si la saisie
> opère sur tout ou partie de la zone voulue
> au lieu de négliger cette hypothèse de saisie multiple.
> Dim iSect as range, c as range
> Set iSect=Intersect([A1:C15], Target)
> if isect is nothing then Exit Sub
> application.enableeventslse
> For each c in iSect.cells 'et oui c'est bien l'intersection
> '...traitement de c
> next c
> application.enableevents=true
> 'a+
> 'lSteph
> AnB a écrit :
>> Bonsoir
>> J'ai découvert cette macro de Mr Boisgontier jacques
>> mais est il possible de mettre les couleurs sur une autre feuille
>> débutant en macro je ne comprend pas très bien ceci
>> If Not Intersect([A1:C15], Target) Is Nothing And Target.Count = 1 Then
>> Merci de votre
>> Anb
>>http://cjoint.com/?dytFwXWMCV- Masquer le texte des messages précéd ents -
- Afficher le texte des messages précédents -
j'ai mis les couleurs zone (L4 à L12) sur une autre feuille du classeur , la
macro ne marcha pas
merci pour cet éclairage
Anb
"LSteph" <lecocost...@frite.fr> a écrit dans le message de news:
OWRwZJ0qJHA.3...@TK2MSFTNGP03.phx.gbl...
> Bonsoir,
> > mais est il possible de mettre les couleurs sur une autre feuille
> oui mais explique mieux le contexte car je n'en vois qu'une dans ton
> exemple.
> >If Not Intersect([A1:C15], Target) Is Nothing And Target.Count = 1 T hen
> ...
> Cela signifie que l'on n'agit que si la cible a une intersection avec l a
> zone à traiter
> >Not Intersect([A1:C15], Target) Is Nothing
> et
> ..dommage (encore que c'est parfois voulu) une seule cellule
> >Target.Count = 1
> Cela intervient généralement dans un _Change
> En l'occurence ça ne convient pas car
> si je rentre "AR" en A6:G10 il faudrait qu'il se passe qqchose en A6:C1 0
> Donc..
> Sauf si l'on doit exercer plusieurs cas du même évennement
> il est préférable de faire autrement soit souvent l'inverse
> Donc je me permettrais un conseil...
> ;-)
> Commencer (pour ceux qui veulent coder proprement) par déclarer une
> variable objet qui visera l'intersection entre la zone dans laquelle on
> saisit et celle à traiter
> s'il n'y a pas d'intersection sortir et sinon
> elle sera bouclée si la saisie
> opère sur tout ou partie de la zone voulue
> au lieu de négliger cette hypothèse de saisie multiple.
> Dim iSect as range, c as range
> Set iSect=Intersect([A1:C15], Target)
> if isect is nothing then Exit Sub
> application.enableevents=false
> For each c in iSect.cells 'et oui c'est bien l'intersection
> '...traitement de c
> next c
> application.enableevents=true
> 'a+
> 'lSteph
> AnB a écrit :
>> Bonsoir
>> J'ai découvert cette macro de Mr Boisgontier jacques
>> mais est il possible de mettre les couleurs sur une autre feuille
>> débutant en macro je ne comprend pas très bien ceci
>> If Not Intersect([A1:C15], Target) Is Nothing And Target.Count = 1 Then
>> Merci de votre
>> Anb
>>http://cjoint.com/?dytFwXWMCV- Masquer le texte des messages précéd ents -
- Afficher le texte des messages précédents -
j'ai mis les couleurs zone (L4 à L12) sur une autre feuille du classeur , la
macro ne marcha pas
merci pour cet éclairage
Anb
"LSteph" a écrit dans le message de news:
> Bonsoir,
> > mais est il possible de mettre les couleurs sur une autre feuille
> oui mais explique mieux le contexte car je n'en vois qu'une dans ton
> exemple.
> >If Not Intersect([A1:C15], Target) Is Nothing And Target.Count = 1 T hen
> ...
> Cela signifie que l'on n'agit que si la cible a une intersection avec l a
> zone à traiter
> >Not Intersect([A1:C15], Target) Is Nothing
> et
> ..dommage (encore que c'est parfois voulu) une seule cellule
> >Target.Count = 1
> Cela intervient généralement dans un _Change
> En l'occurence ça ne convient pas car
> si je rentre "AR" en A6:G10 il faudrait qu'il se passe qqchose en A6:C1 0
> Donc..
> Sauf si l'on doit exercer plusieurs cas du même évennement
> il est préférable de faire autrement soit souvent l'inverse
> Donc je me permettrais un conseil...
> ;-)
> Commencer (pour ceux qui veulent coder proprement) par déclarer une
> variable objet qui visera l'intersection entre la zone dans laquelle on
> saisit et celle à traiter
> s'il n'y a pas d'intersection sortir et sinon
> elle sera bouclée si la saisie
> opère sur tout ou partie de la zone voulue
> au lieu de négliger cette hypothèse de saisie multiple.
> Dim iSect as range, c as range
> Set iSect=Intersect([A1:C15], Target)
> if isect is nothing then Exit Sub
> application.enableeventslse
> For each c in iSect.cells 'et oui c'est bien l'intersection
> '...traitement de c
> next c
> application.enableevents=true
> 'a+
> 'lSteph
> AnB a écrit :
>> Bonsoir
>> J'ai découvert cette macro de Mr Boisgontier jacques
>> mais est il possible de mettre les couleurs sur une autre feuille
>> débutant en macro je ne comprend pas très bien ceci
>> If Not Intersect([A1:C15], Target) Is Nothing And Target.Count = 1 Then
>> Merci de votre
>> Anb
>>http://cjoint.com/?dytFwXWMCV- Masquer le texte des messages précéd ents -
- Afficher le texte des messages précédents -
Bonjour,
qu'on s'y prenne autrement ne change rien
à la façon de traiter seulement une intersection et pas ce qui est autour:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim iSect As Range, c As Range
Set iSect = Intersect([A1:C15], Target)
If iSect Is Nothing Then Exit Sub
Application.ScreenUpdating = False
On Error Resume Next
For Each c In iSect.Cells 'et oui c'est bien l'intersection
c.Interior.ColorIndex = [couleurs].Find(c, _
LookAt:=xlWhole).Interior.ColorIndex
Next c
End Sub
'lSteph
JB a écrit :Bonjour,
http://cjoint.com/?dzgIxstNSH
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([A1:C15], Target) Is Nothing Then
On Error Resume Next
Target.Interior.ColorIndex = [couleurs].Find(Target,
LookAt:=xlWhole).Interior.ColorIndex
End If
End Sub
JB
http://boisgontierjacques.free.fr/
On 22 mar, 20:45, "AnB" wrote:Bonsoir
J'ai découvert cette macro de Mr Boisgontier jacques
mais est il possible de mettre les couleurs sur une autre feuille
débutant en macro je ne comprend pas très bien ceci
If Not Intersect([A1:C15], Target) Is Nothing And Target.Count = 1 Then
Merci de votre
Anbhttp://cjoint.com/?dytFwXWMCV
Bonjour,
qu'on s'y prenne autrement ne change rien
à la façon de traiter seulement une intersection et pas ce qui est autour:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim iSect As Range, c As Range
Set iSect = Intersect([A1:C15], Target)
If iSect Is Nothing Then Exit Sub
Application.ScreenUpdating = False
On Error Resume Next
For Each c In iSect.Cells 'et oui c'est bien l'intersection
c.Interior.ColorIndex = [couleurs].Find(c, _
LookAt:=xlWhole).Interior.ColorIndex
Next c
End Sub
'lSteph
JB a écrit :
Bonjour,
http://cjoint.com/?dzgIxstNSH
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([A1:C15], Target) Is Nothing Then
On Error Resume Next
Target.Interior.ColorIndex = [couleurs].Find(Target,
LookAt:=xlWhole).Interior.ColorIndex
End If
End Sub
JB
http://boisgontierjacques.free.fr/
On 22 mar, 20:45, "AnB" <nospam...@noos.fr> wrote:
Bonsoir
J'ai découvert cette macro de Mr Boisgontier jacques
mais est il possible de mettre les couleurs sur une autre feuille
débutant en macro je ne comprend pas très bien ceci
If Not Intersect([A1:C15], Target) Is Nothing And Target.Count = 1 Then
Merci de votre
Anbhttp://cjoint.com/?dytFwXWMCV
Bonjour,
qu'on s'y prenne autrement ne change rien
à la façon de traiter seulement une intersection et pas ce qui est autour:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim iSect As Range, c As Range
Set iSect = Intersect([A1:C15], Target)
If iSect Is Nothing Then Exit Sub
Application.ScreenUpdating = False
On Error Resume Next
For Each c In iSect.Cells 'et oui c'est bien l'intersection
c.Interior.ColorIndex = [couleurs].Find(c, _
LookAt:=xlWhole).Interior.ColorIndex
Next c
End Sub
'lSteph
JB a écrit :Bonjour,
http://cjoint.com/?dzgIxstNSH
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([A1:C15], Target) Is Nothing Then
On Error Resume Next
Target.Interior.ColorIndex = [couleurs].Find(Target,
LookAt:=xlWhole).Interior.ColorIndex
End If
End Sub
JB
http://boisgontierjacques.free.fr/
On 22 mar, 20:45, "AnB" wrote:Bonsoir
J'ai découvert cette macro de Mr Boisgontier jacques
mais est il possible de mettre les couleurs sur une autre feuille
débutant en macro je ne comprend pas très bien ceci
If Not Intersect([A1:C15], Target) Is Nothing And Target.Count = 1 Then
Merci de votre
Anbhttp://cjoint.com/?dytFwXWMCV
Bonjour,
qu'on s'y prenne autrement ne change rien
à la façon de traiter seulement une intersection et pas ce qui est autour:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim iSect As Range, c As Range
Set iSect = Intersect([A1:C15], Target)
If iSect Is Nothing Then Exit Sub
Application.ScreenUpdating = False
On Error Resume Next
For Each c In iSect.Cells 'et oui c'est bien l'intersection
c.Interior.ColorIndex = [couleurs].Find(c, _
LookAt:=xlWhole).Interior.ColorIndex
Next c
End Sub
'lSteph
JB a écrit :Bonjour,
http://cjoint.com/?dzgIxstNSH
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([A1:C15], Target) Is Nothing Then
On Error Resume Next
Target.Interior.ColorIndex = [couleurs].Find(Target,
LookAt:=xlWhole).Interior.ColorIndex
End If
End Sub
JB
http://boisgontierjacques.free.fr/
On 22 mar, 20:45, "AnB" wrote:Bonsoir
J'ai découvert cette macro de Mr Boisgontier jacques
mais est il possible de mettre les couleurs sur une autre feuille
débutant en macro je ne comprend pas très bien ceci
If Not Intersect([A1:C15], Target) Is Nothing And Target.Count = 1 Then
Merci de votre
Anbhttp://cjoint.com/?dytFwXWMCV
Bonjour,
qu'on s'y prenne autrement ne change rien
à la façon de traiter seulement une intersection et pas ce qui est autour:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim iSect As Range, c As Range
Set iSect = Intersect([A1:C15], Target)
If iSect Is Nothing Then Exit Sub
Application.ScreenUpdating = False
On Error Resume Next
For Each c In iSect.Cells 'et oui c'est bien l'intersection
c.Interior.ColorIndex = [couleurs].Find(c, _
LookAt:=xlWhole).Interior.ColorIndex
Next c
End Sub
'lSteph
JB a écrit :
Bonjour,
http://cjoint.com/?dzgIxstNSH
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([A1:C15], Target) Is Nothing Then
On Error Resume Next
Target.Interior.ColorIndex = [couleurs].Find(Target,
LookAt:=xlWhole).Interior.ColorIndex
End If
End Sub
JB
http://boisgontierjacques.free.fr/
On 22 mar, 20:45, "AnB" <nospam...@noos.fr> wrote:
Bonsoir
J'ai découvert cette macro de Mr Boisgontier jacques
mais est il possible de mettre les couleurs sur une autre feuille
débutant en macro je ne comprend pas très bien ceci
If Not Intersect([A1:C15], Target) Is Nothing And Target.Count = 1 Then
Merci de votre
Anbhttp://cjoint.com/?dytFwXWMCV
Bonjour,
qu'on s'y prenne autrement ne change rien
à la façon de traiter seulement une intersection et pas ce qui est autour:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim iSect As Range, c As Range
Set iSect = Intersect([A1:C15], Target)
If iSect Is Nothing Then Exit Sub
Application.ScreenUpdating = False
On Error Resume Next
For Each c In iSect.Cells 'et oui c'est bien l'intersection
c.Interior.ColorIndex = [couleurs].Find(c, _
LookAt:=xlWhole).Interior.ColorIndex
Next c
End Sub
'lSteph
JB a écrit :Bonjour,
http://cjoint.com/?dzgIxstNSH
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([A1:C15], Target) Is Nothing Then
On Error Resume Next
Target.Interior.ColorIndex = [couleurs].Find(Target,
LookAt:=xlWhole).Interior.ColorIndex
End If
End Sub
JB
http://boisgontierjacques.free.fr/
On 22 mar, 20:45, "AnB" wrote:Bonsoir
J'ai découvert cette macro de Mr Boisgontier jacques
mais est il possible de mettre les couleurs sur une autre feuille
débutant en macro je ne comprend pas très bien ceci
If Not Intersect([A1:C15], Target) Is Nothing And Target.Count = 1 Then
Merci de votre
Anbhttp://cjoint.com/?dytFwXWMCV