Autres remplir bd depuis userform

[maxim47]

Bonsoirr
je cherche à remplir une petite base de données depuis un userform jai essayé depuis d'autres exemples mais je n'y arrive pas si quelqu'un peut me donner un coup de main
merci d'avance out est dans le fichiers joint

 

[patricktoulon]

j'ai modifier le valider_click

Private Sub CmbValider_Click()
   Dim DerLigne As Long, T$
    T = "A VERIFIER !!! :" & vbCrLf
    If Me.TxtDateDépart = "" Then T = T & "la date de depart" & vbCrLf
        If Me.TxtDateArrivée = "" Then T = T & "la date d'arrivée" & vbCrLf
    If Me.TxtVilleDépart = "" Then T = T & "la ville de départ" & vbCrLf
     If Me.TxtVilleArrivée = "" Then T = T & "la ville d'arrivée" & vbCrLf
     If Me.TxtKmDépart = "" Then T = T & "le kilometrage de départ " & vbCrLf
     If IsDate(Me.TxtDateArrivée) And IsDate((Me.TxtDateDépart)) Then
     If CDate(Me.TxtDateArrivée) < CDate(Me.TxtDateDépart) Then T = T & " la date d'arrivée ne doit pas etre inferieur a la date de depart"
   End If
     If T <> "A VERIFIER !!! :" Then MsgBox T: Exit Sub
    
    
     With Sheets("bd")
        DerLigne = .Cells(Rows.Count, 3).End(xlUp).Row + 1
       .Range("C" & DerLigne) = CDate(Me.TxtDateDépart)
       .Range("D" & DerLigne) = CDate(Me.TxtDateArrivée)
       .Range("E" & DerLigne) = CDate(Me.TxtDateArrivée) - CLng(CDate(Me.TxtDateDépart))
      
       .Range("F" & DerLigne) = CLng(Me.TxtKmDépart)
       .Range("G" & DerLigne) = Me.TxtVilleDépart
       .Range("H" & DerLigne) = Me.TxtVilleArrivée
    
    End With
    MsgBox " Données transférées "
    Unload Me
    
End Sub

 

[JM27]

Bonjour

nanana , ca marche pas ( humour)

If T <> "A VERIFIER !!! :"(erreur)Then MsgBox T: Exit Sub

& vbCrLf

 

[maxim47]

bonsoir
effectivement les/ avec le calendar même sous 2007 ne marche pas mais du moment qu'il y a le calendar les / ça ne sert plus la seule chose si c'est possible serait que le calendar s'ouvre au survol de la zone texte des dates mais j'en demande peut être un peu trop

 

[JM27]

Bonsoir
Ci joint un fichier avec les deux possibilités.( avec et sans calendrier , qui ne peuvent pas fonctionner ensemble , c'est l'un ou l'autre)
Il faut d'abord sélectionner la zone pour pouvoir afficher le calendrier. ( si cette zone n'est pas sélectionnée , ou vas tu inscrire la date restituée par le calendrier ?)

 

[patricktoulon]

Bonjour

nanana , ca marche pas ( humour)

If T <> "A VERIFIER !!! :"(erreur)Then MsgBox T: Exit Sub

& vbCrLf

c'est une blague

 

[JM27]

Salut
Non c'est pas une blague
Tentes une saisie et tu verras
tu compares des pommes et des poires!
il manque le retour chariot
tu compares
"A VERIFIER !!! :" & vbCrLf
avec
"A VERIFIER !!! :"

 

[patricktoulon]

re
a oui c'est vrai autant pour moi
bon t'a compris le principe un seul msgbox qui te dit tout

 

[JM27]

salut
Ton principe je le connais
Mais quand il y a peu de zones à documenter , j'utilises des messages à chaque contrôle .
Quand il y a beaucoup de contrôle à vérifier j'utilise la propriété tag de chaque contrôle ou je range la colonne de destination , puis l'info saisie obligatoire ou pas , puis le type de données puis éventuellement la page du multipage ,
regardes le fichier post #49
et tu constateras que pour la création d'un véhicule j'utilise Tag(Page1)
et pour l'intervention (page2) je ne l'utilise pas
en plus ta proposition ne marche pas
Dans ta proposition :Si tu saisi un 1 par exemple dans la date de départ ou la date d'arrivée , il se passe quoi ?
j'ai fais beaucoup de développement pour des utilisateurs , et j'ai appris qu'il fallait s'attendre à tout