Bonjour
Comment faire pour qu'a l'ouverture d'une feuille l'on soit positionné
sur la ligne de la date courante. (colonne A contient la série
chronologique)
Merci car VBA n'est pas mon truc pour l'instant...
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
Misange
bonjour, ce classeur à télécharger est fait pour toi visiblement : http://disciplus.simplex.free.fr/classeursxl/av-trouvedatejour.zip
Misange migrateuse http://www.excelabo.net mail : http://cerbermail.com/?k5Q8Dh2mta
le 30/10/2003 08:53:
Bonjour Comment faire pour qu'a l'ouverture d'une feuille l'on soit positionné sur la ligne de la date courante. (colonne A contient la série chronologique) Merci car VBA n'est pas mon truc pour l'instant...
bonjour,
ce classeur à télécharger est fait pour toi visiblement :
http://disciplus.simplex.free.fr/classeursxl/av-trouvedatejour.zip
Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta
le 30/10/2003 08:53:
Bonjour
Comment faire pour qu'a l'ouverture d'une feuille l'on soit positionné
sur la ligne de la date courante. (colonne A contient la série
chronologique)
Merci car VBA n'est pas mon truc pour l'instant...
bonjour, ce classeur à télécharger est fait pour toi visiblement : http://disciplus.simplex.free.fr/classeursxl/av-trouvedatejour.zip
Misange migrateuse http://www.excelabo.net mail : http://cerbermail.com/?k5Q8Dh2mta
le 30/10/2003 08:53:
Bonjour Comment faire pour qu'a l'ouverture d'une feuille l'on soit positionné sur la ligne de la date courante. (colonne A contient la série chronologique) Merci car VBA n'est pas mon truc pour l'instant...
Emcy
Salut,
Mets cette Macro dans le module ThisWorkBook :
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim Ligne As Integer
Ligne = 1
Do Until Cells(Ligne, 1).Value = ""
If Cells(Ligne, 1).Value = Date Then Cells(Ligne, 1).Select Exit Sub End If Ligne = Ligne + 1
Loop
MsgBox ("La Date d'aujourd'hui n'a pas été trouvée")
End Sub
ça te va ?
-----Message d'origine----- Bonjour Comment faire pour qu'a l'ouverture d'une feuille l'on soit positionné
sur la ligne de la date courante. (colonne A contient la série
chronologique) Merci car VBA n'est pas mon truc pour l'instant... .
Salut,
Mets cette Macro dans le module ThisWorkBook :
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim Ligne As Integer
Ligne = 1
Do Until Cells(Ligne, 1).Value = ""
If Cells(Ligne, 1).Value = Date Then
Cells(Ligne, 1).Select
Exit Sub
End If
Ligne = Ligne + 1
Loop
MsgBox ("La Date d'aujourd'hui n'a pas été trouvée")
End Sub
ça te va ?
-----Message d'origine-----
Bonjour
Comment faire pour qu'a l'ouverture d'une feuille l'on
soit positionné
sur la ligne de la date courante. (colonne A contient
la série
chronologique)
Merci car VBA n'est pas mon truc pour l'instant...
.
