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

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 :

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

Bonsoir,

avez-vous essayé e supprimant les "0" de vos ligne de code ? ActiveCell.OffSet(,1).value

@ bientôt

LouReeD

Bonjour,

Je viens d'essayer votre proposition, cela n'y change rien ...

Merci tout de même !

Bonjour,

Le ffeuilles sont bien déprotégées ?

@ Bientôt

LouReeD