Re bonsoir,
suite à une requête précédente, j'arrive à sélectionner la cellule active
dans une colonne. je souhaiterais désormais, lancer automatiquement un
"ActiveWindow.SmallScroll" de manière à ce la ligne de la cellule active
soit sous la "ligne n°4" sous laquelle j'ai figée le volet
la macro ci-dessous ne fonctionne pas comme je le souhaiterais
merci
Sub chercheaujourdui()
Range("b5").Select
Range("B:B").Find(what:=Date, LookIn:=xlFormulas).Select
Noligne = ActiveCell.Row
ActiveWindow.SmallScroll down:=Noligne - 5
end sub
Re bonsoir, suite à une requête précédente, j'arrive à sélectionner la ce llule active dans une colonne. je souhaiterais désormais, lancer automatiquement un "ActiveWindow.SmallScroll" de manière à ce la ligne de la cellule act ive soit sous la "ligne n°4" sous laquelle j'ai figée le volet la macro ci-dessous ne fonctionne pas comme je le souhaiterais merci Sub chercheaujourdui() Range("b5").Select Range("B:B").Find(what:Úte, LookIn:=xlFormulas).Select Noligne = ActiveCell.Row
ActiveWindow.SmallScroll down:=Noligne - 5 end sub
On 24 jan, 23:20, "oliver" <oliv...@free.fr> wrote:
Re bonsoir,
suite à une requête précédente, j'arrive à sélectionner la ce llule active
dans une colonne. je souhaiterais désormais, lancer automatiquement un
"ActiveWindow.SmallScroll" de manière à ce la ligne de la cellule act ive
soit sous la "ligne n°4" sous laquelle j'ai figée le volet
la macro ci-dessous ne fonctionne pas comme je le souhaiterais
merci
Sub chercheaujourdui()
Range("b5").Select
Range("B:B").Find(what:=Date, LookIn:=xlFormulas).Select
Noligne = ActiveCell.Row
ActiveWindow.SmallScroll down:=Noligne - 5
end sub
Re bonsoir, suite à une requête précédente, j'arrive à sélectionner la ce llule active dans une colonne. je souhaiterais désormais, lancer automatiquement un "ActiveWindow.SmallScroll" de manière à ce la ligne de la cellule act ive soit sous la "ligne n°4" sous laquelle j'ai figée le volet la macro ci-dessous ne fonctionne pas comme je le souhaiterais merci Sub chercheaujourdui() Range("b5").Select Range("B:B").Find(what:Úte, LookIn:=xlFormulas).Select Noligne = ActiveCell.Row
ActiveWindow.SmallScroll down:=Noligne - 5 end sub
isabelle
bonjour Olivier,
Sub chercheaujourdui() X = Range("B:B").Find(what:Úte, LookIn:=xlFormulas).Row Application.Goto Reference:=Range("A" & X), Scroll:=True end sub
isabelle
Re bonsoir, suite à une requête précédente, j'arrive à sélectionner la cellule active dans une colonne. je souhaiterais désormais, lancer automatiquement un "ActiveWindow.SmallScroll" de manière à ce la ligne de la cellule active soit sous la "ligne n°4" sous laquelle j'ai figée le volet la macro ci-dessous ne fonctionne pas comme je le souhaiterais merci Sub chercheaujourdui() Range("b5").Select Range("B:B").Find(what:Úte, LookIn:=xlFormulas).Select Noligne = ActiveCell.Row
ActiveWindow.SmallScroll down:=Noligne - 5 end sub
bonjour Olivier,
Sub chercheaujourdui()
X = Range("B:B").Find(what:Úte, LookIn:=xlFormulas).Row
Application.Goto Reference:=Range("A" & X), Scroll:=True
end sub
isabelle
Re bonsoir,
suite à une requête précédente, j'arrive à sélectionner la cellule active
dans une colonne. je souhaiterais désormais, lancer automatiquement un
"ActiveWindow.SmallScroll" de manière à ce la ligne de la cellule active
soit sous la "ligne n°4" sous laquelle j'ai figée le volet
la macro ci-dessous ne fonctionne pas comme je le souhaiterais
merci
Sub chercheaujourdui()
Range("b5").Select
Range("B:B").Find(what:Úte, LookIn:=xlFormulas).Select
Noligne = ActiveCell.Row
ActiveWindow.SmallScroll down:=Noligne - 5
end sub
Sub chercheaujourdui() X = Range("B:B").Find(what:Úte, LookIn:=xlFormulas).Row Application.Goto Reference:=Range("A" & X), Scroll:=True end sub
isabelle
Re bonsoir, suite à une requête précédente, j'arrive à sélectionner la cellule active dans une colonne. je souhaiterais désormais, lancer automatiquement un "ActiveWindow.SmallScroll" de manière à ce la ligne de la cellule active soit sous la "ligne n°4" sous laquelle j'ai figée le volet la macro ci-dessous ne fonctionne pas comme je le souhaiterais merci Sub chercheaujourdui() Range("b5").Select Range("B:B").Find(what:Úte, LookIn:=xlFormulas).Select Noligne = ActiveCell.Row
ActiveWindow.SmallScroll down:=Noligne - 5 end sub
