MISTERJUNGLE
XLDnaute Occasionnel
Bonsoir à tous
j'ai un problème avec une formule que j'ai emprunté a Jean Marie
Apres modif de son classeur "gestion produits"
pourtant il a marche un moment mais a force de bidouille....
Erreur d'exécution "9" :
L'indice n'appartient pas à la sélection.
formule:
Application.ScreenUpdating = False
Dim nomfeuil As String
nomfeuil = Range("D14")
Sheets(nomfeuil).Select
ActiveSheet.Unprotect
Rows("2:2").Select
Selection.Insert Shift:=xlDown
Range("A2").Select
Sheets("Formulaire").Select
Range("D14:J14").Select
Selection.Copy
Sheets(nomfeuil).Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("A:A").Select
Selection.NumberFormat = ""
Range("A2").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Formulaire").Select
Range("D14:J14").Select
Selection.ClearContents
ActiveWorkbook.Save
Range("D14").Select
Application.ScreenUpdating = True
End Sub
merci pour votre aide... et bien sur a JEAN MARIE pour son travail et partage
j'ai un problème avec une formule que j'ai emprunté a Jean Marie
Apres modif de son classeur "gestion produits"
pourtant il a marche un moment mais a force de bidouille....
Erreur d'exécution "9" :
L'indice n'appartient pas à la sélection.
formule:
Application.ScreenUpdating = False
Dim nomfeuil As String
nomfeuil = Range("D14")
Sheets(nomfeuil).Select
ActiveSheet.Unprotect
Rows("2:2").Select
Selection.Insert Shift:=xlDown
Range("A2").Select
Sheets("Formulaire").Select
Range("D14:J14").Select
Selection.Copy
Sheets(nomfeuil).Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("A:A").Select
Selection.NumberFormat = ""
Range("A2").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Formulaire").Select
Range("D14:J14").Select
Selection.ClearContents
ActiveWorkbook.Save
Range("D14").Select
Application.ScreenUpdating = True
End Sub
merci pour votre aide... et bien sur a JEAN MARIE pour son travail et partage