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

Hamadou

XLDnaute Nouveau
Bonsoir ! Je besoin vraiment d'aide sur mon le message d'erreur ci:"la méthode Add de l'Objet Listrows à échoué " qui l'arrêt immédiat du classeur
 

Pièces jointes

  • BaseDonnees.xlsm
    26.8 KB · Affichages: 16

patricktoulon

XLDnaute Barbatruc
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
 

job75

XLDnaute Barbatruc
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

  • BaseDonnees.xlsm
    35.5 KB · Affichages: 4

patricktoulon

XLDnaute Barbatruc
re
bonsoir
je suis quasiment sur qu'il y a une chose a faire sur vos Windows 11
c'est pas normal un encombrement mémoire pareil

demo.gif
 

patricktoulon

XLDnaute Barbatruc
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)
 

patricktoulon

XLDnaute Barbatruc
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:

job75

XLDnaute Barbatruc
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

  • BaseDonnees(1).xlsm
    36.7 KB · Affichages: 0

patricktoulon

XLDnaute Barbatruc
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
 

Discussions similaires

Statistiques des forums

Discussions
313 309
Messages
2 097 028
Membres
106 811
dernier inscrit
MERAPYAAR