lenteur dans cette macro à l'activation de la feuille
17 réponses
magic-dd
bonjour
je voulais qu'une macro s'active des l'ouverture de la feuille mais je
trouve que le code est long =E0 s'executer
pourriez vous m'aider pour rendre plus efficace l'execution svp.
car il n'y que 30 lignes environ =E0 traiter alors sur 150 j'imagine
meme pas
aussi, n'est il pas plus facile de mettre le resultat d'une formule
plutot que la formule elle meme?
merci
Private Sub Worksheet_Activate()
For i =3D 6 To 30
'copie des bases
Range("a" & i) =3D "=3DIF('SEL 100m NL H'!R[-1]C[23]<>"""",'SEL 100m NL H'!
R[-1]C[23],"""")"
'100m brasse masculin
Range("b" & i) =3D "=3DIF(ISERROR(VLOOKUP(RC[-1],'SEL 100m BR H'!
R5C24:R34C25,2,0)),"""",(VLOOKUP(RC[-1],'SEL 100m BR H'!
R5C24:R34C25,2,0)))"
Cela devrait ressembler plus à ceci... si mes yeux ne me jouent pas trop de tour !
Range("f" & I) = Evaluate("=if(iserror(vlookup(A" & I & _ ",'50 m NL F'!$X$5:$Y$34,2,0)),"""",(vlookup(A" & _ I & ",'50 m NL F'!$X$5:$Y$34,2,0)))")
Range("H" & I) = Evaluate("If(iserror(Vlookup(XEX" & _ I & ",'SEL 100m NL H'!$X$5:$Y$34,2,0)),"""",(Vlookup(XEX" & _ I & ",'SEL 100m NL H'!$X$5:$Y$34,2,0)))")
Range("H" & I) = Evaluate("if(iserror(Vlookup(A" & _ I & ",'SEL 100m NL H'!$X$5:$Y$34,2,0)),"""",(Vlookup(A" & _ I & ",'SEL 100m NL H'!$X$5:$Y$34,2,0)))")
MichDenis
| C'est mon lecteur de news qui a dû péter une durite; | remplace "XEZ" par "A" et "XFD" par "F".
Toi c'est peut être ton lecteur de news... moi, c'est mes yeux ! ;-))
"Daniel.C" a écrit dans le message de groupe de discussion :
C'est mon lecteur de news qui a dû péter une durite; remplace "XEZ" par "A" et "XFD" par "F". Daniel
merci encore à tous
mais question
à quoi correspond le XEZ dans la formule
Range("f" & I) = Evaluate("if(iserror(vlooKup(XEZ" & _ I & ",'50 m NL F'!$X$5:$Y$34,2,0)),"""",(vlookup(XEZ" & _ I & ",'50 m NL F'!$X$5:$Y$34,2,0)))")
le XFD ici
Range("g" & I) = Evaluate("if(iserror(count($F$6:$F$30)-XFD" & _ I & "+1),"""",(count($F$6:$F$30)-XFD" & I & "+1))")
et le XEX
Range("H" & I) = Evaluate("If(iserror(Vlookup(XEX" & _ I & ",'SEL 100m NL H'!$X$5:$Y$34,2,0)),"""",(Vlookup(XEX" & _ I & ",'SEL 100m NL H'!$X$5:$Y$34,2,0)))")
| C'est mon lecteur de news qui a dû péter une durite;
| remplace "XEZ" par "A" et "XFD" par "F".
Toi c'est peut être ton lecteur de news... moi, c'est mes yeux !
;-))
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de groupe de discussion :
Oj9ONi9sJHA.5652@TK2MSFTNGP05.phx.gbl...
C'est mon lecteur de news qui a dû péter une durite; remplace "XEZ" par
"A" et "XFD" par "F".
Daniel
merci encore à tous
mais question
à quoi correspond le XEZ dans la formule
Range("f" & I) = Evaluate("if(iserror(vlooKup(XEZ" & _
I & ",'50 m NL F'!$X$5:$Y$34,2,0)),"""",(vlookup(XEZ" & _
I & ",'50 m NL F'!$X$5:$Y$34,2,0)))")
le XFD ici
Range("g" & I) = Evaluate("if(iserror(count($F$6:$F$30)-XFD" & _
I & "+1),"""",(count($F$6:$F$30)-XFD" & I & "+1))")
et le XEX
Range("H" & I) = Evaluate("If(iserror(Vlookup(XEX" & _
I & ",'SEL 100m NL H'!$X$5:$Y$34,2,0)),"""",(Vlookup(XEX" & _
I & ",'SEL 100m NL H'!$X$5:$Y$34,2,0)))")
| C'est mon lecteur de news qui a dû péter une durite; | remplace "XEZ" par "A" et "XFD" par "F".
Toi c'est peut être ton lecteur de news... moi, c'est mes yeux ! ;-))
"Daniel.C" a écrit dans le message de groupe de discussion :
C'est mon lecteur de news qui a dû péter une durite; remplace "XEZ" par "A" et "XFD" par "F". Daniel
merci encore à tous
mais question
à quoi correspond le XEZ dans la formule
Range("f" & I) = Evaluate("if(iserror(vlooKup(XEZ" & _ I & ",'50 m NL F'!$X$5:$Y$34,2,0)),"""",(vlookup(XEZ" & _ I & ",'50 m NL F'!$X$5:$Y$34,2,0)))")
le XFD ici
Range("g" & I) = Evaluate("if(iserror(count($F$6:$F$30)-XFD" & _ I & "+1),"""",(count($F$6:$F$30)-XFD" & I & "+1))")
et le XEX
Range("H" & I) = Evaluate("If(iserror(Vlookup(XEX" & _ I & ",'SEL 100m NL H'!$X$5:$Y$34,2,0)),"""",(Vlookup(XEX" & _ I & ",'SEL 100m NL H'!$X$5:$Y$34,2,0)))")
Daniel.C
Non, MesNews utilise du pseudo-codage pour rendre le gras, l'italique et transforme quelques fois des caractères par d'autres. La plupart des lecteurs de news y sont (heureusement) insensibles. Je pensais avoir désactivé cette option... Daniel
C'est mon lecteur de news qui a dû péter une durite; remplace "XEZ" par "A" et "XFD" par "F".
Toi c'est peut être ton lecteur de news... moi, c'est mes yeux ! ;-))
"Daniel.C" a écrit dans le message de groupe de discussion : C'est mon lecteur de news qui a dû péter une durite; remplace "XEZ" par "A" et "XFD" par "F". Daniel
merci encore à tous
mais question
à quoi correspond le XEZ dans la formule
Range("f" & I) = Evaluate("if(iserror(vlooKup(XEZ" & _ I & ",'50 m NL F'!$X$5:$Y$34,2,0)),"""",(vlookup(XEZ" & _ I & ",'50 m NL F'!$X$5:$Y$34,2,0)))")
le XFD ici
Range("g" & I) = Evaluate("if(iserror(count($F$6:$F$30)-XFD" & _ I & "+1),"""",(count($F$6:$F$30)-XFD" & I & "+1))")
et le XEX
Range("H" & I) = Evaluate("If(iserror(Vlookup(XEX" & _ I & ",'SEL 100m NL H'!$X$5:$Y$34,2,0)),"""",(Vlookup(XEX" & _ I & ",'SEL 100m NL H'!$X$5:$Y$34,2,0)))")
Non, MesNews utilise du pseudo-codage pour rendre le gras, l'italique
et transforme quelques fois des caractères par d'autres. La plupart des
lecteurs de news y sont (heureusement) insensibles. Je pensais avoir
désactivé cette option...
Daniel
C'est mon lecteur de news qui a dû péter une durite;
remplace "XEZ" par "A" et "XFD" par "F".
Toi c'est peut être ton lecteur de news... moi, c'est mes yeux !
;-))
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de groupe de
discussion : Oj9ONi9sJHA.5652@TK2MSFTNGP05.phx.gbl...
C'est mon lecteur de news qui a dû péter une durite; remplace "XEZ" par
"A" et "XFD" par "F".
Daniel
merci encore à tous
mais question
à quoi correspond le XEZ dans la formule
Range("f" & I) = Evaluate("if(iserror(vlooKup(XEZ" & _
I & ",'50 m NL F'!$X$5:$Y$34,2,0)),"""",(vlookup(XEZ" & _
I & ",'50 m NL F'!$X$5:$Y$34,2,0)))")
le XFD ici
Range("g" & I) = Evaluate("if(iserror(count($F$6:$F$30)-XFD" & _
I & "+1),"""",(count($F$6:$F$30)-XFD" & I & "+1))")
et le XEX
Range("H" & I) = Evaluate("If(iserror(Vlookup(XEX" & _
I & ",'SEL 100m NL H'!$X$5:$Y$34,2,0)),"""",(Vlookup(XEX" & _
I & ",'SEL 100m NL H'!$X$5:$Y$34,2,0)))")
Non, MesNews utilise du pseudo-codage pour rendre le gras, l'italique et transforme quelques fois des caractères par d'autres. La plupart des lecteurs de news y sont (heureusement) insensibles. Je pensais avoir désactivé cette option... Daniel
C'est mon lecteur de news qui a dû péter une durite; remplace "XEZ" par "A" et "XFD" par "F".
Toi c'est peut être ton lecteur de news... moi, c'est mes yeux ! ;-))
"Daniel.C" a écrit dans le message de groupe de discussion : C'est mon lecteur de news qui a dû péter une durite; remplace "XEZ" par "A" et "XFD" par "F". Daniel
merci encore à tous
mais question
à quoi correspond le XEZ dans la formule
Range("f" & I) = Evaluate("if(iserror(vlooKup(XEZ" & _ I & ",'50 m NL F'!$X$5:$Y$34,2,0)),"""",(vlookup(XEZ" & _ I & ",'50 m NL F'!$X$5:$Y$34,2,0)))")
le XFD ici
Range("g" & I) = Evaluate("if(iserror(count($F$6:$F$30)-XFD" & _ I & "+1),"""",(count($F$6:$F$30)-XFD" & I & "+1))")
et le XEX
Range("H" & I) = Evaluate("If(iserror(Vlookup(XEX" & _ I & ",'SEL 100m NL H'!$X$5:$Y$34,2,0)),"""",(Vlookup(XEX" & _ I & ",'SEL 100m NL H'!$X$5:$Y$34,2,0)))")
MichDenis
Tu es chanceux, moi mes yeux n'ont pas cette option !
;-))
Tu es chanceux, moi mes yeux n'ont pas cette option !