XL 2016 la méthode Add de l'Objet Listrows à échoué

  • Initiateur de la discussion Initiateur de la discussion Hamadou
  • 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 !

re
@TooFatBoy
comme je ne l'utilise plus depuis des années
je sais plus mais il me semble que call tape dans le vent si la sub ou fonction n'est pas dans un module standard
je te dis ça mais c’était avec 2007
aujourd'hui je ne pourrais pas te dire ce qu'il en est
mais comme j'ai réussi à m'en passer depuis toutes ces années , je ne vois pas de raison pour que je décide de m'en resservir
 
Bonjour à tous,

Chez moi sur Win 11 Excel 2019 Excel plantait.

J'ai pu y remédier avec l'ouverture différée du 2ème UserForm depuis le 1er :
VB:
Private Sub BOUTON_AJOUTER_Click()
'BOUTON AJOUTER USERFORM PRINCIPAL
Application.OnTime 1, "USF_2" 'ouverture différée
Unload Me
End Sub

Private Sub BOUTON_MODIFIER_Click()
'BOUTON MODIFIER USERFORM PRINCIPAL
If Me.ListBox1.ListIndex = -1 Then
    MsgBox "Veuillez Selectionné l'Enregistrement à Modifier", vbCritical
Else
    fmAjout.ligne = Me.ListBox1.ListIndex + 1
    Application.OnTime 1, "USF_2" 'ouverture différée
    Unload Me
End If
End Sub
Bonne nuit.
 

Pièces jointes

re
Bonjour @job75 je suis quasiment sur que c'est un problème de mémoire ou gestion MDI des fentre sur les versions excel 2019 et plus
2007 2013 2016 je n'ai aucun souci (bien que 2016 commence déjà a donner des latence d'affichage significatif)
sur 2013
demo.gif


et j'ai dans l'idée qu'il faut aller voir un peu l'accélération matériel
je me rappelle quand j’étais sur 2007 sur pc fixe et portable(portable pas très puissant) et bien j'avais résolu le problème avec l'accélération matérielle qui utilise la memoire graphique pour tout ce qui s'affiche)
 
re
touche windows(si vous avez pas l'input dans la barre des taches)
taper "paramètres graphiques" dans l'input
---------------------------------------------------------------------------

1707307055043.png

----------------------------------------------------------------------------
on arrive à la fenêtre paramètres graphiques
cliquez sur parcourir
-----------------------------------------------------------------------------------------

1707307115725.png

-----------------------------------------------------------------------------------------

rechercher excel.exe la boite de dialogue et selectionnez le

on reviens automatiquement à la fenêtre des paramètres

dans l'encart qui s'affiche avec excel cliquez options
-----------------------------------------------------------------------------------------
1707307245957.png

-----------------------------------------------------------------------------------------
la petite fenêtre des préférences graphique va s'ouvrir


dans la fenêtre "préférence graphiques sélectionnez "Performances élevées
1707307777568.png




10°vous obtenez ça
1707308076442.png


11°
cliquez enregistrer

12° fermer la fenêtres des paramètres

désormais vous allez voir des amélioration dans divers domaines dans l'utilisation d'excel
voila😉
 
Dernière édition:
Merci Patrick pour ces informations.

Plutôt qu'une ouverture différée on peut aussi ouvrir le 2ème UserForm en non modal :
VB:
Private Sub BOUTON_AJOUTER_Click()
'BOUTON AJOUTER USERFORM PRINCIPAL
Unload Me
fmAjout.Show 0 'non modal
End Sub

Private Sub BOUTON_MODIFIER_Click()
'BOUTON MODIFIER USERFORM PRINCIPAL
If Me.ListBox1.ListIndex = -1 Then
    MsgBox "Veuillez Selectionné l'Enregistrement à Modifier", vbCritical
Else
    fmAjout.ligne = Me.ListBox1.ListIndex + 1
    Unload Me
    fmAjout.Show 0 'non modal
End If
End Sub
Dans le fichier joint je traite aussi les dates avec CDate.
 

Pièces jointes

re
@job75
ouvrir le 2 en non modal si le 1 l'est aussi non?

purée je viens de faire la manip accélération matérielle
même avec des MFC très nombreuse je booste comme un dingue

sur 2016 le teste de la capture et export graphique(image blanche si on ne fait pas ton astuce du multi paste dans un do/loop)
et bien terminé çà booste comme sur 2007
 
- 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

Réponses
15
Affichages
329
Retour