format numérique dans un useform Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
Avatar du membre
Banzai64
Fanatique d'Excel
Fanatique d'Excel
Messages : 16'690
Appréciations reçues : 5
Inscrit le : 21 novembre 2010
Version d'Excel : 2003 FR (learning 2010 - 2013)

Message par Banzai64 » 15 octobre 2014, 17:31

Bonjour
belsamis010975 a écrit :Par contre pour les dates excel veut systématiquement me les convertir.
Si cela fonctionne
J'ai testé pour le 1er CODE SAP
dans la base de données j'ai effacé G2
Avec l'userform GESTION_CONTACTS J'ai modifié en y mettant une date et cela a fonctionné

Inspires toi du code
b
belsamis010975
Membre habitué
Membre habitué
Messages : 73
Inscrit le : 14 juin 2013
Version d'Excel : 2010FR

Message par belsamis010975 » 16 octobre 2014, 12:12

Bonjour Banzaï,

Oui en effet cela fonctionne mais la date reste en format, idéalement je préférerai avoir une date en format nombre, comme ça pour faire les filtres les dates apparaîtront comme les autres
ou bien il faudrait convertir les textbox en nombre en cliquant sur modifié

J'ai essayé ce code en textbox 1 GESTION_CONTACT
Dis moi ce que tu en penses.

Dim D As Date
If Not IsDate(Me.TextBox1.Text) Then
Me.TextBox1.Text = ""
Me.TextBox1.SetFocus
Exit Sub
End If
D = CDate(Me.TextBox1.Text)
Me.TextBox1 = D 'Je ne sais pas quoi mettre ici pour que la date se place au bon endroit
Avatar du membre
Banzai64
Fanatique d'Excel
Fanatique d'Excel
Messages : 16'690
Appréciations reçues : 5
Inscrit le : 21 novembre 2010
Version d'Excel : 2003 FR (learning 2010 - 2013)

Message par Banzai64 » 16 octobre 2014, 13:57

Bonjour

Je ne comprends pas ta question
Si tu sais que ta TextBox1 est une date, pourquoi remettre en date la TextBox1 ?
b
belsamis010975
Membre habitué
Membre habitué
Messages : 73
Inscrit le : 14 juin 2013
Version d'Excel : 2010FR

Message par belsamis010975 » 16 octobre 2014, 14:20

J'ai du mal exprimer ce que je voulais dire.
Actuellement Lorsque je remplis une textbox ou il y a une date, une fois la modif apportée je regarde la feuille FICHIER DE BASE je fais un filtre sur la colonne (G) par ex. Les anciennes dates sont classées par années et celle que je viens de modifier et écrite jj/mm/aa, elle n'est pas réintégré dans l'année concernée.
Capture écran pour mon explication hasardeuse.
dates.jpg
Avatar du membre
Banzai64
Fanatique d'Excel
Fanatique d'Excel
Messages : 16'690
Appréciations reçues : 5
Inscrit le : 21 novembre 2010
Version d'Excel : 2003 FR (learning 2010 - 2013)

Message par Banzai64 » 16 octobre 2014, 15:32

Bonjour

Problème des boucles sur les contrôles, s'ils n'ont pas les mêmes type de données

Voir dans la procédure Private Sub ToggleButton1_Click()
A tester
belsamis010975 Base de données V007.xlsm
(281.2 Kio) Téléchargé 15 fois
b
belsamis010975
Membre habitué
Membre habitué
Messages : 73
Inscrit le : 14 juin 2013
Version d'Excel : 2010FR

Message par belsamis010975 » 17 octobre 2014, 15:11

Bonjour Banzaï,

J'ai repéré la boucle qui fonctionne sur la procédure Private Sub ToggleButton1_Click()
Ws.Range("G" & ligne).NumberFormat = "dd/mm/yy;@" ' format de cellule date avec l'année sur 2 chiffres = OK FONCTIONNE PARFAITEMENT,
Par contre sur l'useform MACHINES rien à faire les colonnes BE;BF;BV;BW;BX;BY;CA et CO équivalent aux Textbox 35;36;52-55;57 et 71.
J'ai remplacé
Ws.Range("G" & ligne).NumberFormat = "dd/mm/yy;@
par

Range(ligne & 52).NumberFormat = "dd/mm/yy;@ au cas ou (52) étant le n° de la colonne date précèdante SAV.
Pareil pour le Useform NOUVEAU_CONTACT rien à faire.
Ws.Range("G" & L).NumberFormat = "dd/mm/yy;@" ' format de cellule date avec l'année sur 2 chiffres

Je pète un plomb trop compliqué pour moi.
belsamis010975 Base de données V007.xlsm
(273.06 Kio) Téléchargé 13 fois
Avatar du membre
Banzai64
Fanatique d'Excel
Fanatique d'Excel
Messages : 16'690
Appréciations reçues : 5
Inscrit le : 21 novembre 2010
Version d'Excel : 2003 FR (learning 2010 - 2013)

Message par Banzai64 » 17 octobre 2014, 15:55

Bonjour

A tester
belsamis010975 Base de données V008.xlsm
(298.21 Kio) Téléchargé 13 fois
b
belsamis010975
Membre habitué
Membre habitué
Messages : 73
Inscrit le : 14 juin 2013
Version d'Excel : 2010FR

Message par belsamis010975 » 20 octobre 2014, 17:12

Bonjour Banzaï,

Le code que tu as fait fonctionne super,
J'ai essayé de l'adapter sur le userform NOUVEAU_CONTACT et comme d'hab ça foire.

Problème de date non convertit
le total machines et accessoires qui ne se reporte pas sur la feuille.
TEST USEFORM 13 final bis9.xlsm
(270.31 Kio) Téléchargé 20 fois
Avatar du membre
Banzai64
Fanatique d'Excel
Fanatique d'Excel
Messages : 16'690
Appréciations reçues : 5
Inscrit le : 21 novembre 2010
Version d'Excel : 2003 FR (learning 2010 - 2013)

Message par Banzai64 » 20 octobre 2014, 17:32

Bonjour

Il faut que me dises/notes les TextBox ainsi que les cellules correspondantes qui peuvent avoir une date
b
belsamis010975
Membre habitué
Membre habitué
Messages : 73
Inscrit le : 14 juin 2013
Version d'Excel : 2010FR

Message par belsamis010975 » 21 octobre 2014, 08:34

Bonjour Banzaï,

ok voici les textbox qui recevrons des dates : textbox 4, 10, 110-111, 52 à 55, 57, 71
Les totaux sont les textbox 124 pour les machines le calcul se fait bien dans textbox mais elle ne s'inscrit pas sur la feuille colonne Y et 125 pour les accessoires elle doit s'inscrire en colonne DF.
Et pareil mettre La X si le total machine sup à 0 textbox126 colonne X.

Merci
TEST USEFORM 13 final bis9.xlsm
(270.31 Kio) Téléchargé 10 fois
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message