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

canet_nicolas

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

  • FichierForum.xlsm
    220.6 KB · Affichages: 22

job75

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

A+
 

canet_nicolas

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

  • FichierForum.xlsm
    221.2 KB · Affichages: 4

eriiic

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

Statistiques des forums

Discussions
311 733
Messages
2 082 015
Membres
101 868
dernier inscrit
pierreselo33