Discussion :

[Joachim49]

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.

[Invité]

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

[ouskel'n'or]

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é

[fring]

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

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

Salut Ousk, petit télescopage...

[AlainTech]

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.

[Joachim49]

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

[tomy7]

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!

[Joachim49]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ucfoutu]

Bonjour,

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

sa propriété value est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

tbdesign.Value

et non

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TextBox(tbdesign).Value

[tomy7]

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