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
b
belsamis010975
Membre habitué
Membre habitué
Messages : 71
Inscrit le : 14 juin 2013
Version d'Excel : 2010FR

Message par belsamis010975 » 30 septembre 2014, 17:14

Bonjour tout le monde,

Voici mon problème actuel, j'ai un useform avec beaucoup de textbox exactement 87

Pour le moment mon soucis. Je souhaiterai que les textbox soit en format numérique et non en texte.
Pour les textbox de 4 à 34 et de 75 à 87 dans le useform Machines.

Je suis perdu

Cordialement

Samy
TEST USEFORM 7ter a tester.xlsm
(184.54 Kio) Téléchargé 26 fois
Avatar du membre
Banzai64
Fanatique d'Excel
Fanatique d'Excel
Messages : 16'726
Appréciations reçues : 3
Inscrit le : 21 novembre 2010
Version d'Excel : 2003 FR (learning 2010 - 2013)

Message par Banzai64 » 30 septembre 2014, 17:31

Bonjour

Ah cela ne va pas être possible

Les contrôles sont en texte, il ne te reste plus qu'à convertir ce texte en numérique

Ce que je ferai (mais je ne connais pas tout)

Dans la procédure Userform_Initialize
Private Sub UserForm_Initialize()
Dim J As Long
Dim I As Integer

  For I = 4 To 34
    Me.Controls("TextBox" & I).Tag = "X"  ' Repère les TextBox numériques
  Next I
  For I = 75 To 87
    Me.Controls("TextBox" & I).Tag = "X"  ' Repère les TextBox numériques
  Next I
  
  Set Ws = Sheets("FICHIER DE BASE") 'Attention ce nom doit correspondre au nom de votre ONGLET
Ensuite tes boucles de recopie peuvent ressembler à ça
Private Sub CommandButton2_Click()

  Dim Ligne As Long
  Dim I As Integer
  If MsgBox("Etes-vous certain de vouloir modifier ce produit ?", vbYesNo, "Demande de confirmation") = vbYes Then
    If Me.ComboBox1.ListIndex = -1 Then Exit Sub
    Ligne = Me.ComboBox1.ListIndex + 2
    For I = 1 To 87
      If Me.Controls("TextBox" & I).Visible = True Then
        If Me.Controls("TextBox" & I).Tag = "X" Then
          Ws.Cells(Ligne, I + 22) = Val(Replace(Me.Controls("TextBox" & I), ",", "."))
        Else
          Ws.Cells(Ligne, I + 22) = Me.Controls("TextBox" & I)
        End If
      End If
    Next I
  End If
End Sub
Image
b
belsamis010975
Membre habitué
Membre habitué
Messages : 71
Inscrit le : 14 juin 2013
Version d'Excel : 2010FR

Message par belsamis010975 » 2 octobre 2014, 13:21

Bonjour Banzaî,

Merci pour ton aide, ça fonctionne nikel, un petit problème cependant persiste.
Le useform NOUVEAU_CONTACTS ne veut pas accepter le code que tu as fait, j'ai essayé de l'adapter mais rien ne se passe.
Est-il possible d'avoir un coup de main.

Cordialement

Samy
TEST USEFORM 8.xlsm
(218.33 Kio) Téléchargé 16 fois
Avatar du membre
Banzai64
Fanatique d'Excel
Fanatique d'Excel
Messages : 16'726
Appréciations reçues : 3
Inscrit le : 21 novembre 2010
Version d'Excel : 2003 FR (learning 2010 - 2013)

Message par Banzai64 » 2 octobre 2014, 14:10

Bonjour

Attention pas testé car je ne sais pas quoi il faut rentrer dans tes Textbox (il y en a trop :? )
belsamis010975 Recopie Contrôles en nombre V001.xlsm
(212.22 Kio) Téléchargé 19 fois
Image
b
belsamis010975
Membre habitué
Membre habitué
Messages : 71
Inscrit le : 14 juin 2013
Version d'Excel : 2010FR

Message par belsamis010975 » 6 octobre 2014, 09:46

Bonjour Banzaï,

Désolé du retard , merci c'est exactement ce que je voulais faire. Merci encore tout seul je serais encore en train de ramer.
J'ai une autre question bien évidement si possible.

Toujours sur le même fichier.

