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

XL 2016 Erreur d'exécution methode value de l'objet range a échoué(80010108)+plante

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion canet_nicolas
  • 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 !

S'inscrire
C

canet_nicolas

Guest
Bonjour ,

Dans le cadre de mon travail j'essaye de développer un petit fichier destiné à centraliser les retours d'expériences des utilisateurs.

Néophyte dans VBA, je me "débrouille" a chaque fois pour trouver des solutions a mes besoins, mais la depuis quelques jours je bloque.

La partie de mon code servant à écrire les informations de mon userform "FormulaireSaisieREX" fait planter excel apres avoir affiché le message d'erreur cité dans le titre.

Je précise que mon programme fait appel à un module qui déverrouille et re verrouille le fichier pour permettre ces modifications.

Je vous joins la partie qui fait buguer le fichier :

VB: 
        '''''''''''''''''''''''''''''''''''''

        '''LIGNES QUI POSENT PROBLEME !""""""

        '''''''''''''''''''''''''''''''''''''


Feuil2.Activate

Range("A3").Select
While ActiveCell <> ""
ActiveCell.Offset(1, 0).Select
Wend

ActiveCell.Value = Reference
ActiveCell.Offset(0, 1).Value = Palier
ActiveCell.Offset(0, 2).Value = Arret
ActiveCell.Offset(0, 3).Value = RefAffaire
ActiveCell.Offset(0, 4).Value = Intitule
ActiveCell.Offset(0, 5).Value = DonneurOrdre
ActiveCell.Offset(0, 6).Value = Date
ActiveCell.Offset(0, 7).Value = FNC
ActiveCell.Offset(0, 8).Value = FCE
ActiveCell.Offset(0, 10).Value = Entreprise
ActiveCell.Offset(0, 11).Value = CategorieREX
ActiveCell.Offset(0, 12).Value = SousCategorieREX
ActiveCell.Offset(0, 13).Value = SaisieREX
ActiveCell.Offset(0, 14).Value = Createur
ActiveCell.Offset(0, 16).Value = 1
ActiveCell.Offset(0, 17).Value = Site
ActiveCell.Offset(0, 18).Value = Groupe
       ActiveCell.Offset(0, 19).Value = RefNum
J'anticipe les réponses me disant que la methode d'attribution des différentes variables du formulaire n'est pas la meilleure : je sais ... mais dans tous les cas j'ai essayé avec toutes les possibilités, ça n'y fait rien. Mais d'ou vient le bug?...

Vous trouverez ci-joint une version "anonymisée" du fichier.

Merci par avance

Nico
 

Pièces jointes

Trier par date Trier par votes
Bonjour canet_nicolas,

A priori ce code ne doit pas provoquer le bug mentionné.

Sauf peut-être si dans VBA il y a des références manquantes.

Allez dans VBA, menu Outils => Références et décochez celles indiquées MANQUANT.

Je ne peux pas le faire car le VBAProject est protégé par mot de passe 🙄

A+
 
Vote positif 0 Vote négatif
Bonjour job75,
Je viens de vérfier à priori il n'y a pas de références manquantes.
Désolé pour le mot de passe du VBAProject je pensais l'avoir retiré ...
Je remets un fichier non verrouillé si jamais.
Merci ! a+
 

Pièces jointes

Vote positif 0 Vote négatif
Bonjour à tous,

il faut éviter les Activate et Select lorsque ce n'est pas indispensable.
Par ailleurs tu peux éviter de boucler pour trouver la ligne vide.
A tester :
VB: 
    Dim lig As Long
    With Feuil2
        lig = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
        .Cells(lig, 1).Value = Reference
        .Cells(lig, 2).Value = Palier
        .Cells(lig, 3).Value = Arret
        .Cells(lig, 4).Value = RefAffaire
        .Cells(lig, 5).Value = Intitule
        .Cells(lig, 6).Value = DonneurOrdre
        .Cells(lig, 7).Value = Date
        .Cells(lig, 8).Value = FNC
        .Cells(lig, 9).Value = FCE
        .Cells(lig, 11).Value = Entreprise
        .Cells(lig, 12).Value = CategorieREX
        .Cells(lig, 13).Value = SousCategorieREX
        .Cells(lig, 14).Value = SaisieREX
        .Cells(lig, 15).Value = Createur
        .Cells(lig, 17).Value = 1
        .Cells(lig, 18).Value = Site
        .Cells(lig, 19).Value = Groupe
        .Cells(lig, 20).Value = RefNum
    End With
en supposant que A3 est toujours rempli, ne serait-ce que par un titre.
eric
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

R
  • Question Question
XL 2021 Erreur d'exécution '-2147417848 (80010108). La méthode '-Default' de l'objet 'Range' a échoué après quelques saisies d'enregistrement
2
Réponses
23
Affichages
3 K
Rv_38
R
A
  • Question Question
XL 2016 La méthode "Value" de l'objet Range a échoué - Userform
Réponses
6
Affichages
2 K
jmfmarques
J
I
  • Question Question
la methode "formulalocal" de l'objet "range" a échoué
Réponses
10
Affichages
3 K
insosama
I
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…