report de date ne fonctionne pas

[nrdz83]

Bonjour à tous

on a un programme au travail qui bug un petit peu mais on arrive pas à solutionner la saisie de la date dans notre feuille, tous se range sauf la date.

Le code utilisé est celui-ci.

Private Sub remplirbdd(£ligne1 As Long, £nomfeuille1 As String)

'Dim £Ctrl As Control
'Dim £coln As Long
With Sheets(£nomfeuille1)
For Each £Ctrl In Me.Controls
    If TypeName(£Ctrl) = "ComboBox" Or TypeName(£Ctrl) = "TextBox" Then
    £coln = Val(Replace(£Ctrl.Name, TypeName(£Ctrl), ""))
                .Cells(£ligne1, £coln) = £Ctrl.Value
   End If
   If TypeName(£Ctrl) = "DTPicker" Then
        £coln = Val(Replace(£Ctrl.Name, TypeName(£Ctrl), ""))
        
        .Cells(£ligne1, £coln) = Format(£Ctrl.Value, "dd/mm/yyyy")
        
        
   End If
   
Next £Ctrl
End With
End Sub

On est passé à excel 2010 ça ne pourrait pas venir de ça ?

Ce code est il correct car avec les sigles £ pour ma part je n'y comprend rien.

Par avance merci pour vos lumières amitiés

 

[Pierrot93]

Re : report de date ne fonctionne pas

Bonjour,

regarde du coté de la fonction "cdate", devrait répondre à ta question, exemple ci-dessous pour renvoyer une date dans une cellule à partir d'un "textbox" :

Range("A1").Value = CDate(textbox1.Value)

bon après midi
@+

 

[nrdz83]

Re : report de date ne fonctionne pas

Bonjour pierrot et merci pour ton aide j'ai fais ceci

.Cells(£ligne1, £coln) = CDate(DTPicker3.Value)

Mais toujours pareil rien ne se range

merci

 

[Pierrot93]

Re : report de date ne fonctionne pas

Re,

Mais toujours pareil rien ne se range

qu'entends tu pas là ? message d'erreur ou pas le résultat attendu ?

 

[nrdz83]

Re : report de date ne fonctionne pas

pas le résultat attendu les autres données des textbox et combo se rangent dans ma feuille (Mouvement) NomFeuille1

mais pas la date

Merci

 

[Pierrot93]

Re : report de date ne fonctionne pas

Re,

les cellules sont vides ? tes variables et/ ou dtpicker sont ils bien initialisés ? mets peut être en pièce jointe un tout petit fichier permettant de reproduire le problème posé....

 

[Pierrot93]

Re : report de date ne fonctionne pas

Re,

A noter comprends pas trop le pourquoi de cette ligne de code...

£coln = Val(Replace(£Ctrl.Name, TypeName(£Ctrl), ""))

 

[nrdz83]

Re : report de date ne fonctionne pas

Oui j'ai bien regardais envoyer un exemple du classeur pas possible il est trop lourd,
le code bu bouton valider

Private Sub CmdValider_Click()
If TextBox11.Value = "" Then Exit Sub
If ComboBox5.ListIndex = -1 Then Exit Sub
If Not IsNumeric(TextBox11.Value) Then
    Call MsgBox("Vous devez inscrire une valeur numérique", vbInformation, Application.Name)
    FrmArticle.SetFocus
    TextBox11.Value = ""
    TextBox11.SetFocus
    Exit Sub
End If

If OptionButton2 = True Then
    If Val(TextBox11.Value) > Val(Label18.Caption) Then
        Call MsgBox("Stock insuffisant", vbInformation, Application.Name)
    Exit Sub
    End If
End If

dl1 = Sheets(nomfeuille1).Range("b65536").End(xlUp).Row + 1
Call remplirbdd(£ligne1:=dl1, £nomfeuille1:=nomfeuille1)
'lig = CLng(ComboBox5.List(ComboBox5.ListIndex, ComboBox5.ColumnCount - 1))
With Sheets(nomfeuille3)
If OptionButton1 = True Then
' passage de la colonne b en c
    .Range(colqte & lig1) = Val(.Range(colqte & lig1)) + Val(TextBox11.Value)
