remonter

Le
Sycora
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses Page 1 / 2
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
h2so4
Le #25373542
bonsoir,

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
Le #25373552
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
.
isabelle
Le #25373632
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


h2so4
Le #25373912
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





--
h2so4
ca PAN
pique DORA
.
isabelle
Le #25374462
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
Le #25375212
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" 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
Le #25375512
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" 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
Le #25376462
J'ai suivi la procédure, mais à la réouverture du classeur voila ce qui
m'arrive :-(

http://dl.free.fr/gqpgEhsT4






"h2so4" 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" 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
Le #25376612
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
.
h2so4
Le #25376752
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
.
Publicité
Poster une réponse
Anonyme