Affichage erroné (de textbox vers cellule excel)
amiro2017
Messages postés
193
Date d'inscription
Statut
Membre
Dernière intervention
-
jordane45 Messages postés 38486 Date d'inscription Statut Modérateur Dernière intervention -
jordane45 Messages postés 38486 Date d'inscription Statut Modérateur Dernière intervention -
Bonsoir à tous ,
j'ai fait des recherches pour résoudre ce problème mais malhereusement ca ne marcha pas .en faite ma problème consiste à enregistrer les résultats qui sont calculé par un code vba et affichés dans des textbox .ainsi je veux copier ces résultats vers des cellules excel voici mon code:
il y avait un affichage bizzaree , ils sont des trés grandes entiers complètements différentes de celui affiché par les text box sachant que le contenu des text box sont comme ceci:
j'ai fait des recherches pour résoudre ce problème mais malhereusement ca ne marcha pas .en faite ma problème consiste à enregistrer les résultats qui sont calculé par un code vba et affichés dans des textbox .ainsi je veux copier ces résultats vers des cellules excel voici mon code:
Private Sub CommandButton4_Click()
Dim dlg As Integer
Dim J, K, L As Double
MsgBox ("Vous voulez enregister les résultats ? ,vbYesNo")
With Sheets("Feuil1")
dlg = .Range("K" & .Rows.Count).End(xlUp).Row + 1
.Range("K" & dlg).Value = TextBox6.Text
.Range("J" & dlg).Value = TextBox5.Text
.Range("L" & dlg).Value = TextBox4.Text
End With
End Sub
il y avait un affichage bizzaree , ils sont des trés grandes entiers complètements différentes de celui affiché par les text box sachant que le contenu des text box sont comme ceci:
TextBox4.Text = Application.WorksheetFunction.NormInv(0.99, m, sigma)
TextBox5.Text = Format(WorksheetFunction.Percentile(Range("B2:B" & Range("B" & Rows.Count).End(xlUp).Row - 1), 0.99), "0.0000")
T
TextBox6.Text = Format(WorksheetFunction.Percentile(Range("E2:E" & Range("E" & Rows.Count).End(xlUp).Row - 1), 0.99), "0.0000")
EDIT : Ajout des balises de code
merci d'avance !!
A voir également:
- Affichage erroné (de textbox vers cellule excel)
- Excel cellule couleur si condition texte - Guide
- Liste déroulante excel - Guide
- Proteger cellule excel - Guide
- Aller à la ligne dans une cellule excel - Guide
- Word et excel gratuit - Guide
4 réponses
Bonjour,
1 - A l'avenir, merci d'utiliser les balises de code pour poster du code sur le forum.
2 -Ensuite... pourrais tu nous expliquer plus clairement le souci rencontré ?
Evenuellement nous mettre une capture écran histoire qu'on comprenne.....
1 - A l'avenir, merci d'utiliser les balises de code pour poster du code sur le forum.
2 -Ensuite... pourrais tu nous expliquer plus clairement le souci rencontré ?
Evenuellement nous mettre une capture écran histoire qu'on comprenne.....
ah d'accord merci encore jordane45
voilà mon code : en faite c'est un bouton d'enregistrement , en effet je veux enregister des valeurs calculés par mon code VBA et affiché dans les texts box par la suite je veux les enregister dans ma feuille excel:
voici le contenu de chaque text box:
voici les résultats:
je veux maintenant transférer ces résultats dans des cellules Excel c'est pourquoi je crée un bouton enregistrer qui sert à coller ces résultats aprés les derniers lignes non vides pour la colonne K , J , L
voici le code de bouton :
voilà mon code : en faite c'est un bouton d'enregistrement , en effet je veux enregister des valeurs calculés par mon code VBA et affiché dans les texts box par la suite je veux les enregister dans ma feuille excel:
voici le contenu de chaque text box:
TextBox4.Text = Application.WorksheetFunction.NormInv(0.99, m, sigma)
TextBox5.Text = Format(WorksheetFunction.Percentile(Range("B2:B" & Range("B" & Rows.Count).End(xlUp).Row - 1), 0.99), "0.0000")
TextBox6.Text = Format(WorksheetFunction.Percentile(Range("E2:E" & Range("E" & Rows.Count).End(xlUp).Row - 1), 0.99), "0.0000")
End Sub
voici les résultats:
je veux maintenant transférer ces résultats dans des cellules Excel c'est pourquoi je crée un bouton enregistrer qui sert à coller ces résultats aprés les derniers lignes non vides pour la colonne K , J , L
voici le code de bouton :
Private Sub CommandButton4_Click()
Dim dlg As Integer
Dim J, K, L As Double
MsgBox ("Vous voulez enregister les résultats ? ,vbYesNo")
With Sheets("Feuil1")
dlg = .Range("K" & .Rows.Count).End(xlUp).Row + 1
.Range("K" & dlg).Value = TextBox6.Text
.Range("J" & dlg).Value = TextBox5.Text
.Range("L" & dlg).Value = TextBox4.Text
End With
End Sub
EDIT du second code pour y mettre le LANGAGE pour voir que la couleur fonctionne !!!
cependant le résultat dans la feuille excel est les suivants:
je suis désolé apropos les balises ca ne marche pas de même le télechargement de dernière capture d'écran
j'espère que vous comprenez le problème
j'espère que vous comprenez le problème
Les balises fonctionnent très bien.. c'est toi qui n'a toujours pas compris ce qu'il fallait faire ...
Ce n'est pourtant pas compliqué d'écrire :
<code basic>
MsgBox ("as tu enfin compris ? ,vbYesNo")
</code>
Histoire que ça s'affiche avec la couleur :
Pour ce qui est de l'image ... il nous la faut justement pour voir ce qui ne te convient pas une fois la valeur recopiée sur ta feuille excel ...
Donc refais une REPONSE et postes nous cette seconde image;
Merci
Ce n'est pourtant pas compliqué d'écrire :
<code basic>
MsgBox ("as tu enfin compris ? ,vbYesNo")
</code>
Histoire que ça s'affiche avec la couleur :
MsgBox ("as tu enfin compris ? ,vbYesNo")
Pour ce qui est de l'image ... il nous la faut justement pour voir ce qui ne te convient pas une fois la valeur recopiée sur ta feuille excel ...
Donc refais une REPONSE et postes nous cette seconde image;
Merci
TextBox4.Text = Application.WorksheetFunction.NormInv(0.99, m, sigma)
TextBox5.Text = Format(WorksheetFunction.Percentile(Range("B2:B" & Range("B" & Rows.Count).End(xlUp).Row - 1), 0.99), "0.0000")
TextBox6.Text = Format(WorksheetFunction.Percentile(Range("E2:E" & Range("E" & Rows.Count).End(xlUp).Row - 1), 0.99), "0.0000")
End Sub
A mon avis .. tu peux te poser ces deux questions :
- Quel est le format de tes cellules Excel ?
- Quel est le séparateur décimal configuré sur ton Excel ?
(et avant de me demander ce que c'est ou comment on regarde... je t'indique que la réponse se trouve très... très ... très .. facilement via ton moteur de recherche favori ...)
Bonne soirée.
- Quel est le format de tes cellules Excel ?
- Quel est le séparateur décimal configuré sur ton Excel ?
(et avant de me demander ce que c'est ou comment on regarde... je t'indique que la réponse se trouve très... très ... très .. facilement via ton moteur de recherche favori ...)
Bonne soirée.
voici le contenu de chaque text box:
par la suite aprés le calcul des mes résultats , je veux transférer ces résultats dans des cellules Excel c'est pourquoi je crée un bouton enregistrer qui sert à coller ces résultats aprés les derniers lignes non vides pour la colonne K , J , L
voici le code :
cependant il m'affiche des valeurs complètement différentes dans les cellules excel qui nes sont pas ceux affichés dans les texts box!
je suis désolé pour les captures écrans j'ai pas l'incone d'image
merci d'avance
Si tu avais regardé l'image que je t'ai mis dans mon précédent message tu aurais vu
1 - Qu'il faut préciser le LANGAGE dans les balises de code (pour avoir la couleur)
2 - Que pour pouvoir mettre une image ... il ne faut pas utiliser les COMMENTAIRES .... (sous entendu... il faut utiliser le bouton REPONDRE AU SUJET (ou REPONDRE) qui se situe en bas de cette page )