Probleme de chargement de textbox

Bonjour,

Ci-joint mon fichier contenant un userform, il fonctionne bien, mais j'ai les problèmes suivants :

- quand je sélectionne un article et j'ouvre le userform, le contenu des textbox ne s'affiche que dans je clique la dessus,

- quand la base de donnée s'étend sur 500 ou 700 articles, l'échange de données entre le userform et le tableau excel devien trop lourd, dans les deux sens, écriture ou lecture depuis le textbox, ma machine est assez puissante ( RTX 3080 , 32 gb RAM, SSD NVME ) pas de soucis de materiel,

est ce que c'est normal ? ou je dois optimiser mon vba ?

Merci

Bonjour,

- quand je sélectionne un article et j'ouvre le userform, le contenu des textbox ne s'affiche que dans je clique la dessus,

C'est tout à fait normal, vu le code utilisé

Private Sub N1_Enter()
N1.Text = Cells(ActiveCell.Row, 3).Text
End Sub

Les mise à jour de valeur doivent se faire dans

Private Sub UserForm_Initialize()
  N1.Text = Cells(ActiveCell.Row, 3).Text
End Sub

Pour le souci de lenteur, vous pouvez essayer

' Mettre en début de Sub
  Application.EnableEvents = False
  Application.Calculation = xlCalculationManual

' Mettre en fin de SUB
  Application.EnableEvents = True
  Application.Calculation = xlCalculationAutomatic

A+

Bonjour,

Merci pour la réponse,

j'ai changé mon code comme suit ,

maintenant il ne detecte pas les données du tableau, les textbox restnet vide

Private Sub Editerarticle_Initialize()

Descriptif.Text = Cells(ActiveCell.Row, 17).Text
Article.Text = Cells(ActiveCell.Row, 8).Text
APS.Text = Cells(ActiveCell.Row, 13).Text
Code.Text = N1.Value & "|" & N2.Value & "|" & N3.Text
Unité.Text = Cells(ActiveCell.Row, 9).Text
Quantié.Text = Cells(ActiveCell.Row, 10).Text
N1.Text = Cells(ActiveCell.Row, 3).Text
N2.Text = Cells(ActiveCell.Row, 4).Text
N3.Text = Cells(ActiveCell.Row, 5).Text
APD.Text = Cells(ActiveCell.Row, 14).Text
DAO.Text = Cells(ActiveCell.Row, 16).Text
DC.Text = Cells(ActiveCell.Row, 15).Text
DC.Text = Cells(ActiveCell.Row, 15).Text

End Sub

Re,

Avant d'aller plus commencer par vous former correctement au VBA

Vous ne pouvez pas faire n'importe quoi n'importe comment
Je vous ai indiqué ou il fallait mettre le code, vous ne respectez pas ce que je vous ai dit... alors normal

Bonne continuation

J'ai commencé a apprendre le VBA par moi meme, je suis architecte de formation,

j'ai suivi votre methode, ça fonctionne pour le textbox N1 ,

pour le reste, je dois recopier le meme code et changer le nom du textbox ou comment?

Merci pour votre patience

Re,

Ahmednuance a écrit :

J'ai commencé a apprendre le VBA par moi meme, je suis architecte de formation,

Perso, ce n'est pas une excuse à mes yeux, pour moi à chacun son métier

Ce que je voulais dire, c'est que le code que vous avez mis précédemment dans votre sub,
il faut la mettre dans la sub que je vous ai donné, soit 13 lignes

A+

J'ai bien compris, et ça marche très bien,

Merci infiniment !

Re,

Bonne journée

bonjour

sujet au quel j'ai repondu sur XLD je crois non( si je ne me trompe pas )?

puré le cross posting ca y va sec hein

Bonjour, Pardon mais j'ai rien compris !