Bonjour à tous;
Je viens solliciter votre expertise pour résoudre le problème suivant: j'ai créé un fichier avec des plusieurs feuilles. L'utilisateur peut ajouter des lignes (projet) grâce à cette macro:
Sub Insertproject()
' Insertproject Macro
Application.EnableEvents = False
Rows("10:22").Select
Selection.EntireRow.Hidden = False
Rows("11:21").Select
Selection.Copy
[A65536].End(xlUp).Select
Selection.Insert Shift:=xlDown
ActiveSheet.Paste
Application.CutCopyMode = False
Rows("11:21").Select
Selection.EntireRow.Hidden = True
Application.EnableEvents = True
End Sub
Cette macro fonctionne à merveille jusqu'à ce que je partage le fichier. Les messages suivants apparaissaient:
- À l'ouverture: Erreur 1004: erreur définie par l'application ou par l'objet
- Ajouter projet: Impossible de définir la propriété Hidden de la classe range
Merci de votre intérêt.
Je viens solliciter votre expertise pour résoudre le problème suivant: j'ai créé un fichier avec des plusieurs feuilles. L'utilisateur peut ajouter des lignes (projet) grâce à cette macro:
Sub Insertproject()
' Insertproject Macro
Application.EnableEvents = False
Rows("10:22").Select
Selection.EntireRow.Hidden = False
Rows("11:21").Select
Selection.Copy
[A65536].End(xlUp).Select
Selection.Insert Shift:=xlDown
ActiveSheet.Paste
Application.CutCopyMode = False
Rows("11:21").Select
Selection.EntireRow.Hidden = True
Application.EnableEvents = True
End Sub
Cette macro fonctionne à merveille jusqu'à ce que je partage le fichier. Les messages suivants apparaissaient:
- À l'ouverture: Erreur 1004: erreur définie par l'application ou par l'objet
- Ajouter projet: Impossible de définir la propriété Hidden de la classe range
Merci de votre intérêt.
Dernière édition: