Bonjour forum, ça faisait longtemps...
Je viens vers vous avec un problème qui m'occupe depuis ce matin.
J'ai cette macro, qui copie une ligne (servant de modèle, elle porte des formules et des mises en formes) et l'insère plus bas. Puis affecte quelques valeurs.
Rien de bien compliqué en apparence...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16 Option Explicit Sub lignelibre() ligins = ActiveCell.Row ligmod = 1 Rows(ligmod).Copy Rows(ligins).Insert Shift:=xlDown Application.CutCopyMode = False Selection.EntireRow.Hidden = False 'comme la ligne modèle est masquée, il faut afficher la ligne qu'on vient d'insérer Cells(ligins, "c").Value = "" Cells(ligins, "h").Value = "Sans onglet" Cells(ligins, "i").Value = "" Cells(ligins, "j").Value = "Saisir PV ici" End Sub
Cette macro fonctionne bien si je la lance à l'ouverture du fichier.
Mais dès que je fais autre chose (supprimer une ligne, effacer un contenu...) ma macro plante en ligne 8 avec ce message :
Erreur Automation
L'objet invoqué s'est déconnecté de ces clients.
Et là, je ne peux plus rien sélectionné et je dois forcer l'arrêt d'Excel.
J'ai essayé en affichant ma ligne modèle, qui normalement est masquée : pareil
J'ai supprimé tout ce qu'il y avait dans Worksheet change, workbook sheet change, worksheet selection change et qui me semblait pouvoir avoir une influence sur le sujet: pareil
Il me reste du code dans Workbook_beforeprint, beforesave, deactivate, open et sheetbeforerightclick mais je ne vois pas comment ça pourrait avoir une influence.
Auriez vous une piste de recherche?
Merci d'avance
Partager