Bonjour,

J'ai code VBA qui marche super bien :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CommandButton1_Click()
 
Dim Dat As String
    Dat = InputBox("Enter une date pour voir si réservation")
    If IsDate(Dat) Then
        Var = CDate(Dat)
        c = Application.Match(CDate(Dat) * 1, [A:A], 0)
        If IsNumeric(c) Then
            Cells(c, 1).Select
            Cells(c, 1).Interior.ColorIndex = 8
        End If
    End If
 
End Sub

Comment faire pour changer valeur date en chiffre.

De cette manière, je saisis un chiffre ou nombre dans Inputbox

Merci,
Bon week-end