Afficher date et heure dans un text box
Résolu
amine69500
Messages postés
471
Statut
Membre
-
Mike-31 Messages postés 19571 Date d'inscription Statut Contributeur Dernière intervention -
Mike-31 Messages postés 19571 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
es ce que quelqu'un peu me dire comment je peu afficher la date dans un texbox et lheure dans un autre texbox a cote
pour la date
Private Sub TextBox1_Change()
End Sub
pour lheure
Private Sub TextBox2_Change()
End Sub
merci de votre aide
bonne journé
es ce que quelqu'un peu me dire comment je peu afficher la date dans un texbox et lheure dans un autre texbox a cote
pour la date
Private Sub TextBox1_Change()
End Sub
pour lheure
Private Sub TextBox2_Change()
End Sub
merci de votre aide
bonne journé
A voir également:
- Afficher date et heure dans un text box
- Changement d'heure - Guide
- Comment ouvrir un fichier dat - Guide
- Freebox n'affiche plus l'heure mais fonctionne - Forum Freebox
- Dans le diaporama à télécharger, les diapositives s’enchaînent automatiquement. combien de temps la diapositive crayon met-elle à s’afficher ? combien de temps reste-t-elle affichée à l’écran ? ✓ - Forum Powerpoint
- Faites afficher avec un fond coloré les cellules qui contiennent une valeur comprise entre 250 et 350. quel nombre est dessiné en surbrillance ? ✓ - Forum Excel
5 réponses
Salut,
si ton textbox est sur la feuille de calcul, Il vaudrait mieux passer par Worksheet, comme cela l'heure s'actualisera a chaque déplacement sur la feuille
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
TextBox2 = Now()
End Sub
Si ton textbox est sur une Userform, un de ces deux code
Private Sub UserForm_Activate()
TextBox2 = Now()
End Sub
Private Sub UserForm_Initialize()
TextBox2 = Now()
End Sub
A+
Mike-31
Un problème sans solution est un problème mal posé (Einstein)
si ton textbox est sur la feuille de calcul, Il vaudrait mieux passer par Worksheet, comme cela l'heure s'actualisera a chaque déplacement sur la feuille
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
TextBox2 = Now()
End Sub
Si ton textbox est sur une Userform, un de ces deux code
Private Sub UserForm_Activate()
TextBox2 = Now()
End Sub
Private Sub UserForm_Initialize()
TextBox2 = Now()
End Sub
A+
Mike-31
Un problème sans solution est un problème mal posé (Einstein)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
