date textbox

[Jeremyy]

bonjour a tous,
j'ai un petit souci voila : je compare la date entré dans la textbox avec la date d'une cellule qui est au meme format mais je ne comprend pas il ne trouve pas que c'est égale !

voila mon programme qui fait la comrparaison

        If Sheets(ComboBox1.Value).Range("A" & i) = TextBox4.Value Then
        Sheets(ComboBox1.Value).Range("B" & i) = Sheets(ComboBox1.Value).Range("B" & i) & TextBox1.Value

merci d'avance

 

[PascalXLD]

Re : date textbox

Bonjour

essaies

If Sheets(ComboBox1.Value).Range("A" & i) = CDate(TextBox4.Value) Then

 

[Guest]

Re : date textbox

Bonjour Jeremy,

Avec des dates au même format:

     If Sheets(ComboBox1.Value).Range("A" & i).[COLOR=red]Text[/COLOR] = TextBox4.Value Then
        Sheets(ComboBox1.Value).Range("B" & i) = Sheets(ComboBox1.Value).Range("B" & i) & TextBox1.Value

C'est le texte de la cellule qu'il faut comparer et non sa valeur( propriété par défaut) qui est un nombre.

Sinon il faut transformer TextBox4.Text en Date : cDate(TextBox4.Text)

[Edit] Comme l'a si bien montré Pascal

A+

 

[alex67800]

Re : date textbox

Bonjour Jeremy,

Essai comme ceci:

If Sheets(ComboBox1.Value).Range("A" & i) = CDate(TextBox4.Value) Then

Edit: oupss trops lent
Bonjour Pascal XLD, Hasco.

 

[Jeremyy]

Re : date textbox

merci beaucoup , sa fonctionne parfaitement !

une autre question , est-il possible d'autoriser seulement la saisie d'un 1 ou 0 dans la textbox ?

 

[PascalXLD]

Re : date textbox

Bonjour

oui tu peux par exemple

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1 <> "0" And TextBox1 <> "1" Then
MsgBox " que 0 ou 1"
TextBox1 = ""
TextBox1.SetFocus
End If
End Sub

 

[C@thy]

Re : date textbox

merci pour ce fil

Bises et bonne journée,

C@thy