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

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 !

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

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

Je ne me suis pas occupé du traitement de la date en 5ème colonne.

Il faut traiter cette date en utilisant CDate si c'est bien une date.

Ou bien entrer cette date dans la TextBox avec le format US mm/jj/aaaa.
 
Bonjour Patrick ! Vraiment je ne sais pas comment vous remercier , j'ai mes entêtes qui s'affiche et le code qui fonctionne parfaitement , c'est ce que j'ai recherché à réaliser depuis là merci pour votre expertise
 
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


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


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


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

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

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




10°vous obtenez ça


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
346
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…