Bonjour à tous,
J'ai développer un classeur avec un formulaire qui change en fonction de la situation.
Grossomodo, la personne qui rempli la feuille choisi la situation en cochant une case et le formulaire apparait. Les formulaires sont en faite sur des feuilles masquées et le fait de cocher il y a une macro qui copie le formulaire.
J'ai laisser la possibilité de changer de formulaire si la personne s'est trompé. donc suppression du 1er formulaire et copie du 2nd
Cependant j'observe une erreur lors de la suppression. Si j'ai sélectionner une liste déroulante, alors j'ai une erreur 1004. cette erreur me renvoie à la partie du code qui me permet de supprimer les images (en + du texte)
Pouvez-vous jeter un coup d'œil si l'erreur vient de mon code ? Ou si les liste déroulante sont incompatible avec ce genre de macro ?
Merci
Sub excel_download()
'
'problème plantage feuille masquée
'Figer l'écran
Application.ScreenUpdating = False
'Afficher la feuille masquée
Sheets("feuille1").Visible = True
'(général)supression de toutes les shapes puis des lignes et ensuite copie d'une feuille type vierge
'dont le point bas droit ne se trouve pas sur les lignes 1 à 3
Dim x
Dim curshapes As Shape
For Each curShape In ActiveSheet.Shapes
Set x = Intersect(curShape.BottomRightCell, Rows("1:2"))
If x Is Nothing Then curShape.Delete
Next curShape
Rows("3:100").Select
Selection.Delete Shift:=xlUp
Sheets("feuille1").Select
Rows("3:100").Select
Selection.Copy
Sheets("feuille2").Select
Rows("3:3").Select
Selection.Insert Shift:=xlDown
ActiveWindow.SmallScroll Down:=-12
Dim intColMin As Integer, intColMax As Integer
Dim intLinMin As Integer, intLinMax As Integer
intColMin = 1
intColMax = 53
intLinMin = 1
intLinMax = 80
ActiveSheet.PageSetup.PrintArea = Range(Cells(intLinMin, intColMin), Cells(intLinMax, intColMax)).Address
'Masquer la feuille
Sheets("feuille1").Visible = False
'Réactiver l'affichage écran
Application.ScreenUpdating = True
End Sub
J'ai développer un classeur avec un formulaire qui change en fonction de la situation.
Grossomodo, la personne qui rempli la feuille choisi la situation en cochant une case et le formulaire apparait. Les formulaires sont en faite sur des feuilles masquées et le fait de cocher il y a une macro qui copie le formulaire.
J'ai laisser la possibilité de changer de formulaire si la personne s'est trompé. donc suppression du 1er formulaire et copie du 2nd
Cependant j'observe une erreur lors de la suppression. Si j'ai sélectionner une liste déroulante, alors j'ai une erreur 1004. cette erreur me renvoie à la partie du code qui me permet de supprimer les images (en + du texte)
Pouvez-vous jeter un coup d'œil si l'erreur vient de mon code ? Ou si les liste déroulante sont incompatible avec ce genre de macro ?
Merci
Sub excel_download()
'
'problème plantage feuille masquée
'Figer l'écran
Application.ScreenUpdating = False
'Afficher la feuille masquée
Sheets("feuille1").Visible = True
'(général)supression de toutes les shapes puis des lignes et ensuite copie d'une feuille type vierge
'dont le point bas droit ne se trouve pas sur les lignes 1 à 3
Dim x
Dim curshapes As Shape
For Each curShape In ActiveSheet.Shapes
Set x = Intersect(curShape.BottomRightCell, Rows("1:2"))
If x Is Nothing Then curShape.Delete
Next curShape
Rows("3:100").Select
Selection.Delete Shift:=xlUp
Sheets("feuille1").Select
Rows("3:100").Select
Selection.Copy
Sheets("feuille2").Select
Rows("3:3").Select
Selection.Insert Shift:=xlDown
ActiveWindow.SmallScroll Down:=-12
Dim intColMin As Integer, intColMax As Integer
Dim intLinMin As Integer, intLinMax As Integer
intColMin = 1
intColMax = 53
intLinMin = 1
intLinMax = 80
ActiveSheet.PageSetup.PrintArea = Range(Cells(intLinMin, intColMin), Cells(intLinMax, intColMax)).Address
'Masquer la feuille
Sheets("feuille1").Visible = False
'Réactiver l'affichage écran
Application.ScreenUpdating = True
End Sub