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 » 21 octobre 2014, 11:53

Bonjour

A tester
belsamis010975 Base de données V010.xlsm
(281.73 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 » 21 octobre 2014, 13:43

Bonjour

Les totaux ne s'affichent pas en colonne Y = textob124 et colonne DF = texbox125.
Pour le reste génial.

Dernière question et je clôture le sujet sur le useform.

GESTION_CONTACT tu as mis le code qui permet de mettre une X en colonne C si une des textbox est modifiée, idéalement il faudrait que la X soit affichée que si une des textbox a partir de la textbox3 et non à partir de la textbox1 soit modifiée
Exemple :

Si on modifie la colonne B=texbox1 alors ne rien faire, si colonne D à T= textbox 3 à 19 alors X en colonne C= texbox2.

Cordialement

Samy
TEST USEFORM 13 final bis10.xlsm
(274.85 Kio) Téléchargé 12 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 » 21 octobre 2014, 13:56

Bonjour

Modifies la ligne correspondante dans la procédure Private Sub ToggleButton1_Click()
        Else
          Ws.Cells(ligne, I + 1) = Me.Controls("TextBox" & I)   ' On écrit la nouvelle valeur
        End If
       [surligner]If I > 2 Then[/surligner]Ws.Range("C" & ligne) = "X"     ' On note "Modification"
      End If
    End If
  Next I
b
belsamis010975
Membre habitué
Membre habitué
Messages : 73
Inscrit le : 14 juin 2013
Version d'Excel : 2010FR

Message par belsamis010975 » 21 octobre 2014, 15:24

Ca fonctionne pour la modification.

Par contre les totaux dans NOUVEAUX_CONTACTS pour les machines et thermos se font bien dans le userform mais ils ne veulent pas s'inscrire sur la feuille de calcul.
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 » 21 octobre 2014, 15:49

Bonjour
belsamis010975 a écrit :Par contre les totaux dans NOUVEAUX_CONTACTS pour les machines et thermos se font bien dans le userform mais ils ne veulent pas s'inscrire sur la feuille de calcul.
Je croyais que tu l'avais fait

2 lignes à écrire ce n'est pas compliqué

Rajoutes dans la procédure Private Sub CommandButton1_Click()
      .Range("Y" & L).Value = Me.TextBox124.Value
      .Range("DF" & L).Value = Me.TextBox125.Value
b
belsamis010975
Membre habitué
Membre habitué
Messages : 73
Inscrit le : 14 juin 2013
Version d'Excel : 2010FR

Message par belsamis010975 » 23 octobre 2014, 10:48

Bonjour Banzaï,

Est ce qu'il est possible de faire ça, j'explique mon truc.
J'ai adapté un code à mon projet, sauf qu'il fait référence qu'à une colonne (BV) en fait je souhaiterai à l'ouverture du userform qu'il me propose de choisir les colonnes à filtrer de BV à BY le userform s'appel F_calendrier2dates une fois le choix fait l'utilisateur puisse faire son choix de dates.

Cordialement
TEST USEFORM 13 final bis10.xlsm
(291.33 Kio) Téléchargé 10 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 » 23 octobre 2014, 14:11

Bonjour

Je ne comprends rien :noyade:
belsamis010975 a écrit :J'ai adapté un code à mon projet, sauf qu'il fait référence qu'à une colonne (BV)
Comment ça il ne fait référence qu'à cette colonne, explique clairement ?
Où dans le code tu fais référence à cette colonne pour afficher un enregistrement ?
belsamis010975 a écrit :il me propose de choisir les colonnes à filtrer de BV à BY
Pourquoi filtrer ?
Lors des modifications/ajout les données vont suivre ?
b
belsamis010975
Membre habitué
Membre habitué
Messages : 73
Inscrit le : 14 juin 2013
Version d'Excel : 2010FR

Message par belsamis010975 » 23 octobre 2014, 15:17

Salut Banzaï,

En fait je veux simplifier l'utilisation de ce fichier car beaucoup d’utilisateur ont du mal à l’exploiter correctement vu le nombre de colonne.
Les dates SAV sont les principales données dont ils ont besoin quotidiennement. Donc j’ai mis ce code pour qu’ils puissent facilement filtrer les clients qu’ils doivent voir rapidement.
Comme j’ai des dates : précédentes SAV / dernières SAV / visite commerciale /visite d’urgence / visite prévu le
Colonne : BV / BW / BY / CA

Ce que je souhaiterai qu’en cliquant sur « filtre dates SAV » j’ai créé 4 boutons qui font références aux colonnes indiquées. Le problème faut-il que je recopie le code à chaque bouton, ou il y a un code qui pourrait afire autrement.

Voici le code pour l’instant seul le bouton Date précédente visite SAV fonctionne.

Private Sub Bfiltre_Click()
If Not IsDate(Me.date_début) Or Not IsDate(Me.date_fin) Then Exit Sub
[A1].AutoFilter Field:=[color=#FFFF00]74,[/color] Criteria1:=">=" & Format(CDate(Me.date_début), "mm/dd/yy"), _ (pour la 74eme colonne)
Operator:=xlAnd, Criteria2:="<=" & Format(CDate(Me.date_fin), "mm/dd/yy")
End Sub
TEST USEFORM 13 final bis10a.xlsm
(298.75 Kio) Téléchargé 11 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 » 23 octobre 2014, 15:50

Bonjour

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

Message par belsamis010975 » 24 octobre 2014, 13:29

Je tiens à te remercier Banzaï pour toute l'aide que tu m"as apporter pour finaliser mon projet.
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message