le code suivant cachera toutes les lignes précédant la date du jour
Dim c As Object With Worksheets("RDV") Set c = .[A:A].Find(Date) .Rows("5:" & c.Row - 1).EntireRow.Hidden = True .Range(c.Address).Select End With
a mettre dans Private Sub Workbook_Open() si tu veux que ce soit activé automatiquement à l'ouverture du classeur.
Sycora formulated the question :
http://cjoint.com/?CDDqkak6vFR
Bonjour Comment faire pour que demain mardi se retrouve en première ligne ? Qu'il passe automatiquement à la place de lundi ? Merci
-- h2so4 ca PAN pique DORA .
h2so4
bonsoir
le code suivant positionnera la date du jour en "première ligne"
Dim c As Object
Set c = Worksheets("RDV").[A:A].Find(Date) Worksheets("RDV").Activate With ActiveWindow.VisibleRange ActiveWindow.SmallScroll down:=c.Row - .Cells(1).Row End With Worksheets("RDV").Range(c.Address).Select
A mettre dans Private sub workbook_open() pour automatiser le positionnement en fonction de la date du jour à l'ouverture du classeur.
h2so4
Sycora laid this down on his screen :
http://cjoint.com/?CDDqkak6vFR
Bonjour Comment faire pour que demain mardi se retrouve en première ligne ? Qu'il passe automatiquement à la place de lundi ? Merci
-- h2so4 ca PAN pique DORA .
bonsoir
le code suivant positionnera la date du jour en "première ligne"
Dim c As Object
Set c = Worksheets("RDV").[A:A].Find(Date)
Worksheets("RDV").Activate
With ActiveWindow.VisibleRange
ActiveWindow.SmallScroll down:=c.Row - .Cells(1).Row
End With
Worksheets("RDV").Range(c.Address).Select
A mettre dans Private sub workbook_open() pour automatiser le
positionnement en fonction de la date du jour à l'ouverture du
classeur.
h2so4
Sycora laid this down on his screen :
http://cjoint.com/?CDDqkak6vFR
Bonjour
Comment faire pour que demain mardi se retrouve en première ligne ? Qu'il
passe automatiquement à la place de lundi ?
Merci
le code suivant positionnera la date du jour en "première ligne"
Dim c As Object
Set c = Worksheets("RDV").[A:A].Find(Date) Worksheets("RDV").Activate With ActiveWindow.VisibleRange ActiveWindow.SmallScroll down:=c.Row - .Cells(1).Row End With Worksheets("RDV").Range(c.Address).Select
A mettre dans Private sub workbook_open() pour automatiser le positionnement en fonction de la date du jour à l'ouverture du classeur.
h2so4
Sycora laid this down on his screen :
http://cjoint.com/?CDDqkak6vFR
Bonjour Comment faire pour que demain mardi se retrouve en première ligne ? Qu'il passe automatiquement à la place de lundi ? Merci
-- h2so4 ca PAN pique DORA .
isabelle
bonjour,
en ligne 1 =AUJOURDHUI() en ligne2 ¡+1
isabelle
Le 2013-04-29 10:14, Sycora a écrit :
http://cjoint.com/?CDDqkak6vFR
Bonjour Comment faire pour que demain mardi se retrouve en première ligne ? Qu'il passe automatiquement à la place de lundi ? Merci
bonjour,
en ligne 1
=AUJOURDHUI()
en ligne2
¡+1
isabelle
Le 2013-04-29 10:14, Sycora a écrit :
http://cjoint.com/?CDDqkak6vFR
Bonjour
Comment faire pour que demain mardi se retrouve en première ligne ? Qu'il
passe automatiquement à la place de lundi ?
Merci
voui et la question si prete très bien;-) isabelle
Le 2013-04-30 04:27, h2so4 a écrit :
comme quoi on peut avoir une interprétation très différente de ce qui demandé ;o) !
isabelle has brought this to us :
bonjour,
en ligne 1 =AUJOURDHUI() en ligne2 ¡+1
isabelle
Le 2013-04-29 10:14, Sycora a écrit :
http://cjoint.com/?CDDqkak6vFR
Bonjour Comment faire pour que demain mardi se retrouve en première ligne ? Qu'il passe automatiquement à la place de lundi ? Merci
Sycora
Bonjour Merci pour vos réponses, mais étant complètement nul pour les macros, je n'arrive pas a la mettre en place ;-(( h2so4 s'il te plait pourrais tu me guider dans la marche à suivre ? Désolé Merci
"h2so4" a écrit dans le message de news: klmo2c$juj$
bonsoir
le code suivant positionnera la date du jour en "première ligne"
Dim c As Object
Set c = Worksheets("RDV").[A:A].Find(Date) Worksheets("RDV").Activate With ActiveWindow.VisibleRange ActiveWindow.SmallScroll down:=c.Row - .Cells(1).Row End With Worksheets("RDV").Range(c.Address).Select
A mettre dans Private sub workbook_open() pour automatiser le positionnement en fonction de la date du jour à l'ouverture du classeur.
h2so4
Sycora laid this down on his screen :
http://cjoint.com/?CDDqkak6vFR
Bonjour Comment faire pour que demain mardi se retrouve en première ligne ? Qu'il passe automatiquement à la place de lundi ? Merci
-- h2so4 ca PAN pique DORA .
Bonjour
Merci pour vos réponses, mais étant complètement nul pour les macros, je
n'arrive pas a la mettre en place ;-((
h2so4 s'il te plait pourrais tu me guider dans la marche à suivre ?
Désolé
Merci
"h2so4" <H2so4@capique.be> a écrit dans le message de news:
klmo2c$juj$1@speranza.aioe.org...
bonsoir
le code suivant positionnera la date du jour en "première ligne"
Dim c As Object
Set c = Worksheets("RDV").[A:A].Find(Date)
Worksheets("RDV").Activate
With ActiveWindow.VisibleRange
ActiveWindow.SmallScroll down:=c.Row - .Cells(1).Row
End With
Worksheets("RDV").Range(c.Address).Select
A mettre dans Private sub workbook_open() pour automatiser le
positionnement en fonction de la date du jour à l'ouverture du classeur.
h2so4
Sycora laid this down on his screen :
http://cjoint.com/?CDDqkak6vFR
Bonjour
Comment faire pour que demain mardi se retrouve en première ligne ? Qu'il
passe automatiquement à la place de lundi ?
Merci
Bonjour Merci pour vos réponses, mais étant complètement nul pour les macros, je n'arrive pas a la mettre en place ;-(( h2so4 s'il te plait pourrais tu me guider dans la marche à suivre ? Désolé Merci
"h2so4" a écrit dans le message de news: klmo2c$juj$
bonsoir
le code suivant positionnera la date du jour en "première ligne"
Dim c As Object
Set c = Worksheets("RDV").[A:A].Find(Date) Worksheets("RDV").Activate With ActiveWindow.VisibleRange ActiveWindow.SmallScroll down:=c.Row - .Cells(1).Row End With Worksheets("RDV").Range(c.Address).Select
A mettre dans Private sub workbook_open() pour automatiser le positionnement en fonction de la date du jour à l'ouverture du classeur.
h2so4
Sycora laid this down on his screen :
http://cjoint.com/?CDDqkak6vFR
Bonjour Comment faire pour que demain mardi se retrouve en première ligne ? Qu'il passe automatiquement à la place de lundi ? Merci
-- h2so4 ca PAN pique DORA .
h2so4
Bonjour,
pour mettre en place
1) copier le code qui se trouve entre les balises 'début et 'fin
'début Private Sub Workbook_Open() Dim c As Object
Set c = Worksheets("RDV").[A:A].Find(Date) Worksheets("RDV").Activate With ActiveWindow.VisibleRange ActiveWindow.SmallScroll down:=c.Row - .Cells(1).Row End With Worksheets("RDV").Range(c.Address).Select
End Sub 'fin
2) appuyer sur alt+F11, la fenêtre developpeur VBA s'affiche 3) appuyer sur ctrl+r, une fenêtre avec la liste des différentes feuilles s'affiche -> cliquer sur thisworkbook (je ne connais pas l'équivalent en français, mais ce devrait être la dernière)
4) coller le code 5) fermer la fenêtre développeur VBA 6) sauver le classeur 7) rouvrir le classeur, le classeur devrait s'ouvrir en positionnant la ligne avec la date du jour en "première ligne" .
bonne chance.
Sycora submitted this idea :
Bonjour Merci pour vos réponses, mais étant complètement nul pour les macros, je n'arrive pas a la mettre en place ;-(( h2so4 s'il te plait pourrais tu me guider dans la marche à suivre ? Désolé Merci
"h2so4" a écrit dans le message de news: klmo2c$juj$
bonsoir
le code suivant positionnera la date du jour en "première ligne"
Dim c As Object
Set c = Worksheets("RDV").[A:A].Find(Date) Worksheets("RDV").Activate With ActiveWindow.VisibleRange ActiveWindow.SmallScroll down:=c.Row - .Cells(1).Row End With Worksheets("RDV").Range(c.Address).Select
A mettre dans Private sub workbook_open() pour automatiser le positionnement en fonction de la date du jour à l'ouverture du classeur.
h2so4
Sycora laid this down on his screen :
http://cjoint.com/?CDDqkak6vFR
Bonjour Comment faire pour que demain mardi se retrouve en première ligne ? Qu'il passe automatiquement à la place de lundi ? Merci
-- h2so4 ca PAN pique DORA .
-- h2so4 ca PAN pique DORA .
Bonjour,
pour mettre en place
1) copier le code qui se trouve entre les balises 'début et 'fin
'début
Private Sub Workbook_Open()
Dim c As Object
Set c = Worksheets("RDV").[A:A].Find(Date)
Worksheets("RDV").Activate
With ActiveWindow.VisibleRange
ActiveWindow.SmallScroll down:=c.Row - .Cells(1).Row
End With
Worksheets("RDV").Range(c.Address).Select
End Sub
'fin
2) appuyer sur alt+F11, la fenêtre developpeur VBA s'affiche
3) appuyer sur ctrl+r, une fenêtre avec la liste des différentes
feuilles s'affiche -> cliquer sur thisworkbook (je ne connais pas
l'équivalent en français, mais ce devrait être la dernière)
4) coller le code
5) fermer la fenêtre développeur VBA
6) sauver le classeur
7) rouvrir le classeur, le classeur devrait s'ouvrir en positionnant la
ligne avec la date du jour en "première ligne" .
bonne chance.
Sycora submitted this idea :
Bonjour
Merci pour vos réponses, mais étant complètement nul pour les macros, je
n'arrive pas a la mettre en place ;-((
h2so4 s'il te plait pourrais tu me guider dans la marche à suivre ?
Désolé
Merci
"h2so4" <H2so4@capique.be> a écrit dans le message de news:
klmo2c$juj$1@speranza.aioe.org...
bonsoir
le code suivant positionnera la date du jour en "première ligne"
Dim c As Object
Set c = Worksheets("RDV").[A:A].Find(Date)
Worksheets("RDV").Activate
With ActiveWindow.VisibleRange
ActiveWindow.SmallScroll down:=c.Row - .Cells(1).Row
End With
Worksheets("RDV").Range(c.Address).Select
A mettre dans Private sub workbook_open() pour automatiser le
positionnement en fonction de la date du jour à l'ouverture du classeur.
h2so4
Sycora laid this down on his screen :
http://cjoint.com/?CDDqkak6vFR
Bonjour
Comment faire pour que demain mardi se retrouve en première ligne ? Qu'il
passe automatiquement à la place de lundi ?
Merci
1) copier le code qui se trouve entre les balises 'début et 'fin
'début Private Sub Workbook_Open() Dim c As Object
Set c = Worksheets("RDV").[A:A].Find(Date) Worksheets("RDV").Activate With ActiveWindow.VisibleRange ActiveWindow.SmallScroll down:=c.Row - .Cells(1).Row End With Worksheets("RDV").Range(c.Address).Select
End Sub 'fin
2) appuyer sur alt+F11, la fenêtre developpeur VBA s'affiche 3) appuyer sur ctrl+r, une fenêtre avec la liste des différentes feuilles s'affiche -> cliquer sur thisworkbook (je ne connais pas l'équivalent en français, mais ce devrait être la dernière)
4) coller le code 5) fermer la fenêtre développeur VBA 6) sauver le classeur 7) rouvrir le classeur, le classeur devrait s'ouvrir en positionnant la ligne avec la date du jour en "première ligne" .
bonne chance.
Sycora submitted this idea :
Bonjour Merci pour vos réponses, mais étant complètement nul pour les macros, je n'arrive pas a la mettre en place ;-(( h2so4 s'il te plait pourrais tu me guider dans la marche à suivre ? Désolé Merci
"h2so4" a écrit dans le message de news: klmo2c$juj$
bonsoir
le code suivant positionnera la date du jour en "première ligne"
Dim c As Object
Set c = Worksheets("RDV").[A:A].Find(Date) Worksheets("RDV").Activate With ActiveWindow.VisibleRange ActiveWindow.SmallScroll down:=c.Row - .Cells(1).Row End With Worksheets("RDV").Range(c.Address).Select
A mettre dans Private sub workbook_open() pour automatiser le positionnement en fonction de la date du jour à l'ouverture du classeur.
h2so4
Sycora laid this down on his screen :
http://cjoint.com/?CDDqkak6vFR
Bonjour Comment faire pour que demain mardi se retrouve en première ligne ? Qu'il passe automatiquement à la place de lundi ? Merci
-- h2so4 ca PAN pique DORA .
-- h2so4 ca PAN pique DORA .
Sycora
J'ai suivi la procédure, mais à la réouverture du classeur voila ce qui m'arrive :-(
http://dl.free.fr/gqpgEhsT4
"h2so4" a écrit dans le message de news: klqmvo$p52$
Bonjour,
pour mettre en place
1) copier le code qui se trouve entre les balises 'début et 'fin
'début Private Sub Workbook_Open() Dim c As Object
Set c = Worksheets("RDV").[A:A].Find(Date) Worksheets("RDV").Activate With ActiveWindow.VisibleRange ActiveWindow.SmallScroll down:=c.Row - .Cells(1).Row End With Worksheets("RDV").Range(c.Address).Select
End Sub 'fin
2) appuyer sur alt+F11, la fenêtre developpeur VBA s'affiche 3) appuyer sur ctrl+r, une fenêtre avec la liste des différentes feuilles s'affiche -> cliquer sur thisworkbook (je ne connais pas l'équivalent en français, mais ce devrait être la dernière)
4) coller le code 5) fermer la fenêtre développeur VBA 6) sauver le classeur 7) rouvrir le classeur, le classeur devrait s'ouvrir en positionnant la ligne avec la date du jour en "première ligne" .
bonne chance.
Sycora submitted this idea :
Bonjour Merci pour vos réponses, mais étant complètement nul pour les macros, je n'arrive pas a la mettre en place ;-(( h2so4 s'il te plait pourrais tu me guider dans la marche à suivre ? Désolé Merci
"h2so4" a écrit dans le message de news: klmo2c$juj$
bonsoir
le code suivant positionnera la date du jour en "première ligne"
Dim c As Object
Set c = Worksheets("RDV").[A:A].Find(Date) Worksheets("RDV").Activate With ActiveWindow.VisibleRange ActiveWindow.SmallScroll down:=c.Row - .Cells(1).Row End With Worksheets("RDV").Range(c.Address).Select
A mettre dans Private sub workbook_open() pour automatiser le positionnement en fonction de la date du jour à l'ouverture du classeur.
h2so4
Sycora laid this down on his screen :
http://cjoint.com/?CDDqkak6vFR
Bonjour Comment faire pour que demain mardi se retrouve en première ligne ? Qu'il passe automatiquement à la place de lundi ? Merci
-- h2so4 ca PAN pique DORA .
-- h2so4 ca PAN pique DORA .
J'ai suivi la procédure, mais à la réouverture du classeur voila ce qui
m'arrive :-(
http://dl.free.fr/gqpgEhsT4
"h2so4" <H2so4@capique.be> a écrit dans le message de news:
klqmvo$p52$1@speranza.aioe.org...
Bonjour,
pour mettre en place
1) copier le code qui se trouve entre les balises 'début et 'fin
'début
Private Sub Workbook_Open()
Dim c As Object
Set c = Worksheets("RDV").[A:A].Find(Date)
Worksheets("RDV").Activate
With ActiveWindow.VisibleRange
ActiveWindow.SmallScroll down:=c.Row - .Cells(1).Row
End With
Worksheets("RDV").Range(c.Address).Select
End Sub
'fin
2) appuyer sur alt+F11, la fenêtre developpeur VBA s'affiche
3) appuyer sur ctrl+r, une fenêtre avec la liste des différentes feuilles
s'affiche -> cliquer sur thisworkbook (je ne connais pas l'équivalent en
français, mais ce devrait être la dernière)
4) coller le code
5) fermer la fenêtre développeur VBA
6) sauver le classeur
7) rouvrir le classeur, le classeur devrait s'ouvrir en positionnant la
ligne avec la date du jour en "première ligne" .
bonne chance.
Sycora submitted this idea :
Bonjour
Merci pour vos réponses, mais étant complètement nul pour les macros, je
n'arrive pas a la mettre en place ;-((
h2so4 s'il te plait pourrais tu me guider dans la marche à suivre ?
Désolé
Merci
"h2so4" <H2so4@capique.be> a écrit dans le message de news:
klmo2c$juj$1@speranza.aioe.org...
bonsoir
le code suivant positionnera la date du jour en "première ligne"
Dim c As Object
Set c = Worksheets("RDV").[A:A].Find(Date)
Worksheets("RDV").Activate
With ActiveWindow.VisibleRange
ActiveWindow.SmallScroll down:=c.Row - .Cells(1).Row
End With
Worksheets("RDV").Range(c.Address).Select
A mettre dans Private sub workbook_open() pour automatiser le
positionnement en fonction de la date du jour à l'ouverture du classeur.
h2so4
Sycora laid this down on his screen :
http://cjoint.com/?CDDqkak6vFR
Bonjour
Comment faire pour que demain mardi se retrouve en première ligne ?
Qu'il passe automatiquement à la place de lundi ?
Merci
J'ai suivi la procédure, mais à la réouverture du classeur voila ce qui m'arrive :-(
http://dl.free.fr/gqpgEhsT4
"h2so4" a écrit dans le message de news: klqmvo$p52$
Bonjour,
pour mettre en place
1) copier le code qui se trouve entre les balises 'début et 'fin
'début Private Sub Workbook_Open() Dim c As Object
Set c = Worksheets("RDV").[A:A].Find(Date) Worksheets("RDV").Activate With ActiveWindow.VisibleRange ActiveWindow.SmallScroll down:=c.Row - .Cells(1).Row End With Worksheets("RDV").Range(c.Address).Select
End Sub 'fin
2) appuyer sur alt+F11, la fenêtre developpeur VBA s'affiche 3) appuyer sur ctrl+r, une fenêtre avec la liste des différentes feuilles s'affiche -> cliquer sur thisworkbook (je ne connais pas l'équivalent en français, mais ce devrait être la dernière)
4) coller le code 5) fermer la fenêtre développeur VBA 6) sauver le classeur 7) rouvrir le classeur, le classeur devrait s'ouvrir en positionnant la ligne avec la date du jour en "première ligne" .
bonne chance.
Sycora submitted this idea :
Bonjour Merci pour vos réponses, mais étant complètement nul pour les macros, je n'arrive pas a la mettre en place ;-(( h2so4 s'il te plait pourrais tu me guider dans la marche à suivre ? Désolé Merci
"h2so4" a écrit dans le message de news: klmo2c$juj$
bonsoir
le code suivant positionnera la date du jour en "première ligne"
Dim c As Object
Set c = Worksheets("RDV").[A:A].Find(Date) Worksheets("RDV").Activate With ActiveWindow.VisibleRange ActiveWindow.SmallScroll down:=c.Row - .Cells(1).Row End With Worksheets("RDV").Range(c.Address).Select
A mettre dans Private sub workbook_open() pour automatiser le positionnement en fonction de la date du jour à l'ouverture du classeur.
h2so4
Sycora laid this down on his screen :
http://cjoint.com/?CDDqkak6vFR
Bonjour Comment faire pour que demain mardi se retrouve en première ligne ? Qu'il passe automatiquement à la place de lundi ? Merci
-- h2so4 ca PAN pique DORA .
-- h2so4 ca PAN pique DORA .
h2so4
Bonjour,
La date du jour n'est sans doute pas présente dans ta feuille RDV
remplace le code par le suivant
'début Private Sub Workbook_Open() Dim c As Object Set c = Worksheets("RDV").[A:A].Find(Date) If Not (c Is Nothing) Then Worksheets("RDV").Activate With ActiveWindow.VisibleRange ActiveWindow.SmallScroll down:=c.Row - .Cells(1).Row End With Worksheets("RDV").Range(c.Address).Select Else MsgBox "date du jour non trouvée" End If End Sub 'fin
Sycora expressed precisely :
J'ai suivi la procédure, mais à la réouverture du classeur voila ce qui m'arrive :-(
http://dl.free.fr/gqpgEhsT4
-- h2so4 ca PAN pique DORA .
Bonjour,
La date du jour n'est sans doute pas présente dans ta feuille RDV
remplace le code par le suivant
'début
Private Sub Workbook_Open()
Dim c As Object
Set c = Worksheets("RDV").[A:A].Find(Date)
If Not (c Is Nothing) Then
Worksheets("RDV").Activate
With ActiveWindow.VisibleRange
ActiveWindow.SmallScroll down:=c.Row - .Cells(1).Row
End With
Worksheets("RDV").Range(c.Address).Select
Else
MsgBox "date du jour non trouvée"
End If
End Sub
'fin
Sycora expressed precisely :
J'ai suivi la procédure, mais à la réouverture du classeur voila ce qui
m'arrive :-(
La date du jour n'est sans doute pas présente dans ta feuille RDV
remplace le code par le suivant
'début Private Sub Workbook_Open() Dim c As Object Set c = Worksheets("RDV").[A:A].Find(Date) If Not (c Is Nothing) Then Worksheets("RDV").Activate With ActiveWindow.VisibleRange ActiveWindow.SmallScroll down:=c.Row - .Cells(1).Row End With Worksheets("RDV").Range(c.Address).Select Else MsgBox "date du jour non trouvée" End If End Sub 'fin
Sycora expressed precisely :
J'ai suivi la procédure, mais à la réouverture du classeur voila ce qui m'arrive :-(
http://dl.free.fr/gqpgEhsT4
-- h2so4 ca PAN pique DORA .
h2so4
h2so4 presented the following explanation : Bonjour,
La date du jour n'est sans doute pas présente dans ta feuille RDV
remplace le code par le suivant
'début Private Sub Workbook_Open() Dim c As Object Set c = Worksheets("RDV").[B:B].Find(Date) If Not (c Is Nothing) Then Worksheets("RDV").Activate With ActiveWindow.VisibleRange ActiveWindow.SmallScroll down:=c.Row - .Cells(1).Row End With Worksheets("RDV").Range(c.Address).Select Else MsgBox "date du jour non trouvée" End If End Sub 'fin
Sycora expressed precisely :
J'ai suivi la procédure, mais à la réouverture du classeur voila ce qui m'arrive :-(
http://dl.free.fr/gqpgEhsT4
-- h2so4 ca PAN pique DORA .
h2so4 presented the following explanation :
Bonjour,
La date du jour n'est sans doute pas présente dans ta feuille RDV
remplace le code par le suivant
'début
Private Sub Workbook_Open()
Dim c As Object
Set c = Worksheets("RDV").[B:B].Find(Date)
If Not (c Is Nothing) Then
Worksheets("RDV").Activate
With ActiveWindow.VisibleRange
ActiveWindow.SmallScroll down:=c.Row - .Cells(1).Row
End With
Worksheets("RDV").Range(c.Address).Select
Else
MsgBox "date du jour non trouvée"
End If
End Sub
'fin
Sycora expressed precisely :
J'ai suivi la procédure, mais à la réouverture du classeur voila ce qui
m'arrive :-(
h2so4 presented the following explanation : Bonjour,
La date du jour n'est sans doute pas présente dans ta feuille RDV
remplace le code par le suivant
'début Private Sub Workbook_Open() Dim c As Object Set c = Worksheets("RDV").[B:B].Find(Date) If Not (c Is Nothing) Then Worksheets("RDV").Activate With ActiveWindow.VisibleRange ActiveWindow.SmallScroll down:=c.Row - .Cells(1).Row End With Worksheets("RDV").Range(c.Address).Select Else MsgBox "date du jour non trouvée" End If End Sub 'fin
Sycora expressed precisely :
J'ai suivi la procédure, mais à la réouverture du classeur voila ce qui m'arrive :-(
