XL 2016 Formulaire VBA

halecs93 · 21 Janvier 2023

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.

JM27 · 22 Janvier 2023

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

youky(BJ) · 22 Janvier 2023

A tester ceci
Bruno

VB:

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 · 22 Janvier 2023

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

halecs93 · 22 Janvier 2023

JM27 à dit:
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 · 22 Janvier 2023

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 · 22 Janvier 2023

JM27 à dit:
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 · 22 Janvier 2023

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 · 22 Janvier 2023

JM27 à dit:
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 · 22 Janvier 2023

JM27 à dit:
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 · 22 Janvier 2023

p56 à dit:
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

XL 2016 Formulaire VBA

halecs93

XLDnaute Impliqué

Pièces jointes

JM27

youky(BJ)

XLDnaute Barbatruc

JM27

XLDnaute Barbatruc

Pièces jointes

halecs93

XLDnaute Impliqué

JM27

XLDnaute Barbatruc

Pièces jointes

halecs93

XLDnaute Impliqué

JM27

XLDnaute Barbatruc

halecs93

XLDnaute Impliqué

halecs93

XLDnaute Impliqué

Pièces jointes

halecs93

XLDnaute Impliqué

Discussions similaires