Microsoft 365 Code VBA

[MarcLav]

Bonjour,
Je viens vers vous car un truc c'est produit je ne sais quand, ce qui se passe c'est que mes textbox n'affiche plus la cellule qui leurs est allouée. Et rien y fait, je ne trouve pas le problème.
J'ai un USF contenant 9 Textbox, dont deux servent à des entrées de valeurs dans un tableau, les autres affiches des cellules dans lesquelles il y a le résultat d'une opération faite en amont. Les différents boutons eux servent à renvoyer la valeur saisie dans l'une des deux textbox là pour cela.

Je vous remercie de votre analyse
Marc

 

[Staple1600]

Bonjour le fil, MarcLav

=>MarcLav
Pour procéder à "l'analyse" de ton classeur, je procède selon mon habitude
1) J'inhibe le code VBA contenu dans l'Userform
(en le mettant en commentaires: =>CTRL+A=>Commenter bloc )
2) J'utilise un Initialize classique*

Private Sub UserForm_Initialize()
PRO.Value = Format(Feuil1.Range("F8").Value2, "#,##0 €")
End Sub

*: Sauf erreur de ma part, quelque soit le nom de l'Userform, on utilise toujours Userform_Initialize()
Faire ce petit test pour s'en convaincre
Mettre uniquement ce code dans l'Userform puis l'afficher

Private Sub LABONNEPAIE_Initialize()
PRO.Value = Format(Feuil1.Range("F8").Value2, "#,##0 €")
MsgBox Date, vbInformation, "test"
End Sub

Puis afficher l'Userform avec ce seul code présent.

Private Sub UserForm_Initialize()
PRO.Value = Format(Feuil1.Range("F8").Value2, "#,##0 €")
MsgBox Date, vbInformation, "test"
End Sub

On voit la différence

 

[MarcLav]

Grand Merci, la dernière solution fonctionne parfaitement. Je ne compte pas les heures de tentatives et recherche web. Ouf
Merci
Marc

 

[MarcLav]

Bonsoir,Staple1600, Je suis vraiment désolé, mais hier soir j'ai refait le code comme tu me l'as donnée et toutes mes textbox ont affichées les cellules voulues, mais depuis ce matin plus rien ne s'affiche.

Marc

 

[Staple1600]

Bonsoir le fil, MarcLav

=>MarcLav
c'est normal
C'est pour que tu puisses respecter l'adage
"Cent fois sur le métier, remets ton ouvrage"

Comme je l'ai dit précédemment, il ne faut pas renommer l'initialize mais laisser

Private Sub UserForm_Initialize()
'le code VBA prévu
End Sub

 

[MarcLav]

Staple1600​

Je te salut et remercie pour l'aide dernière, pour info mon projet fonctionne très bien, j'ai toutefois une demande, je souhaite que tout l'USF de refraichise sans avoir à le fermer ouvrir, car très nombreuses manips, je n'ai pas réussi avec Repaint et refresch.
J'aimerais que cela se fasse à chaque fois qu'une entrée (validation) soit faites, donc un truc par bouton, ou unique et automatique....
Je te remercie si tu peut m'aider sur ce petit code
Marc

 

[Staple1600]

Bonjour

Si tu le permets, je m'autocite

le gras, c'est bon dans le cochon
(pas dans les messages sur le forum, ca fatigue les yeux.

Sinon pour la question, le fichier du premier message est toujours d'actualité
Ou il existe une version plus récente (avec les corrections suite aux suggestions que je t'ai donné)
Si oui, alors postes cette nouvelle version (en prenant soin de l'anonymiser le cas échéant)

 

[MarcLav]

Ha "ce n'est pas volontaire le gras, Pour le fichier le voilà. Merci pour l'aide
Je crois que le fichier est trop volumineux apparemment, comment te le joindre ?
Marc

 

[Staple1600]

Re

Tu peux éditer ton message pour supprime le gras
(Et là ce sera volontaire)

Le fichier n'est pas passé

Il a glissé sur le gras (lol)

 

[Staple1600]

Re


Normalement, on joint un fichier exemple simplifié et allégé
(jamais l'appli originale)
Essaie de compresser en le zippant.

PS: Merci d'avoir éditer ton message
(Mes yeux te remercient)