Selectionne date du jour

Bonjour, dans ma macro je voudrais qu'a la fin il me selectionne la date de jour que se trouve dans la ligne c

merci

Sub Workbook_Open()
Application.EnableEvents = False 'désactive les évènements
Workbooks.Open Filename:= _
        "\\atlas.edf.fr\CO\45dam-dpn\restreint.007\ps.004\Pap_pcp\LISTES\Planning_EP.xlsm"
   Windows("Planning equipe 3x8 2019.xlsm").Activate
     Range("C13:NR13").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    ActiveWindow.ScrollColumn = 365
    ActiveWindow.ScrollColumn = 350
    ActiveWindow.ScrollColumn = 317
    ActiveWindow.ScrollColumn = 287
    ActiveWindow.ScrollColumn = 270
    ActiveWindow.ScrollColumn = 268
    ActiveWindow.ScrollColumn = 267
    ActiveWindow.ScrollColumn = 266
    ActiveWindow.ScrollColumn = 261
    ActiveWindow.ScrollColumn = 239
    ActiveWindow.ScrollColumn = 231
    ActiveWindow.ScrollColumn = 228
    ActiveWindow.ScrollColumn = 208
    ActiveWindow.ScrollColumn = 194
    ActiveWindow.ScrollColumn = 171
    ActiveWindow.ScrollColumn = 150
    ActiveWindow.ScrollColumn = 135
    ActiveWindow.ScrollColumn = 134
    ActiveWindow.ScrollColumn = 121
    ActiveWindow.ScrollColumn = 103
    ActiveWindow.ScrollColumn = 88
    ActiveWindow.ScrollColumn = 84
    ActiveWindow.ScrollColumn = 74
    ActiveWindow.ScrollColumn = 47
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 3
    Selection.Copy
    Range("C23").Select
    ActiveSheet.Paste
    Range("C33").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=21
    Range("C43").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=15
    Range("C53").Select
    ActiveSheet.Paste
    Range("C63").Select
    ActiveSheet.Paste
   Application.Run "'Planning equipe 3x8 2019.xlsm'!ep2019_33100"
   Application.Run "'Planning equipe 3x8 2019.xlsm'!ferme_ep"

Application.EnableEvents = True 'désactive les évènements
Me.Activate
UserForm1.Show
Application.CutCopyMode = False

End Sub

Bonsoir chris45,

Tu a écrit :

je voudrais qu'à la fin il me sélectionne la date du jour qui se trouve dans la ligne c

dans quelle ligne ? les lignes sont des numéros, c'est les colonnes qui sont des lettres !

alors dans quelle ligne de la colonne C ?

dhany

de la ligne c3:ag3

c'est déjà mieux ! mais sans ton fichier, c'est pas facile !

à supposer que la date du jour que tu veux sélectionner est par exemple en E3,

alors pour sélectionner cette cellule E3, voici au choix 4 instructions :

Range("E3").Select

[E3].Select

Cells(3, "E").Select

Cells(3, 5).Select

pour ces 4 instructions, ça revient au même résultat : la cellule

sera sélectionnée... si la feuille est active (sinon, plantage !)

dhany

Non je veux qu’il me mettre sur la case ou y a la date

Tu a écrit :

Non je veux qu’il me mette sur la case où y'a la date

* au singulier, donc une cellule ; et t'avais indiqué dans ton post précédent cette plage : c3:ag3

* alors en ligne 3 : ok ; mais quelle colonne ? y'a l'choix, de C à AG ! comment tu la choisis ?

dhany

je voudrais lorsque j'ouvre le fichier que la vue se mette à la date du jour soit aujourdhui en G0

ci joint les photos

Bonjour,

staple1600 m'a ecrit ca mais ca marche pas

Sub FindDate_Light_Bis()
Dim r As Range
On Error Resume Next
Set r = ActiveSheet.Rows(3).Find(Date): r.Select
On Error GoTo 0
If r Is Nothing Then MsgBox "Pas de date du jour dans cette colonne!", vbCritical, "Erreur"
End Sub

pourtant les date sont bien sur la ligne3 de c3:ag3

merci

Bonjour chris45,

merci de joindre ton fichier (sans données confidentielles) plutôt que des images ou juste du code VBA. pour cela, utilise le bouton « Ajouter des fichiers » qui est situé juste sous la fenêtre d'édition de ton post.

pour faire ta demande, il faudrait aussi l'année ; or on ne la voit pas sur tes images jointes ➯ si elle est dans ton classeur, je l'utiliserai ; sinon, j'utiliserai à la place l'année de la fonction AUJOURDHUI().

dhany

bonjour, voila macro5 mais je voudrais que cela ce fasse a l'ouverture et pas une marco detaché

Bonjour

dur de trouver la date du jour sur un calendrier 2019

A+

Maurice

putain je suis con c'est vrai

ca marche sur un planning 2018

merci

Bonjour

voila une macro pour 2018 HI

Sub Test()
  Set Cel = Rows(3).Cells.Find(DateValue(Now), LookAt:=xlWhole)
    If Cel Is Nothing Then
        MsgBox "Date non trouv?e ????"
    Else
        Application.Goto Cells(2, Cel.Column), True
    End If
End Sub

A+

Maurice