VBA petits soucis de debutant

[madgicbobbyboon]

Bonjour à tous,

petits problèmes VBA

Lorsque je sélectionne la date du 03/09/2017 dans mon calendar, celle qui va s'inscrire dans la cellule est le 09/03/2017.
Ensuite si je saisi une autre date, celle ci va s'inscrire dans la cellue A2 et A3 et non en dessous de celle deja rentrée.


D'avance merci.

 

[cp4]

Salut,

Je n'ai pas calendar sur mon pc (je ne sais pas comment l'ajouter), je ne peux donc pas tester.
essaie comme ça

Calendar1.Value = NumberFormat(Now(), "dd/mmm/yyyy")

 

[vgendron]

Hello

Dans le code de tes boutons "valider" de chaque Userform
remplace ta ligne où tu définis la variable L

L = Sheets(ComboBox1.Value).Range("A" & Rows.Count).End(xlUp).Row + 1

 

[vgendron]

avec ce code, c'est encore mieux

Private Sub CommandButton1_Click()

'le message de confirmation arrive apparait "confirmez vous..." si oui alors
If MsgBox("confirmez vous l'ajout de la fiche " & ComboBox1, vbYesNo, "attention") = vbYes Then

    'avec la feuille Code
    With Sheets(ComboBox1.Value)
        L = .Range("A" & .Rows.Count).End(xlUp).Row + 1
        .Range("a" & L) = TextBox2.Value
        .Range("b" & L) = TextBox3.Value
        .Range("c" & L) = TextBox4.Value
    End With
End If

Unload Me
End Sub

 

[vgendron]

voir PJ avec les modifs

 

[madgicbobbyboon]

avec ce code, c'est encore mieux

Private Sub CommandButton1_Click()

'le message de confirmation arrive apparait "confirmez vous..." si oui alors
If MsgBox("confirmez vous l'ajout de la fiche " & ComboBox1, vbYesNo, "attention") = vbYes Then

    'avec la feuille Code
    With Sheets(ComboBox1.Value)
        L = .Range("A" & .Rows.Count).End(xlUp).Row + 1
        .Range("a" & L) = TextBox2.Value
        .Range("b" & L) = TextBox3.Value
        .Range("c" & L) = TextBox4.Value
    End With
End If

Unload Me
End Sub

 

[madgicbobbyboon]

Merci beaucoup cela fonctionne.
Cependant quand je rentre la date du 03/09/2017 (au niveau du user), la date qui s'affiche dans la cellule est le 09/03/2017
ce probleme n' apparait que pour les cellules A et E

 

[vgendron]

Hello
je pense que le problème intervient à partir du moment ou le jour (de 1 à 12) peut etre interprété pour un mois
pb de format date francais -- Americain

modif à essayer avec PJ

 

[Si...]

Bon_soir

Pour récupérer une date(Usf) en français vers la feuille, on a intérêt à utiliser CDate

Pourquoi ne pas utiliser un seul formulaire avec les 2 boutons commedans le fichier joint ?

Nota
-ne disposant du contrôle Calandar sur ma machine, je l'ai remplacé par le contrôle DTPicker.
Dans le cas contraire, remplacer dans mes codes DTPicker par Calandar !
-Il faudrait peut-être prévoir d'éviter des répétitions contradictoires !

 

[Staple1600]

Bonsoir le fil, le forum

Bon_soir
Nota
-ne disposant du contrôle Calandar sur ma machine, je l'ai remplacé par le contrôle DTPicker.
Dans le cas contraire, remplacer dans mes codes DTPicker par Calandar !

[PJ]@Si...
Aucune distribution Microsoft Office au monde ne propose le contrôle Calandar
Par contre, certaines incluent un contrôle Calendar
[/PJ]

 

[madgicbobbyboon]

Bon_soir

Pour récupérer une date(Usf) en français vers la feuille, on a intérêt à utiliser CDate

Pourquoi ne pas utiliser un seul formulaire avec les 2 boutons commedans le fichier joint ?

Nota
-ne disposant du contrôle Calandar sur ma machine, je l'ai remplacé par le contrôle DTPicker.
Dans le cas contraire, remplacer dans mes codes DTPicker par Calandar !
-Il faudrait peut-être prévoir d'éviter des répétitions contradictoires !

 

[madgicbobbyboon]

Bonjour,

Merci pour ton aide. je vais essayer avec CALENDAR

Comme je tatillonne un peu, qu'est ce que ce code signifie [NP[N]].Value