bonjour =E0 tous,
petit pb enquiquinant (sur xlxp ou xl97):
la macro ci-dessous copie une z=F4ne si Z1 change
=E7a marche si je change directement dans la cellule
Mais =E7a ne marche plus si je mets dans Z1 une formule
=3D'feuil1!a1' et ou je modifie la valeur de A1
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address =3D "$Z$1" Then
Range("Z11:AD28").Select
Selection.Copy
ActiveWindow.SmallScroll ToRight:=3D-20
Range("A11").Select
ActiveSheet.Paste
Application.CutCopyMode =3D False
KEKUN verrait-il(elle) de qouiksavient?
...et si il y a un code qui va bien
merci m=EAme si pas de r=E9sultat
=E0+
gilles
Si A1 est dans la meme feuille que Z1, c'est normal. ta target aura comme adresse $A$1.
j-p
gilles
salut JP et merci de ton aide non A1 n'est pas sur la même feuille A1 est une cellule contenant une formule =NB.SI(B24;"RTE*") elle prend la valeur 1 si B24 contient un mot commençant par RTE si ça peut aider ton diagnostic merci à+ gilles
-----Message d'origine----- Bonjour gilles
Si A1 est dans la meme feuille que Z1, c'est normal. ta target aura comme adresse $A$1.
j-p .
salut JP et merci de ton aide
non A1 n'est pas sur la même feuille
A1 est une cellule contenant une formule =NB.SI(B24;"RTE*")
elle prend la valeur 1 si B24 contient un mot commençant
par RTE
si ça peut aider ton diagnostic
merci à+
gilles
-----Message d'origine-----
Bonjour gilles
Si A1 est dans la meme feuille que Z1, c'est normal. ta
target aura comme adresse $A$1.
salut JP et merci de ton aide non A1 n'est pas sur la même feuille A1 est une cellule contenant une formule =NB.SI(B24;"RTE*") elle prend la valeur 1 si B24 contient un mot commençant par RTE si ça peut aider ton diagnostic merci à+ gilles
-----Message d'origine----- Bonjour gilles
Si A1 est dans la meme feuille que Z1, c'est normal. ta target aura comme adresse $A$1.
j-p .
JpPradier
Bon, je confirme : ça marche pas :-( . Tu ne peux pas declencher ta macro sur le changement de B24 ?
j-p
Bon, je confirme : ça marche pas :-( . Tu ne peux pas declencher ta macro sur le changement de B24 ?
Bon, je confirme : ça marche pas :-( . Tu ne peux pas declencher ta macro sur le changement de B24 ?
j-p
Christophe JEAN
Es-tu sûr d'utiliser le bon évènement ? D'après ce que tu explique, l'évènement Calculate (sur re-calcul) ne serait-il pas plus approprié ?
A +
"gilles" a écrit dans le message de news: 2dee01c49f0e$705120a0$ bonjour à tous, petit pb enquiquinant (sur xlxp ou xl97): la macro ci-dessous copie une zône si Z1 change ça marche si je change directement dans la cellule Mais ça ne marche plus si je mets dans Z1 une formule ='feuil1!a1' et ou je modifie la valeur de A1
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$Z$1" Then Range("Z11:AD28").Select Selection.Copy ActiveWindow.SmallScroll ToRight:=-20 Range("A11").Select ActiveSheet.Paste Application.CutCopyMode = False
KEKUN verrait-il(elle) de qouiksavient? ...et si il y a un code qui va bien merci même si pas de résultat à+ gilles
End If End Sub
Es-tu sûr d'utiliser le bon évènement ?
D'après ce que tu explique, l'évènement Calculate (sur re-calcul) ne
serait-il pas plus approprié ?
A +
"gilles" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 2dee01c49f0e$705120a0$a301280a@phx.gbl...
bonjour à tous,
petit pb enquiquinant (sur xlxp ou xl97):
la macro ci-dessous copie une zône si Z1 change
ça marche si je change directement dans la cellule
Mais ça ne marche plus si je mets dans Z1 une formule
='feuil1!a1' et ou je modifie la valeur de A1
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$Z$1" Then
Range("Z11:AD28").Select
Selection.Copy
ActiveWindow.SmallScroll ToRight:=-20
Range("A11").Select
ActiveSheet.Paste
Application.CutCopyMode = False
KEKUN verrait-il(elle) de qouiksavient?
...et si il y a un code qui va bien
merci même si pas de résultat
à+
gilles
Es-tu sûr d'utiliser le bon évènement ? D'après ce que tu explique, l'évènement Calculate (sur re-calcul) ne serait-il pas plus approprié ?
A +
"gilles" a écrit dans le message de news: 2dee01c49f0e$705120a0$ bonjour à tous, petit pb enquiquinant (sur xlxp ou xl97): la macro ci-dessous copie une zône si Z1 change ça marche si je change directement dans la cellule Mais ça ne marche plus si je mets dans Z1 une formule ='feuil1!a1' et ou je modifie la valeur de A1
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$Z$1" Then Range("Z11:AD28").Select Selection.Copy ActiveWindow.SmallScroll ToRight:=-20 Range("A11").Select ActiveSheet.Paste Application.CutCopyMode = False
KEKUN verrait-il(elle) de qouiksavient? ...et si il y a un code qui va bien merci même si pas de résultat à+ gilles
End If End Sub
gilles
salut JP apparemment sur B24 ça ne fait rien de plus. C4ESTle changement de page peut-être qui est en cause?
-----Message d'origine----- Bon, je confirme : ça marche pas :-( . Tu ne peux pas declencher ta macro sur changement de B24 ?
j-p
.
salut JP
apparemment sur B24 ça ne fait rien de plus. C4ESTle
changement de page peut-être qui est en cause?
-----Message d'origine-----
Bon, je confirme : ça marche pas :-( . Tu ne peux pas
declencher ta macro sur changement de B24 ?
salut JP apparemment sur B24 ça ne fait rien de plus. C4ESTle changement de page peut-être qui est en cause?
-----Message d'origine----- Bon, je confirme : ça marche pas :-( . Tu ne peux pas declencher ta macro sur changement de B24 ?
j-p
.
gilles
salut Christophe effectivement tu as raison: c'est bien calculate j'avais essayé sans succès mais ce coup ci c'est nickel merci à toi et à JP à+ gilles
-----Message d'origine----- Es-tu sûr d'utiliser le bon évènement ? D'après ce que tu explique, l'évènement Calculate (sur re- calcul) ne
serait-il pas plus approprié ?
A +
"gilles" a écrit dans le message de
news: 2dee01c49f0e$705120a0$ bonjour à tous, petit pb enquiquinant (sur xlxp ou xl97): la macro ci-dessous copie une zône si Z1 change ça marche si je change directement dans la cellule Mais ça ne marche plus si je mets dans Z1 une formule ='feuil1!a1' et ou je modifie la valeur de A1
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$Z$1" Then Range("Z11:AD28").Select Selection.Copy ActiveWindow.SmallScroll ToRight:=-20 Range("A11").Select ActiveSheet.Paste Application.CutCopyMode = False
KEKUN verrait-il(elle) de qouiksavient? ....et si il y a un code qui va bien merci même si pas de résultat à+ gilles
End If End Sub
.
salut Christophe
effectivement
tu as raison: c'est bien calculate
j'avais essayé sans succès mais ce coup ci c'est nickel
merci à toi et à JP
à+
gilles
-----Message d'origine-----
Es-tu sûr d'utiliser le bon évènement ?
D'après ce que tu explique, l'évènement Calculate (sur re-
calcul) ne
serait-il pas plus approprié ?
A +
"gilles" <anonymous@discussions.microsoft.com> a écrit
dans le message de
news: 2dee01c49f0e$705120a0$a301280a@phx.gbl...
bonjour à tous,
petit pb enquiquinant (sur xlxp ou xl97):
la macro ci-dessous copie une zône si Z1 change
ça marche si je change directement dans la cellule
Mais ça ne marche plus si je mets dans Z1 une formule
='feuil1!a1' et ou je modifie la valeur de A1
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$Z$1" Then
Range("Z11:AD28").Select
Selection.Copy
ActiveWindow.SmallScroll ToRight:=-20
Range("A11").Select
ActiveSheet.Paste
Application.CutCopyMode = False
KEKUN verrait-il(elle) de qouiksavient?
....et si il y a un code qui va bien
merci même si pas de résultat
à+
gilles
salut Christophe effectivement tu as raison: c'est bien calculate j'avais essayé sans succès mais ce coup ci c'est nickel merci à toi et à JP à+ gilles
-----Message d'origine----- Es-tu sûr d'utiliser le bon évènement ? D'après ce que tu explique, l'évènement Calculate (sur re- calcul) ne
serait-il pas plus approprié ?
A +
"gilles" a écrit dans le message de
news: 2dee01c49f0e$705120a0$ bonjour à tous, petit pb enquiquinant (sur xlxp ou xl97): la macro ci-dessous copie une zône si Z1 change ça marche si je change directement dans la cellule Mais ça ne marche plus si je mets dans Z1 une formule ='feuil1!a1' et ou je modifie la valeur de A1
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$Z$1" Then Range("Z11:AD28").Select Selection.Copy ActiveWindow.SmallScroll ToRight:=-20 Range("A11").Select ActiveSheet.Paste Application.CutCopyMode = False
KEKUN verrait-il(elle) de qouiksavient? ....et si il y a un code qui va bien merci même si pas de résultat à+ gilles
End If End Sub
.
gilles
re bonjour bon ben.... je suis allé trop vite ça ne marche pas ça met "erreur1004 la methode select de la classe range a échoué" je croyais que ça marchait mais j'oubliais que j'avais contourné le pb en mettant une formule dans chaque cellule qui ,si Z1=1 remplissait la cellule ça le fait mais je préférerais une macro car la plage à copier risque de devenir beaucoup plus grande à+ gilles
-----Message d'origine----- Es-tu sûr d'utiliser le bon évènement ? D'après ce que tu explique, l'évènement Calculate (sur re- calcul) ne
serait-il pas plus approprié ?
A +
"gilles" a écrit dans le message de
news: 2dee01c49f0e$705120a0$ bonjour à tous, petit pb enquiquinant (sur xlxp ou xl97): la macro ci-dessous copie une zône si Z1 change ça marche si je change directement dans la cellule Mais ça ne marche plus si je mets dans Z1 une formule ='feuil1!a1' et ou je modifie la valeur de A1
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$Z$1" Then Range("Z11:AD28").Select Selection.Copy ActiveWindow.SmallScroll ToRight:=-20 Range("A11").Select ActiveSheet.Paste Application.CutCopyMode = False
KEKUN verrait-il(elle) de qouiksavient? ....et si il y a un code qui va bien merci même si pas de résultat à+ gilles
End If End Sub
.
re bonjour
bon ben....
je suis allé trop vite
ça ne marche pas
ça met "erreur1004
la methode select de la classe range a échoué"
je croyais que ça marchait mais j'oubliais que j'avais
contourné le pb en mettant une formule dans chaque cellule
qui ,si Z1=1 remplissait la cellule
ça le fait mais je préférerais une macro car la plage à
copier risque de devenir beaucoup plus grande
à+
gilles
-----Message d'origine-----
Es-tu sûr d'utiliser le bon évènement ?
D'après ce que tu explique, l'évènement Calculate (sur re-
calcul) ne
serait-il pas plus approprié ?
A +
"gilles" <anonymous@discussions.microsoft.com> a écrit
dans le message de
news: 2dee01c49f0e$705120a0$a301280a@phx.gbl...
bonjour à tous,
petit pb enquiquinant (sur xlxp ou xl97):
la macro ci-dessous copie une zône si Z1 change
ça marche si je change directement dans la cellule
Mais ça ne marche plus si je mets dans Z1 une formule
='feuil1!a1' et ou je modifie la valeur de A1
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$Z$1" Then
Range("Z11:AD28").Select
Selection.Copy
ActiveWindow.SmallScroll ToRight:=-20
Range("A11").Select
ActiveSheet.Paste
Application.CutCopyMode = False
KEKUN verrait-il(elle) de qouiksavient?
....et si il y a un code qui va bien
merci même si pas de résultat
à+
gilles
re bonjour bon ben.... je suis allé trop vite ça ne marche pas ça met "erreur1004 la methode select de la classe range a échoué" je croyais que ça marchait mais j'oubliais que j'avais contourné le pb en mettant une formule dans chaque cellule qui ,si Z1=1 remplissait la cellule ça le fait mais je préférerais une macro car la plage à copier risque de devenir beaucoup plus grande à+ gilles
-----Message d'origine----- Es-tu sûr d'utiliser le bon évènement ? D'après ce que tu explique, l'évènement Calculate (sur re- calcul) ne
serait-il pas plus approprié ?
A +
"gilles" a écrit dans le message de
news: 2dee01c49f0e$705120a0$ bonjour à tous, petit pb enquiquinant (sur xlxp ou xl97): la macro ci-dessous copie une zône si Z1 change ça marche si je change directement dans la cellule Mais ça ne marche plus si je mets dans Z1 une formule ='feuil1!a1' et ou je modifie la valeur de A1
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$Z$1" Then Range("Z11:AD28").Select Selection.Copy ActiveWindow.SmallScroll ToRight:=-20 Range("A11").Select ActiveSheet.Paste Application.CutCopyMode = False
KEKUN verrait-il(elle) de qouiksavient? ....et si il y a un code qui va bien merci même si pas de résultat à+ gilles
End If End Sub
.
Christophe JEAN
Moi ça a fait un plantage, qui n'apparaît plus si on enlève le "If Target.Address = ..." ce qui est logique ca Calculate ne possède pas d'argument.
Essaye et tiens nous au courant.
A+
Moi ça a fait un plantage, qui n'apparaît plus si on enlève le "If
Target.Address = ..." ce qui est logique ca Calculate ne possède pas
d'argument.
