Bonsoir à tous
Dans cette macro la 3ième ligne ( ActiveCell(-39, 1).Select ) me permet de
monté d'une page dans mon écran.
le reste de la macro s'exécute bien comme voulue ,
Première problème: mais lorsque dans mon fichier j'arrive a la première
page ( L2) ca Bug.
Peut t'on mettre une condition ( si cellule
active = L2 fin a la macro ).
Dans une seconde partie de la macro la cellule active (qui est rouge) fait
un trie dans une autre fenêtre.
2 ième problème : Une autre condition peut t'elle être mise sur la cellule
active si elle est rouge.
si pas rouge message box "placer le curseur sur
# rouge".
Ci pas possible par la couleur les cellule rouge sont sur les multiple de 42
(L2,L42,L82...etc pour 150page).
Merci
J'exécute cette macro avec un bouton.
Sub Aig_Haut()
'
' Macro recorded 2004/06/16 by pellet15
ActiveWindow.LargeScroll up:=1
ActiveCell(-39, 1).Select
Dim leCrit
ActiveCell(1, 1).Select
leCrit = ActiveCell.Value
Windows("Insp_démo.xls:3").Activate
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:=leCrit, Operator:=xlAnd
Range("J1").Select
Selection.AutoFilter Field:=10, Criteria1:="="
Range("A1").Select
Windows("Insp_démo.xls:1").Activate
ActiveCell(1, 1).Select
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Philippe.R
Bonjour Daniel, Pour la première question tu peux utiliser :
if activecell.address=l2 then exit sub
ou bien :
on error resume next
pour la seconde question le test s'écrira par exemple :
if activecell.interior.color=vbred then -- Amicales Salutations Retirer A_S_ pour répondre. XL 97 / 2000 / 2002
"Daniel Pelletier" a écrit dans le message de news:
Bonsoir à tous Dans cette macro la 3ième ligne ( ActiveCell(-39, 1).Select ) me permet de monté d'une page dans mon écran. le reste de la macro s'exécute bien comme voulue , Première problème: mais lorsque dans mon fichier j'arrive a la première page ( L2) ca Bug. Peut t'on mettre une condition ( si cellule active = L2 fin a la macro ).
Dans une seconde partie de la macro la cellule active (qui est rouge) fait un trie dans une autre fenêtre.
2 ième problème : Une autre condition peut t'elle être mise sur la cellule active si elle est rouge. si pas rouge message box "placer le curseur sur # rouge". Ci pas possible par la couleur les cellule rouge sont sur les multiple de 42 (L2,L42,L82...etc pour 150page).
Merci J'exécute cette macro avec un bouton. Sub Aig_Haut() ' ' Macro recorded 2004/06/16 by pellet15 ActiveWindow.LargeScroll up:=1 ActiveCell(-39, 1).Select Dim leCrit ActiveCell(1, 1).Select leCrit = ActiveCell.Value Windows("Insp_démo.xls:3").Activate Selection.AutoFilter Selection.AutoFilter Field:=2, Criteria1:=leCrit, Operator:=xlAnd Range("J1").Select Selection.AutoFilter Field:, Criteria1:="=" Range("A1").Select Windows("Insp_démo.xls:1").Activate ActiveCell(1, 1).Select End Sub
Bonjour Daniel,
Pour la première question tu peux utiliser :
if activecell.address=l2 then exit sub
ou bien :
on error resume next
pour la seconde question le test s'écrira par exemple :
if activecell.interior.color=vbred then
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
"Daniel Pelletier" <pellet15@videotron.ca> a écrit dans le message de
news:eoB7jDLXEHA.3120@TK2MSFTNGP12.phx.gbl...
Bonsoir à tous
Dans cette macro la 3ième ligne ( ActiveCell(-39, 1).Select ) me permet de
monté d'une page dans mon écran.
le reste de la macro s'exécute bien comme voulue ,
Première problème: mais lorsque dans mon fichier j'arrive a la première
page ( L2) ca Bug.
Peut t'on mettre une condition ( si cellule
active = L2 fin a la macro ).
Dans une seconde partie de la macro la cellule active (qui est rouge) fait
un trie dans une autre fenêtre.
2 ième problème : Une autre condition peut t'elle être mise sur la cellule
active si elle est rouge.
si pas rouge message box "placer le curseur sur
# rouge".
Ci pas possible par la couleur les cellule rouge sont sur les multiple de 42
(L2,L42,L82...etc pour 150page).
Merci
J'exécute cette macro avec un bouton.
Sub Aig_Haut()
'
' Macro recorded 2004/06/16 by pellet15
ActiveWindow.LargeScroll up:=1
ActiveCell(-39, 1).Select
Dim leCrit
ActiveCell(1, 1).Select
leCrit = ActiveCell.Value
Windows("Insp_démo.xls:3").Activate
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:=leCrit, Operator:=xlAnd
Range("J1").Select
Selection.AutoFilter Field:, Criteria1:="="
Range("A1").Select
Windows("Insp_démo.xls:1").Activate
ActiveCell(1, 1).Select
End Sub
Bonjour Daniel, Pour la première question tu peux utiliser :
if activecell.address=l2 then exit sub
ou bien :
on error resume next
pour la seconde question le test s'écrira par exemple :
if activecell.interior.color=vbred then -- Amicales Salutations Retirer A_S_ pour répondre. XL 97 / 2000 / 2002
"Daniel Pelletier" a écrit dans le message de news:
Bonsoir à tous Dans cette macro la 3ième ligne ( ActiveCell(-39, 1).Select ) me permet de monté d'une page dans mon écran. le reste de la macro s'exécute bien comme voulue , Première problème: mais lorsque dans mon fichier j'arrive a la première page ( L2) ca Bug. Peut t'on mettre une condition ( si cellule active = L2 fin a la macro ).
Dans une seconde partie de la macro la cellule active (qui est rouge) fait un trie dans une autre fenêtre.
2 ième problème : Une autre condition peut t'elle être mise sur la cellule active si elle est rouge. si pas rouge message box "placer le curseur sur # rouge". Ci pas possible par la couleur les cellule rouge sont sur les multiple de 42 (L2,L42,L82...etc pour 150page).
Merci J'exécute cette macro avec un bouton. Sub Aig_Haut() ' ' Macro recorded 2004/06/16 by pellet15 ActiveWindow.LargeScroll up:=1 ActiveCell(-39, 1).Select Dim leCrit ActiveCell(1, 1).Select leCrit = ActiveCell.Value Windows("Insp_démo.xls:3").Activate Selection.AutoFilter Selection.AutoFilter Field:=2, Criteria1:=leCrit, Operator:=xlAnd Range("J1").Select Selection.AutoFilter Field:, Criteria1:="=" Range("A1").Select Windows("Insp_démo.xls:1").Activate ActiveCell(1, 1).Select End Sub
