Discussion :

[marinekali]

Bonjour

Est-ce que quelqu'un de sympa peux me filer un petit coup de pouce svp ?

J'ai besoin d'un code qui me permet d'atteindre la date du jour dans mon fichier. Sélection de la cellule contenant la date du jour ou bien la cellule adjacente à la date du jour. Colonne D ou E.

Macro que j'appellerai par un bouton commande.

Voir mon fichier en PJ.

Par avance, merci de votre aide.
macro-atteindre-date-aujourdhui.xlsm

Cordialement.

[deedolith]

Salut,

Essaye ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Option Explicit
 
Sub AtteindreAujourdhui()
    Dim Today As Date
    Today = DateSerial(Year(Now), Month(Now), Day(Now))
 
    Dim Table As Excel.Range
    Set Table = Feuil1.Range("Tableau1")
 
    Dim Column As Excel.Range
    Set Column = Table.Columns(4)
 
    Dim Cell As Excel.Range
    For Each Cell In Column.Cells
        If (Cell.Value = Today) Then
            Cell.Select
            Exit For
        End If
    Next
End Sub

[Invité]

Bonjour

Réponse donnée ici : https://forum.excel-pratique.com/exc...du-jour-181514

@Marinekali, le cross posting n'est pas toléré sur l'autre forum, attention !

[patmicro]

Bonjour marinekali :
Voici un lien sur un sujet similaire. En espérant que cela réponde à ta question.

https://www.developpez.net/forums/d2...rovisoirement/