Renvoyer une date/heure dans une textbox
Résolu/Fermé
Zorbaxx
Messages postés
29
Date d'inscription
mercredi 20 décembre 2017
Statut
Membre
Dernière intervention
8 novembre 2018
-
16 févr. 2018 à 20:19
Zorbaxx Messages postés 29 Date d'inscription mercredi 20 décembre 2017 Statut Membre Dernière intervention 8 novembre 2018 - 17 févr. 2018 à 09:31
Zorbaxx Messages postés 29 Date d'inscription mercredi 20 décembre 2017 Statut Membre Dernière intervention 8 novembre 2018 - 17 févr. 2018 à 09:31
A voir également:
- Renvoyer une date/heure dans une textbox
- 35 go internet équivalent en heure ✓ - Forum Mobile
- 2go internet = combien d'heure - Forum Opérateurs & Réseaux mobiles
- 30 Go combien de temp d’internet - Forum Mobile
- Colissimo heure de livraison après-midi - Forum Consommation & Internet
1 réponse
julia Namor
Messages postés
524
Date d'inscription
jeudi 27 mars 2014
Statut
Membre
Dernière intervention
13 janvier 2024
33
17 févr. 2018 à 00:42
17 févr. 2018 à 00:42
Private Sub Chercher_Click()
If TextBox1 = "" Then
MsgBox "Veuillez entrer un numéro de course!", vbInformation + vbOKOnly, "Numéro de course invalide"
GoTo 1
End If
If WorksheetFunction.CountIf(Sheets("Données").Range("b:b"), Me.TextBox1.Value) = 0 Then
MsgBox "Le numéro de course n'existe pas!", vbInformation + vbOKOnly, "Numéro de course invalide"
TextBox1 = ""
GoTo 1
Else
Me.TextBox2 = Application.WorksheetFunction.VLookup((TextBox1), Sheets("Données").Range("B2:G360"), 2, 0)
Me.TextBox2.Value = CDate(Me.TextBox2.Value)
Me.TextBox3 = Application.WorksheetFunction.VLookup((TextBox1), Sheets("Données").Range("B2:G360"), 3, 0)
Me.TextBox3.Value = Format(Me.TextBox3, "hh:mm")
Me.TextBox4 = Application.WorksheetFunction.VLookup((TextBox1), Sheets("Données").Range("B2:G360"), 4, 0)
Me.TextBox5 = Application.WorksheetFunction.VLookup((TextBox1), Sheets("Données").Range("B2:G360"), 6, 0)
Me.TextBox6 = Application.WorksheetFunction.VLookup((TextBox1), Sheets("Données").Range("B2:G360"), 5, 0)
End If
1
End Sub
17 févr. 2018 à 09:31