Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel remonter

remonter

13 réponses
Avatar
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
Signaler un problème avec ce contenu

3 réponses

Supprimer
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
1 2
Avatar
MichD
Bonjour,

Copie la procédure suivante dans le thisWorkbook de ton classeur.
Adapte le nom de la feuille de la procédure pour le nom de l'onglet
de la feuille de ton application où se retrouvent les données.

'--------------------------
Private Sub Workbook_Open()
Dim Lig As Variant, Rg As Range
With Worksheets("Feuil1") 'Nom feuille à adapter
Set Rg = .Range("B4:B" & .Range("B65536").End(xlUp).Row)
Lig = Application.Match(CLng(Date), Rg, 0)
If IsNumeric(Lig) Then
Application.Goto .Range("A" & Lig), True
End If
End With
End Sub
'--------------------------

MichD
---------------------------------------------------------------
Avatar
Sycora
http://dl.free.fr/kZ7VMyTP7

ça avance!
J'ai essayé la procédure de MichD, il y a de l'amélioration, seulement ça me
met la date du jour en 4ème ligne ? Warum?



"MichD" a écrit dans le message de news:
klr7ch$7mn$
Bonjour,

Copie la procédure suivante dans le thisWorkbook de ton classeur.
Adapte le nom de la feuille de la procédure pour le nom de l'onglet
de la feuille de ton application où se retrouvent les données.

'--------------------------
Private Sub Workbook_Open()
Dim Lig As Variant, Rg As Range
With Worksheets("Feuil1") 'Nom feuille à adapter
Set Rg = .Range("B4:B" & .Range("B65536").End(xlUp).Row)
Lig = Application.Match(CLng(Date), Rg, 0)
If IsNumeric(Lig) Then
Application.Goto .Range("A" & Lig), True
End If
End With
End Sub
'--------------------------

MichD
---------------------------------------------------------------

Avatar
Sycora
EURÊKA.......................


Set Rg = .Range("B4:B" & .Range("B65536").End(xlUp).Row)

Set Rg = .Range("B1:B" & .Range("B65536").End(xlUp).Row)



Merci à vous trois pour votre aide.
Sycora
M.M


"Sycora" <menard.mi"inval"@free.fr> a écrit dans le message de news:
5181273f$0$14010$
http://dl.free.fr/kZ7VMyTP7

ça avance!
J'ai essayé la procédure de MichD, il y a de l'amélioration, seulement ça
me met la date du jour en 4ème ligne ? Warum?



"MichD" a écrit dans le message de news:
klr7ch$7mn$
Bonjour,

Copie la procédure suivante dans le thisWorkbook de ton classeur.
Adapte le nom de la feuille de la procédure pour le nom de l'onglet
de la feuille de ton application où se retrouvent les données.

'--------------------------
Private Sub Workbook_Open()
Dim Lig As Variant, Rg As Range
With Worksheets("Feuil1") 'Nom feuille à adapter
Set Rg = .Range("B4:B" & .Range("B65536").End(xlUp).Row)
Lig = Application.Match(CLng(Date), Rg, 0)
If IsNumeric(Lig) Then
Application.Goto .Range("A" & Lig), True
End If
End With
End Sub
'--------------------------

MichD
---------------------------------------------------------------





1 2