Avant sur ce fichier j'avais un code qui mettait en jaune toute(s) les cellules modifiées de la colonne D à T et une X en colonne C, maintenant que je passe par un useform GESTION_CONTACTS UNIQUEMENT il surligne automatiquement en jaune la ligne de la colonne D à T et non pas les textbox qui ont été modifiée(s).

Ma macro se trouve sur l'onglet feulle3 (FICHIER DE BASE) et le module 2

Est ce possible de réaliser ce que je souhaite.

En vous remerciant d'avance de l'aide apportée.

Cordialement

Samy
TEST USEFORM 10.xlsm
(203.4 Kio) Téléchargé 14 fois
Avatar du membre
Banzai64
Fanatique d'Excel
Fanatique d'Excel
Messages : 16'726
Appréciations reçues : 3
Inscrit le : 21 novembre 2010
Version d'Excel : 2003 FR (learning 2010 - 2013)

Message par Banzai64 » 6 octobre 2014, 13:40

Bonjour

A tester
belsamis010975 Repérage cellules modifiées V001.xlsm
(209.83 Kio) Téléchargé 18 fois
Image
b
belsamis010975
Membre habitué
Membre habitué
Messages : 71
Inscrit le : 14 juin 2013
Version d'Excel : 2010FR

Message par belsamis010975 » 6 octobre 2014, 15:11

Bonzaï,

Je sais pas comment te remercier mais sans toi je n'aurai jamais pu avancer aussi vite.
Mes tous derniers problèmes et mon useform et terminé car il va servir à 35 personnes pour une base de 15 000 clients.

Toujours dans GESTION_CONTACTS pour la textbox17 et la 19:
La textbox17 fasse référence la textbox16 les données sont dans l'onglet (CODE REVENDEUR) en textbox16 dés que la personne tape le code revendeur que le nom s'y inscris automatiquement comme une recherccheV.

Pareil pour la textbox19 elle fait référence à l'onglet (CATEGORIE) dés que l'utilisateur écrit la caté que le nom s'y inscrit.

Est il possible dans l'useform Machine de remplacer la textbo1 par la conbobox3, initialement il aura un choix mais qui peut être remplacer par un autre onglet motif.X cellule A1-A7
Et le must faire une une addition dans la textbox 3 des textbox de l'useform machines des (textbox4 à 34 et de 75 )
et la somme dans la textbox88 des textbox 75-87.

Je sais ces beaucoup de choses.
Je n'abuserai plus terminé pour moi.
TEST USEFORM 11.xlsm
(208.26 Kio) Téléchargé 17 fois
Avatar du membre
Banzai64
Fanatique d'Excel
Fanatique d'Excel
Messages : 16'726
Appréciations reçues : 3
Inscrit le : 21 novembre 2010
Version d'Excel : 2003 FR (learning 2010 - 2013)

Message par Banzai64 » 6 octobre 2014, 16:15

Bonjour

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

Message par belsamis010975 » 7 octobre 2014, 09:31

Bonjour Banzaî,

Oups il me manque une chose est il possible de remplacer les textbox: j'ai essayé le code que vous m'avez écrit mais rien ne se passe.

useform GESTION_CONTACTS
textbox14 par combobox2
textbox18 par combobox18

useform MACHINES
textbox70 par combobox2

Pour les textbox qui contiennes des dates
j'ai mis le code suivant, le problème c'est que je ne peux pas mettre les dates que je veux, lorsque j'écris 0 ou autre chose, il met automatiquement xxx/xxx/xx.

Private Sub TextBox52_Change()
TextBox52.Text = Format(TextBox52.Value, "dd/mm/yy")
End Sub

vraiment fini
Avatar du membre
Banzai64
Fanatique d'Excel
Fanatique d'Excel
Messages : 16'726
Appréciations reçues : 3
Inscrit le : 21 novembre 2010
Version d'Excel : 2003 FR (learning 2010 - 2013)

Message par Banzai64 » 7 octobre 2014, 13:52

Bonjour

J'ai pris une méthode simplifiée, sinon il fallait reprendre la majorité du code
Et encore je n'ai pas trop testé donc à toi de dire si pas de problème

A vérifier
belsamis010975 Base de données V002.xlsm
(213.78 Kio) Téléchargé 30 fois
Image
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message