Discussion :

[Olivierporcinet]

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

[pc75]

Bonjour,

Code :

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

1
2
 
Var = CInt(Dat)

ou

Code :

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

1
2
 
Var = CLng(Dat)

[Olivierporcinet]

ça ne marche pas, sorry

je n'ai que très très peu de connaissance en VBA.

Je pense à une chose... je suis peutêtre dans l'erreur :

Il ne faut pas changer ce qui est souligné ???

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("Je vias mettre autre message")
    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

Merci

Voilà ce que j'ai trouvé jusque maintenant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton1_Click()
Dim Dat As String
    Dat = InputBox("Choisir code du produit")
    If IsNumeric(Dat) Then
        Var = CInt(Dat)
        c = Application.Match(CInt(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

Si indique 100 dans la box, OK je vais sur la cellule 100 et elle semet en bleu.

Le problème : la cellule reste bleue même quand je vais dans une autre.

Merci

[Olivierporcinet]

OK, j'ai trouvé.

J'avias oublié de mettre code dans la feuille.

Code :

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

1
2
3
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Columns(1).Interior.ColorIndex = 0
End Sub

Merci.

Bon week-end