format numérique dans un useform Le sujet est résolu
- belsamis010975
- Membre habitué
- Messages : 73
- Inscrit le : 14 juin 2013
- Version d'Excel : 2010FR
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
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
- Banzai64
- Fanatique d'Excel
- Messages : 16'726
- Appréciations reçues : 4
- Inscrit le : 21 novembre 2010
- Version d'Excel : 2003 FR (learning 2010 - 2013)
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
Ensuite tes boucles de recopie peuvent ressembler à ça
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
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

- belsamis010975
- Membre habitué
- Messages : 73
- Inscrit le : 14 juin 2013
- Version d'Excel : 2010FR
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
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
- Banzai64
- Fanatique d'Excel
- Messages : 16'726
- Appréciations reçues : 4
- Inscrit le : 21 novembre 2010
- Version d'Excel : 2003 FR (learning 2010 - 2013)
Bonjour
Attention pas testé car je ne sais pas quoi il faut rentrer dans tes Textbox (il y en a trop
)
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é 20 fois

- belsamis010975
- Membre habitué
- Messages : 73
- Inscrit le : 14 juin 2013
- Version d'Excel : 2010FR
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
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é 15 fois
- Banzai64
- Fanatique d'Excel
- Messages : 16'726
- Appréciations reçues : 4
- Inscrit le : 21 novembre 2010
- Version d'Excel : 2003 FR (learning 2010 - 2013)
Bonjour
A tester
A tester
-
- belsamis010975 Repérage cellules modifiées V001.xlsm
- (209.83 Kio) Téléchargé 19 fois

- belsamis010975
- Membre habitué
- Messages : 73
- Inscrit le : 14 juin 2013
- Version d'Excel : 2010FR
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.
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
- belsamis010975
- Membre habitué
- Messages : 73
- Inscrit le : 14 juin 2013
- Version d'Excel : 2010FR
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
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
- Banzai64
- Fanatique d'Excel
- Messages : 16'726
- Appréciations reçues : 4
- Inscrit le : 21 novembre 2010
- Version d'Excel : 2003 FR (learning 2010 - 2013)
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
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

-
- Sujets similaires
- Réponses
- Vues
- Dernier message
-
-
convertir un format inconnu en format numerique
par stoneleloup » 13 mai 2017, 22:25 » dans Excel - VBA - 8 Réponses
- 374 Vues
-
Dernier message par mbbp
17 mai 2017, 20:54
-
-
- 15 Réponses
- 283 Vues
-
Dernier message par dhany
3 septembre 2018, 06:42
-
- 3 Réponses
- 232 Vues
-
Dernier message par younserena
19 septembre 2017, 08:55
-
- 1 Réponses
- 250 Vues
-
Dernier message par bigdaddy154
26 février 2016, 15:53
-
- 3 Réponses
- 516 Vues
-
Dernier message par DS3469
7 décembre 2015, 20:58
-
- 3 Réponses
- 562 Vues
-
Dernier message par adesmarais365
13 juillet 2017, 14:26