Microsoft 365 Code VBA

Staple1600

XLDnaute Barbatruc

• 13 Mars 2021

• #2

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*

VB:

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

VB:

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.

VB:

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

On voit la différence

 

Vote positif 0 Vote négatif

Solution

M

MarcLav

XLDnaute Nouveau

• 13 Mars 2021

• #3

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

 

Vote positif 0 Vote négatif

M

MarcLav

XLDnaute Nouveau

• 14 Mars 2021

• #4

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

 

Dernière édition: 14 Mars 2021

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Mars 2021

• #5

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

Enrichi (BBcode):

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

 

Vote positif 0 Vote négatif

M

MarcLav

XLDnaute Nouveau

• 5 Avril 2021

• #6

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

 

Dernière édition: 5 Avril 2021

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 5 Avril 2021

• #7

Bonjour

Si tu le permets, je m'autocite

Staple¸ p'tit gars aux yeux fragiles¸ à dit:

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

Cliquez pour agrandir...

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)

 

Vote positif 0 Vote négatif

M

MarcLav

XLDnaute Nouveau

• 5 Avril 2021

• #8

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 5 Avril 2021

• #9

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)

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 5 Avril 2021

• #10

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)

 

Vote positif 0 Vote négatif