aide sur erreur vba

[nrdz83]

Bonjour à tous,
j'ai ce code que j'ai récupéré pour un programme de gestion de stock.
Par contre j'ai cette erreur, et je n'arrive pas à trouver d'ou cela provient.

D'avance merci pour votre aide. Mes amitiés😎

[COLOR="SeaGreen"]' Module    : UserForm1/remplirbdd
' Utilisation     :mettre à jour la base de données
'Call remplirbdd(£ligne1:=ligne  , £nomfeuille1:=nom de la feuille)[/COLOR]'-------------------------------------------------------------------------------------
[COLOR="red"]Private Sub remplirbdd(£ligne1 As Long, £nomfeuille1 As String)[/COLOR]
[COLOR="SeaGreen"]'Dim £Ctrl As Control
'Dim £coln As Long[/COLOR]
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) = CStr(£Ctrl.Value)
        .Cells(£ligne1, £coln) = [COLOR="Red"]Format[/COLOR](.Cells(£ligne1, £coln), "dd/mm/yyyy")
   End If
   
Next £Ctrl
End With
End Sub

 

[alex67800]

Re : aide sur erreur vba

Bonjour nrdz83,

je pense aue ton problème vient de cette ligne:

.Cells(£ligne1, £coln) = Format(.Cells(£ligne1, £coln), "dd/mm/yyyy")

essai comme ceci:

     .Cells(£ligne1, £coln[COLOR="Navy"]).NumberFormat [/COLOR]= "dd/mm/yyyy"

Avec un DTpicker cela donnerait ceci:

.Range("A" & derlign) = [COLOR="Navy"]CDate[/COLOR]([COLOR="navy"]Format[/COLOR](DTPicker1.Value, "dd/mm/yyyy"))

J'espère avoir pu t'éclairer, quoi que cela fait un petit moment que je me suis absenté du forum lol, je rouille!!! 😉

 

[nrdz83]

Re : aide sur erreur vba

bonjour alex 67800, merci pour tes lumières, ça fonctionne en partie maintenant je vais t'expliquer.
Effectivement la date provient d'un DTPicker, et si je met ton deuxieme code

.Range("A" & derlign) = CDate(Format(DTPicker1.Value, "dd/mm/yyyy"))

ça ne fonctionne pas.

Ton premier code

.Cells(£ligne1, £coln).NumberFormat = "dd/mm/yyyy"

Fonctionne impeccable. Sauf que le format date dans ma cellule se met sous dd/mm/yyyy 00:00 Et cela malgrés un format personnalisé rien ne change au format.

Je te remercie d'avance pour ton aide et tu peux compter sur nous, avec nos problèmes tu vas vite être derouillé lol

Amitiés 😎

 

[nrdz83]

Re : aide sur erreur vba

Bonsoir à tous je cherche a resoudre mon problème avec ce code que alex67800 m'a solutionné.

rivate 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) = CStr(£Ctrl.Value)
       [COLOR="Red"] .Cells(£ligne1, £coln).NumberFormat = "dd/mm/yyyy"[/COLOR] 
  End If
   
Next £Ctrl
End With
End Sub

j'ai le resultat sous ce format 27/05/2009 19:21:54

alors que moi je veux juste ce format 27/05/2009

j'ai essayé format personnalisé de la cellule mais àa ne fonctionne pas.

D'avance merci à tous amitiés 😎

 

[Compte Supprimé 979]

Re : aide sur erreur vba

Salut Mister Bean 🙂

Ton code n'est pas bon à la première ligne 😉

il faut remplacer

.Cells(£ligne1, £coln) = CStr(£Ctrl.Value)

par

.Cells(£ligne1, £coln) = Format(£Ctrl.Value, "dd/mm/yyyy")

A+

 

[nrdz83]

Re : aide sur erreur vba

🙄bonsoir bruno m45 merci pour ton concours lorsque je mets ton code il se met en rouge avec un message erreur de compilation et la parenthese ici en rouge et en surbrillance

.Cells(£ligne1, £coln) = Format(£Ctrl.Value,[COLOR="Red"])[/COLOR], "dd/mm/yyyy")

merci encore pour tes lumières

 

[Compte Supprimé 979]

Re : aide sur erreur vba

Re,

Ben oui a vouloir aller trop vite 🙄

Code corrigé dans le post précédent, il faut enlever ",)"

a+

Nota : au nombre de jours que tu as déjà passé sur ce forum,
je suis fort étonné que tu ne trouves pas l'erreur par toi même

 

[nrdz83]

Re : aide sur erreur vba

re bonsoir et merci bruno m45
aujourd'hui rien ne vas j'arrive à rien pour peuve mon graveur dvd qui a 4 mois vient de me lacher grrrrrrr
et la ce maudit code aussi

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) = [COLOR="Red"]Format[/COLOR](£Ctrl.Value, "dd/mm/yyyy")
        .Cells(£ligne1, £coln).NumberFormat = "dd/mm/yyyy"
   End If
   
Next £Ctrl
End With
End Sub

Regarde ce code il bug encore j'ai beau essayé d'ou vient l'erreur je n'arrive à rien.
Merci encore pour ton aide, amitiés

 

[Compte Supprimé 979]

Re : aide sur erreur vba

Re,

aujourd'hui rien ne vas j'arrive à rien

Il y a des jours comme ça ou on se dit que l'on aurait mieux fait de rester au lit 😉😀

Peux-tu nous joindre ton fichier avec l'USF ?

A+

 

[job75]

Re : aide sur erreur vba

Bonsoir à tous,

Essayer :

.Cells(£ligne1, £coln) = [COLOR="Red"]CDate[/COLOR](£Ctrl.Value)
.Cells(£ligne1, £coln).NumberFormat = "dd/mm/yyyy"

sinon pourquoi pas :

.Cells(£ligne1, £coln) = £Ctrl.Value
.Cells(£ligne1, £coln).NumberFormat = "dd/mm/yyyy"

A+

 

[nrdz83]

Re : aide sur erreur vba

bonsoir et merci job75 apperement ton 1er code fonctionne
merci pour tout ainsi qu'a l'aide précieuse de brunom45
toute mes amitiés et bonne soirée

 

[Compte Supprimé 979]

Re : aide sur erreur vba

Juste comme ça 😛

Vu avec Nrdz83, c'était un problème de référence manquante

Et comme toujours une simple fonction comme Format() n'était du coup plus reconnue 🙄

Une fois les références manquantes décochées, cela marchait également pour le code que j'ai donné 😀

Voili, voilà

 

[alex67800]

Re : aide sur erreur vba

Bonjour ndz83, le forum,

Désolé de n'avoir pu te répondre plus tôt, mais je constate que tu as reçu toute l'aide que tu souhaitais 😉