pb multipage et pourcentage

[anneh]

Bonjour le Forum,

J'ai un soucis que je n'arrive pas à comprendre et donc à résoudre.
Sur mon userform j'ai un multipage contenant des textbox où les chiffres doivent s'afficher en %
En fonction d'un Combobox, la multipage affichera la page 1 ou la page 2
sur la première page pas de problème ça fonctionne correctement mes chiffres s'affiche bien en pourcentage par contre dès que c'est la 2ème page qui s'ouvre ça ne fonctionne plus

voici le code que j'utilise pour le pourcentage dans userforme initialize :
Dim Pourcent As Double
With TextBox12
If Not IsNumeric(.Value) Then Exit Sub
Pourcent = .Value
.Value = Format(Pourcent, "0.00%")
End With


le code pour afficher le multipage :
If ComboBox1.Value = "produit1" Then
Me.MultiPage1.Value = 0
End If
If ComboBox1.Value = "produit2" Then
Me.MultiPage1.Value = 0
End If


Je vous remercie par avance pour votre aide

 

[camarchepas]

Re : pb multipage et pourcentage

Bonjour ,

Le code ne suffit pas pour t'aider , il faudrait au moins le userform qui va avec .

 

[Paf]

Re : pb multipage et pourcentage

Bonjour

Pas sûr d'avoir tout compris et pas de classeur pour y voir clair.

Vu le code présenté, quelque soit le produit on affiche la même page ... ?

Par ailleurs il doit bien y avoir une textbox sur chaque page, or vous ne parlez que de textbox12
qui est formatée dans userform initialize , avant de recevoir une valeur ??

A+

Edit : Bonjour camarchepas

 

[anneh]

Re : pb multipage et pourcentage

Bonjour ,

Le code ne suffit pas pour t'aider , il faudrait au moins le userform qui va avec .

ci join une photo de mon userform je ne peux mettre de fichier en pièce jointe car le fichier contient des données chients confidentielles par contre ke peux te donner l'ensemble de mes lignes de code

 

[anneh]

Re : pb multipage et pourcentage

cf dessous

 

[camarchepas]

Re : pb multipage et pourcentage

Re ,

Y'a pas besoin des onglets contenant les données , juste une copie de l'userform ,

et pas une image, c'est pour vérifier l'usage des bons objets .

Sans quoi , j'ai plu qu'a recharger ma boule de cristal

 

[anneh]

Re : pb multipage et pourcentage

Re ,

Y'a pas besoin des onglets contenant les données , juste une copie de l'userform ,

et pas une image, c'est pour vérifier l'usage des bons objets .

Sans quoi , j'ai plu qu'a recharger ma boule de cristal

voici l'userform

merci 😛

 

[Paf]

Re : pb multipage et pourcentage

Re,

Perdu !

Pas de code dans les classeurs xlsx. Essayer en xlsm

A+

 

[anneh]

Re : pb multipage et pourcentage

voici ! 😉

 

[camarchepas]

Re : pb multipage et pourcentage

Oups ,

Un grand bonjour Paf , j'en oublie les bonnes coutumes .

pas trop de 2 pour déficeler le sujet ....

 

[camarchepas]

Re : pb multipage et pourcentage

Alors à mon avis ,


la mise en format est bonne au niveau du code semble t-il , en chargeant à la main les valeurs , le pourcentage apparait bien ,

le problème est peut être à l'alimentation des textbox :

'hypo
TextBox158.Value = Sheets("Feuil4").Range("C55")
TextBox163.Value = Sheets("Feuil4").Range("C56")
TextBox157.Value = Sheets("Feuil4").Range("C57")
TextBox166.Value = Sheets("Feuil4").Range("C58")

TextBox159.Value = Sheets("Feuil4").Range("E55")
TextBox162.Value = Sheets("Feuil4").Range("E56")
TextBox156.Value = Sheets("Feuil4").Range("E57")

A voir

 

[Paf]

Re : pb multipage et pourcentage

re

après quelques essais, je n'ai pas réussi à reproduire le problème.

Bon courage !

 

[anneh]

Re : pb multipage et pourcentage

merci en tout cas je vais continuer à chercher sinon je mettrais un bouton pour actualiser car quand on change de page ça marche mais pas en initialisation de l'userform

merci d'y avoir regarder en tout cas si je trouve la solution je poste la réponse

 

[camarchepas]

Re : pb multipage et pourcentage

ok ,

suite à ta précision sur l'init ,

il faudrait modifier toutes les lignes concernées comme ceci :

'hypo
TextBox158.Value = Format(Sheets("Feuil4").Range("C55"), "0%")

 

[anneh]

Re : pb multipage et pourcentage

impeccable tu as trouvé la solution!!!!!!! merci beaucoup