Problème avec Find du fait de la mise en forme d'une date
Résolu
GKlein
-
GKlein -
GKlein -
Bonjour, je cherche à trouver une cellule contenant la date du jour grâce à une macro pour ensuite l'activer via un bouton. Je ne rencontre pas de problème lorsque la date est sous le format jj/mm/aa par exemple 14/11/20, seulement dans mon fichier j'ai remis en forme les dates comme ceci : jjj jj mmm aaaa soit sam 14 nov 2020 et à priori cette mise en forme pose problème.
Je vous remercie d'avance et vous souhaite un très bon week-end.
Voici ci-dessous la macro que j'utilise :
Sub Macro1()
Dim trouve As Range
Set trouve = Range("J21:Z21").Find(Date)
If trouve Is Nothing Then
Debug.Print "Name was not found."
Else
Debug.Print "Name found in :" & trouve.Address
trouve.Activate
End If
End Sub
Je vous remercie d'avance et vous souhaite un très bon week-end.
Voici ci-dessous la macro que j'utilise :
Sub Macro1()
Dim trouve As Range
Set trouve = Range("J21:Z21").Find(Date)
If trouve Is Nothing Then
Debug.Print "Name was not found."
Else
Debug.Print "Name found in :" & trouve.Address
trouve.Activate
End If
End Sub
A voir également:
- Problème avec Find du fait de la mise en forme d'une date
- Mise en forme conditionnelle excel - Guide
- Mise a jour chrome - Accueil - Applications & Logiciels
- Mise en forme tableau croisé dynamique - Guide
- Appliquez à tous les paragraphes du document à télécharger, à l’exception des titres et des sous-titres, la mise en forme suivante : - Guide
- Mise a jour windows 10 - Accueil - Mise à jour
2 réponses
Bonjour,
voir ceci
https://www.excel-pratique.com/fr/astuces_vba/format_dates
voir ceci
https://www.excel-pratique.com/fr/astuces_vba/format_dates
Option Explicit 'https://www.excel-pratique.com/fr/astuces_vba/format_dates Sub essai() MsgBox Format(Date, "dddd d mmm yyyy") End Sub
Bonjour,
Quelque soit le format utilisé :
Quelque soit le format utilisé :
Sub Macro1()
Dim trouve As Range
Dim x As Long
On Error Resume Next
x = WorksheetFunction.Match(CLng(Date), Range("J21:Z21"), 0)
On Error GoTo 0
If x = 0 Then
Debug.Print "Name was not found."
Else
Set trouve = Range("J21").Offset(0, x - 1)
Debug.Print "Name found in :" & trouve.Address
trouve.Activate
End If
End Sub