XL 2016 Formulaire VBA

[halecs93]

re-bonjour,

Bon, je n'y arrive vraiment pas. Hé oui...le vba, ce n'est pas que du bricolage.

Je souhaitais utiliser mon formulaire 'userform' pour entrer des données dans une feuille de saisie de dépense....

Si quelqu'un peut regarder ça, ce sera un grand plaisir pour moi et un grand merci pour lui ou elle.

Je laisse le fichier en pièce jointe.

 

[youky(BJ)]

A tester ceci
Bruno

Private Sub TextBox6_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    'que numéric et 1 seule virgule
If Application.International(xlDecimalSeparator) = "," Then
    If KeyAscii = 46 And Not TextBox6 Like "*,*" Then KeyAscii = 44: Exit Sub
Else
    If KeyAscii = 44 And Not TextBox6 Like "*.*" Then KeyAscii = 46: Exit Sub
End If
    If InStr("0123456789", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub

 

[JM27]

Erreur de ma part
dans le post 14
j'ai posté la bonne macro mais le mauvais fichier

 

[halecs93]

Erreur de ma part
dans le post 14
j'ai posté la bonne macro mais le mauvais fichier

Toujours pas....

Un peu plus haut dans la discussion je demandais si le code suivant ne pouvait pas être adapté ?

Je venais de tomber sur ce code (extrait d'un fichier trouvé sur le net).... j'imagine qu'il faudrait remplacer "Me.Salaire" par TexBox6...?

Me.Salaire = Replace(Me.Salaire, ".", ",")
If Not IsNumeric(Me.Salaire) Then
MsgBox "Saisir du num!"
Me.Salaire = ""
Me.Salaire.SetFocus
Exit Sub
End If

 

[JM27]

T'en est sur ?
le fichier du post 17 fonctionne( jusqu'à preuve du contraire)
Avec le pavé numérique(exemple .gif)
Ou avec la virgule qui se transforme automatiquement en point (exemple virgule.gif)

 

[halecs93]

T'en est sur ?
le fichier du post 17 fonctionne( jusqu'à preuve du contraire)
Avec le pavé numérique(exemple .gif)
Ou avec la virgule qui se transforme automatiquement en point (exemple virgule.gif)

Ha si.... téléchargé à nouveau.... merci

 

[JM27]

Par le passé je t'avais réalisé un fichier qui en étant adapté à ton fichier
aurait résolu tout tes pb.
https://excel-downloads.com/threads/ordre-de-saisi-textbox.20070221/#post-20531635
Pourquoi ne pas t'en inspirer ? et adapter

 

[halecs93]

Par le passé je t'avais réalisé un fichier qui en étant adapté à ton fichier
aurait résolu tout tes pb.
https://excel-downloads.com/threads/ordre-de-saisi-textbox.20070221/#post-20531635
Pourquoi ne pas t'en inspirer ? et adapter

C'est vrai, en effet. Mais j'avoue être reparti sur autre chose...et je n'ai pas fait le rapprochement....

 

[halecs93]

Par le passé je t'avais réalisé un fichier qui en étant adapté à ton fichier
aurait résolu tout tes pb.
https://excel-downloads.com/threads/ordre-de-saisi-textbox.20070221/#post-20531635
Pourquoi ne pas t'en inspirer ? et adapter

Du coup...je "customise".... il y a possibilité de modifier le fichier pour obtenir ce que l'on voit sur la capture ?

 

[halecs93]

Bonjour à tous,
Voici comment je ferai (les modules de classe aident bien)
Regarde la pièce jointe 1161098
nb: un double-clic sur une ligne de données pour afficher l'userform de saisie
P.

Bonjour à tous,
Voici comment je ferai (les modules de classe aident bien)
Regarde la pièce jointe 1161098
nb: un double-clic sur une ligne de données pour afficher l'userform de saisie
P.

Merci... du coup, le code a totalement changé

L'userform focntionne très bien. A vrai dire, je ne suis pas fan du calendrier pour saisir la date

De plus, auparavant, les lignes s'incrémentaient toujours en haut du tableau. Je ne sais pas si il est possible de conserver ces deux options.

Quoi qu'il en soit... merci beaucoup