Problème avec Find du fait de la mise en forme d'une date
Résolu/Fermé
A voir également:
- Problème avec Find du fait de la mise en forme d'une date
- Dans cette présentation, sarah avait encadré directement le titre de certaines diapositives avant d'automatiser cette mise en forme pour tout le document. sur quelles diapositives avait-elle encadré directement le titre ? ✓ - Forum Bureautique
- Mise en forme conditionnelle excel - Guide
- Iphone 14 date de sortie - Guide
- Présentation d'une diapositive - Forum Bureautique
- Excel mise en forme conditionnelle autre cellule ✓ - Forum Excel
2 réponses
cs_Le Pivert
Messages postés
7883
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 mars 2023
724
Modifié le 14 nov. 2020 à 15:27
Modifié le 14 nov. 2020 à 15:27
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
Patrice33740
Messages postés
8556
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
2 mars 2023
1 762
14 nov. 2020 à 15:53
14 nov. 2020 à 15:53
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