Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel date et textbox

date et textbox

3 réponses
Avatar
Didier
Bonjour
j'essaie de "bricoler" cela en empêchant que textbox3 < 0
merci beaucoup à Benead pour le début de cette proc
merci Didier

Private Sub TextBox11_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
If IsDate(TextBox10) And IsDate(TextBox11) Then
If TextBox3 < 0 Then
MsgBox "Cette date ne peut être inférieure..."
End If
TextBox3 = CDate(TextBox11) - CDate(TextBox10) & " jours"
End If
End Sub
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Hervé
Bonsoir,
Avec Abs ?

TextBox3 = Abs(CDate(TextBox11) - CDate(TextBox10)) & " jours"

Hervé.

"Didier" a écrit dans le message news:

Bonjour
j'essaie de "bricoler" cela en empêchant que textbox3 < 0
merci beaucoup à Benead pour le début de cette proc
merci Didier

Private Sub TextBox11_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
If IsDate(TextBox10) And IsDate(TextBox11) Then
If TextBox3 < 0 Then
MsgBox "Cette date ne peut être inférieure..."
End If
TextBox3 = CDate(TextBox11) - CDate(TextBox10) & " jours"
End If
End Sub







Avatar
Didier
Merci beaucoup à tous je viens de contourner le pb
Désolé...
et merci
Didier

"Didier" a écrit dans le message de news:

Bonjour
j'essaie de "bricoler" cela en empêchant que textbox3 < 0
merci beaucoup à Benead pour le début de cette proc
merci Didier

Private Sub TextBox11_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
If IsDate(TextBox10) And IsDate(TextBox11) Then
If TextBox3 < 0 Then
MsgBox "Cette date ne peut être inférieure..."
End If
TextBox3 = CDate(TextBox11) - CDate(TextBox10) & " jours"
End If
End Sub







Avatar
Didier
Merci Hervé mais ce n'est pas exactement cela j'ai contourné
Didier

"Hervé" a écrit dans le message de news:

Bonsoir,
Avec Abs ?

TextBox3 = Abs(CDate(TextBox11) - CDate(TextBox10)) & " jours"

Hervé.

"Didier" a écrit dans le message news:

Bonjour
j'essaie de "bricoler" cela en empêchant que textbox3 < 0
merci beaucoup à Benead pour le début de cette proc
merci Didier

Private Sub TextBox11_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
If IsDate(TextBox10) And IsDate(TextBox11) Then
If TextBox3 < 0 Then
MsgBox "Cette date ne peut être inférieure..."
End If
TextBox3 = CDate(TextBox11) - CDate(TextBox10) & " jours"
End If
End Sub