Lenteur d'exécution d'une macro d'une Userform

Bonjour,

j'ai vu pas mal de chose sur le forum concernant la lenteur d'exécution de macro mais pas la réponse à mon problème a priori.

Le userform joint permet de remplir des cases dans une feuille excel.

Tout d'abord, j'avais prévu de remplir ces cases lorsque l'utilisateur clique sur OK. Mais l'exécution de la macro est lente.

J'ai donc pensé dispatcher le remplissage des cellules excel chaque fois que je sors d'une case ou d'une frame du userform, mais ça n'accélére pas significativement l'exécution de la macro.

Quelqu'un a-t-il une solution ?

Merci d'avance.

Bonjour

Peux-t-on voir le code que tu utilises pour remplir tes cellules, car ce n'est pas l'UserForm qui van nous donner des indications.

Starec

La miniature ne nous apporte rien sur le fonctionnement de ta macro. Par contre, le code nous permettrait de voir s'il peut être amélioré ;)

Bonjour,

Par téléphone, en disant au garagiste "ma voiture est en panne, qu'est ce qu'elle a ?", je ne pense pas qu'il va pouvoir te dépanner :mrgreen:

En clair, ça serait bien de coller le fichier ou le code pour pouvoir essayer de trouver la cause ;)

Salut Ousk, petit télescopage...

Quand une macro Excel est lente, dans nonante (et hop, un peu de belge) pour cent des cas, c'est un problème de recalcul automatique.

=> le désactiver avant la mise à jour et le réactiver après.

Bonjour,

voici le code de la Userform.

Je vais chercher de mon côté sur les tableaux, car quelque chose me dit que c'est la que je vais trouvé un début de réponse.

Merci d'avance pour votre contribution à la résolution de mon énigme.

Bonne Journée à tous et à chacun.

joachim

je pense que tbdesign ,tb....,tb.... sont des textbox ou combobox ?

donc pour moi tu peux mettre directement:

Dans le sub de ton bouton ok sur ton userforms:

worksheets("nomdetafeuille").range("cellule que tuveux").value= textbox(ici num de tom textbox).value

et tu fais sa pour tous...

end sub


et ton programme ne ramera pas pour sa!

Bonjour,

j'ai modifié mon code comme suit, juste le début. Lorsque je lance l'exécution j'ai un message d'erreur et Textbox est sélectionné.

Il y a-t-il quelque chose que je n'ai pas saisi au sens propre comme au figuré ?

Salutations.

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub btnOK_Click()   Sheets("SAISIE").Cells(ligne, 7).Value = TextBox(tbdesign).Value   With Sheets("Base Budget")   .Cells(l, 2).Value = TextBox(tbdesign).Value .Cells(l, 4) = "saisie" .Cells(l, 5) = "saisie" .Cells(l, 7).Value = TextBox(tbacab).Value

---

Bonjour,

Si comme je le pense tbdesign est le nom d'une textbox,

sa propriété value est :

Code:

---

tbdesign.Value

---

et non

Code:

---

TextBox(tbdesign).Value

---

oui si le nom de ta textbox est tb......

c est tbdesign.value


fais attention il faut faire une differenc entre le caption et le name

pour un bouton : le caption est ce qui est visible sur le bouton et le name ce que tu appel , test,....en VBA