Affichage erroné (de textbox vers cellule excel) Fermé

Question

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:

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 !!
Configuration: Configuration: Windows / Chrome 56.0.2924.87

jordane45 · Answer

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.....

amiro2017 · Answer

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: 
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:

amiro2017 · Answer

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

amiro2017 · Answer

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

Affichage erroné (de textbox vers cellule excel)

EDIT : Ajout des balises de code

4 réponses

EDIT du second code pour y mettre le LANGAGE pour voir que la couleur fonctionne !!!

Discussions similaires

Newsletters