Problème erreur exécution donnée

Bonjour,

Je n'ai rien touche sur le fichier mais ce dernier beug au niveau de la copie du TGI entré par l'utilisateur lors de la création de la demande de coc. La valeur doit aller se loger dans la feuille donnée mais une erreur d’exécution apparaît.

Pouvez vous m'aider ? En vous remerciant d'avance.

Bonjour,

Difficile de regarder ton code s'il est protégé par un mot de passe ...

ric

Ah oué mince, mdp : demandecoc

Bonjour,

C'est le "Tableau1" de la feuille "Données" qui est corrompu.

Une fois le tableau remplacé par un nouveau ... étant donné que c'est un tableau structuré ... je suggère cette façon d'y écrire ...

  ' Avec la feuille de destination
  Range("Tableau1").ListObject.ListRows.Add AlwaysInsert:=True    ' insère une ligne en bas
  nLig = Range("Tableau1").Rows.Count                ' mémorise la dernière ligne (celle ajoutée)
    Range("Tableau1[TGI]").Rows(nLig) = Me.ComboBox1.Value    ' écrire en utilisant les entêtes de colonnes
    Range("Tableau1[Nom]").Rows(nLig) = Me.Textnom.Text
...
...
...

ric