Format date à partir d'un textbox

[Victor21]

Bonjour.

J'essaie d'adapter un code de kjin pour que les dates saisies dans les textbox dont les tag sont 9,10,11 et 15 soient correctement copiées sur la feuille.

Private Sub CommandButton1_Click()
Dim ctl As Control, dl&
With Feuil3
    dl = .Range("A65000").End(xlUp).Row + 1
    For Each ctl In Controls
        If ctl.Tag <> "" And ctl.Tag <> "9" And ctl.Tag <> "10" And ctl.Tag <> "11" And ctl.Tag <> "15" Then
            .Cells(dl, Int(ctl.Tag)) = ctl.Value
            ElseIf ctl.Tag = "9" Or ctl.Tag = "10" Or ctl.Tag = "11" Or ctl.Tag = "15Then            .Cells(dl, Int(ctl.Tag)) = CDate(ctl.Value)
        End If
    Next
End With
Unload Me
End Sub

La ligne
.Cells(dl, Int(ctl.Tag)) = CDate(ctl.Value)
apparait en erreur 13, incompabilité de type.

J'ai testé plusieurs codes glanés sur ce forum et sur le net, j'ai essayé avec Select Case, sans résultat.

Merci d'avance à qui pourra me dépanner.

 

[Papou-net]

Re : Format date à partir d'un textbox

Bonsoir Victor21,

Essaies comme ceci :

.Cells(dl, CInt(ctl.Tag)) = CDate(ctl.Value)

Cordialement.

 

[Victor21]

Re : Format date à partir d'un textbox

Bonsoir, et merci, Papou-net.

Mais le problème persiste avec le même message d'erreur.
C'est vraiment prise de tête, ces dates en VBA.
😡

 

[Papou-net]

Re : Format date à partir d'un textbox

Bonsoir, et merci, Papou-net.

Mais le problème persiste avec le même message d'erreur.
C'est vraiment prise de tête, ces dates en VBA.
😡

Alors essaies en modifiant comme ceci :

Private Sub CommandButton1_Click()
Dim ctl As Control, dl&
With Feuil3
  dl = .Range("A65000").End(xlUp).Row + 1
  For Each ctl In Controls
    Select Case ctl.Tag
      Case ""
      Case 9 To 11, 15
        .Cells(dl, ctl.Tag) = CDate(ctl.Value)
      Case Else
        .Cells(dl, Int(ctl.Tag)) = ctl.Value
    End Select
  Next
End With
Unload Me
End Sub

Espérant avoir résolu.

Cordialement.

 

[Victor21]

Re : Format date à partir d'un textbox

Re, Papou-net.

Désolé, même motif, même punition, même message au même endroit...

Merci cependant d'avoir tenté de me dépanner.

 

[kjin]

Re : Format date à partir d'un textbox

Bonsoir Victor,
Tu as 2 conditions imbriquées et de plus ça n'est pas <>"9"... mais ="9"..., si j'ai bien compris
Tu sais qu'avec un fichier c'est toujours mieux...

Private Sub CommandButton1_Click()
Dim ctl As Control, dl&
With Feuil3
    dl = .Range("A65000").End(xlUp).Row + 1
    For Each ctl In Controls
        If IsDate(ctl) Then
            If ctl.Tag = "9" Or ctl.Tag = "10" Or ctl.Tag = "11" Or ctl.Tag = "15" Then
                .Cells(dl, Int(ctl.Tag)) = CDate(ctl.Value)
            End If
        End If
    Next
End With
Unload Me
End Sub

A+
kjin

 

[Victor21]

Re : Format date à partir d'un textbox

Bonsoir, kjin.

J'ai testé sur une date : 1/2/2011 et le report se fait désormais correctement.
Ou dois-je placer l'autre condition (Pour tous les autres ctl qui ne sont pas une date )?

ps : Merci de m'avoir fait découvrir .tag.