Else
    .Range(colqte & lig1) = Val(.Range(colqte & lig1)) - Val(TextBox11.Value)
End If
End With
Call raz
Label18.Caption = ""
End Sub

le code d'initialisation de l'userform

Private Sub UserForm_Initialize()

Application.EnableEvents = False
nomfeuille1 = "Mouvement"
nomfeuille2 = "Article"
nomfeuille3 = "STOCK EN COURS"
col = "a"
colqte = "c"
With ComboBox5
    .Clear
    .ColumnCount = 3
    .ColumnWidths = "80;60;0"
    .Style = fmStyleDropDownList '
    .BoundColumn = 1 ' combobox1.text contient le nom
    For Each cellule In Sheets(nomfeuille2).Range("a4:a" & Sheets(nomfeuille2).Range(col & "65536").End(xlUp).Row)
            .AddItem cellule.Value
            .List(.ListCount - 1, 1) = cellule.Offset(0, 1).Value
            .List(.ListCount - 1, .ColumnCount - 1) = cellule.Row
        
    Next cellule
End With
DTPicker3.Value = Now
Call affiche(False)
OptionButton1.Value = True
End Sub

le code pour la date

Private Sub remplirbdd(£ligne1 As Long, £nomfeuille1 As String)

'Dim £Ctrl As Control
'Dim £coln As Long
With Sheets(£nomfeuille1)
For Each £Ctrl In Me.Controls
    If TypeName(£Ctrl) = "ComboBox" Or TypeName(£Ctrl) = "TextBox" Then
    £coln = Val(Replace(£Ctrl.Name, TypeName(£Ctrl), ""))
                .Cells(£ligne1, £coln) = £Ctrl.Value
   End If
   If TypeName(£Ctrl) = "DTPicker" Then
        £coln = Val(Replace(£Ctrl.Name, TypeName(£Ctrl), ""))
        
        .Cells(£ligne1, £coln) = CDate(DTPicker3.Value)
        
        '.Cells(£ligne1, £coln) = Format(£Ctrl.Value, "dd/mm/yyyy")
        
        
        

        
   End If
   
Next £Ctrl
End With
End Sub

merci d'avance

 

[Pierrot93]

Re : report de date ne fonctionne pas

Re,

le code ci-dessous fonctionne chez moi :

Option Explicit
Private Sub UserForm_Click()
test
End Sub
Private Sub test()
Dim £Ctrl As Control
Dim £coln As Long, £ligne1 As Long
£ligne1 = 4
With ActiveSheet
For Each £Ctrl In Me.Controls
    If TypeName(£Ctrl) = "ComboBox" Or TypeName(£Ctrl) = "TextBox" Then
    £coln = Val(Replace(£Ctrl.Name, TypeName(£Ctrl), ""))
                .Cells(£ligne1, £coln) = £Ctrl.Value
   End If
   If TypeName(£Ctrl) = "DTPicker" Then
        £coln = 2
        .Cells(£ligne1, £coln) = CDate(DTPicker1.Value)
   End If
Next £Ctrl
End With
End Sub

mais sous 2003 et forcement pas dans le même contexte....

 

[nrdz83]

Re : report de date ne fonctionne pas

merci je vais essayer de voir si sous 2003 ça fonctionne merci

 

[nrdz83]

Re : report de date ne fonctionne pas

également sous 2003 ça fonctionne pas , je vais doncssaer d evoi ou ça peut bloquer merci

 

[Pierrot93]

Re : report de date ne fonctionne pas

Re,

toujours pas compris le but de cette ligne, moi.... dans mon code je ne l'exécute pas...

£coln = Val(Replace(£Ctrl.Name, TypeName(£Ctrl), ""))