Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Avis d'expert !

  • Initiateur de la discussion Initiateur de la discussion chasseur44
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

chasseur44

XLDnaute Occasionnel
Bonjour à tous
Je vous sollicite pour avoir votre avis sur une de mes appli !
J'utilise un Userform afin d'alimenter une base de données classique (le Userform contient onze champs).
la méthode utilisée est des plus classique :
Je me positionne la ou il faut et :
Cells(ligne, 1).Value = TextBox1.Value
Cells(ligne, 2).Value = TextBox2.Value
Cells(ligne, 3).Value = Combobox1.Value
Cells(ligne, 4).Value = Combobox2.Value
...
Cells(ligne, 22).FormulaR1C1 = _
"=IF(RC16=0,RC18,VLOOKUP(RC16&RC17,t_es,5,FALSE))"
...

Je trouve que le temps d'alimentation est relativement long !
environ 6 secondes pour un enregistrement ! (je vous rassure c'est quand même moins long que la saisie manuelle!)
Je fais appel à votre expérience ! afin de savoir si c'est un temps normal ou la méthode utilisée n'est pas des plus rapide
Merci
 
Re : Avis d'expert !

Bonjour,

bah... fonction aussi si procédures événementielles déclenchées par ce code et / ou des re-calculs faits par les formules.... essaye peut être en utilisant ceci :
Code:
With Application
    .ScreenUpdating = False
    .Calculation = xlCalculationManual
    .EnableEvents = False
    'ton code
    .EnableEvents = True
    .Calculation = xlCalculationAutomatic
    .ScreenUpdating = True
End With

bonne journée
@+
 
Re : Avis d'expert !

bonjour,
au lieu de remplir directement chaque cellule, tu peux essayer avec un tableau et tu écris le tableau à la fin uniquement
je ne sais pas si ça sera plus rapide mais tu peux essayer..
à+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

N
  • Question Question
Réponses
5
Affichages
3 K
S
Réponses
4
Affichages
1 K
sp3ktroom
S
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…