Erreur d'exécution "9" :

[MISTERJUNGLE]

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

 

[Cousinhub]

Re : Erreur d'exécution "9" :

Bonsoir,

soit la cellule D14 est vide, soit la valeur de la cellule D14 ne correspond pas EXACTEMENT à un nom d'onglet..

Sinon, peut-être en rajoutant un .Value, après :

nomfeuil = Range("D14")[COLOR="Red"].Value[/COLOR]

Peut-être??

Edit, peut-être lances-tu le code à partir d'une autre feuille?

 

[ledzepfred]

Re : Erreur d'exécution "9" :

Bonsoir Misterjungle

Dim nomfeuil As String
nomfeuil = Range("D14")
Sheets(nomfeuil).Select

Si cela bugue c'est parce que le feuillet dont le nom est défini en D14 n'existe pas dans ton fichier

Edit : bonsoir bh2

A+

 

[MISTERJUNGLE]

Re : Erreur d'exécution "9" :

Re_ le forum

ci joint le fichier pour facilite la tache...
En vous remerciant par avance

 

[Cousinhub]

Re : Erreur d'exécution "9" :

Re-,

euh, regarde la valeur de la cellule E15...

 

[MISTERJUNGLE]

Re : Erreur d'exécution "9" :

RE_bhbh

elle me parait bonne, la valeur et le format
éclaire moi si possible (mes yeux se ferme!!)

 

[Cousinhub]

Re : Erreur d'exécution "9" :

Re-,

et remplace ton code par celui-ci :

Sub Valider()
Application.ScreenUpdating = False
Dim nomfeuil As String
nomfeuil = Range("E15").Value
With Sheets(nomfeuil)
    .Unprotect
    .Rows("2:2").Insert Shift:=xlDown
    Range("D15:J15").Copy
    .Range("A2").PasteSpecial Paste:=xlPasteValues
    .Columns("A:A").NumberFormat = "0"
    .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End With
Range("D15:J15").ClearContents
ActiveWorkbook.Save
Application.ScreenUpdating = True
End Sub

 

[MISTERJUNGLE]

Re : Erreur d'exécution "9" :

Bonjour le Forum

un grand MERCI a bhbh pour son aide ,le Dimanche commence bien
Travail excellent...
A +