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
Daniel Pelletier
Bonsoir J'ai oublier aussi je voudrait que la macro s'exécute seulement ci la cellule active est une police rouge (ActiveCell.Font.ColorIndex = 3). avec msgbox "Changer de cellule pour la cellule Rouge"
Merci
"Daniel Pelletier" a écrit dans le message de news:
Bonsoir à tous Dans cette macroje veut monter dans la page , cela mais quand j'arrive a la première page ci je l'exécute la macros Erreur
Que faire?
Sub Aig_Haut() ' ActiveWindow.LargeScroll up:=1 ActiveCell(-39, 1).Select Dim leCrit ActiveCell(1, 1).Select leCrit = ActiveCell.Value Windows("Insp_St-Hyacinthe.xls:3").Activate Selection.AutoFilter Selection.AutoFilter Selection.AutoFilter Field:=2, Criteria1:=leCrit, Operator:=xlAnd Range("J1").Select Selection.AutoFilter Field:, Criteria1:="=" Range("A1").Select Windows("Insp_St-Hyacinthe.xls:1").Activate ActiveCell(1, 1).Select End Sub
Bonsoir
J'ai oublier aussi je voudrait que la macro s'exécute seulement ci la
cellule active est une police rouge (ActiveCell.Font.ColorIndex = 3).
avec msgbox "Changer de cellule pour la cellule Rouge"
Merci
"Daniel Pelletier" <pellet15@videotron.ca> a écrit dans le message de
news:OZXEv9nVEHA.1036@TK2MSFTNGP12.phx.gbl...
Bonsoir à tous
Dans cette macroje veut monter dans la page ,
cela mais quand j'arrive a la première page ci je l'exécute la macros
Erreur
Que faire?
Sub Aig_Haut()
'
ActiveWindow.LargeScroll up:=1
ActiveCell(-39, 1).Select
Dim leCrit
ActiveCell(1, 1).Select
leCrit = ActiveCell.Value
Windows("Insp_St-Hyacinthe.xls:3").Activate
Selection.AutoFilter
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:=leCrit, Operator:=xlAnd
Range("J1").Select
Selection.AutoFilter Field:, Criteria1:="="
Range("A1").Select
Windows("Insp_St-Hyacinthe.xls:1").Activate
ActiveCell(1, 1).Select
End Sub
Bonsoir J'ai oublier aussi je voudrait que la macro s'exécute seulement ci la cellule active est une police rouge (ActiveCell.Font.ColorIndex = 3). avec msgbox "Changer de cellule pour la cellule Rouge"
Merci
"Daniel Pelletier" a écrit dans le message de news:
Bonsoir à tous Dans cette macroje veut monter dans la page , cela mais quand j'arrive a la première page ci je l'exécute la macros Erreur
Que faire?
Sub Aig_Haut() ' ActiveWindow.LargeScroll up:=1 ActiveCell(-39, 1).Select Dim leCrit ActiveCell(1, 1).Select leCrit = ActiveCell.Value Windows("Insp_St-Hyacinthe.xls:3").Activate Selection.AutoFilter Selection.AutoFilter Selection.AutoFilter Field:=2, Criteria1:=leCrit, Operator:=xlAnd Range("J1").Select Selection.AutoFilter Field:, Criteria1:="=" Range("A1").Select Windows("Insp_St-Hyacinthe.xls:1").Activate ActiveCell(1, 1).Select End Sub
