erreur 9 : l'indice n'appartient pas à la sélection

[totty]

bonjour,

quan j'execute la macro suivante j'ai le message d'erreur en objet de ce message Merci de me dépanner:

Sub misenformeàterme()

Dim n As Integer
n = Sheets.Count

For i = 1 To n
nomfeuille = Sheets(i).Name

MsgBox (nomfeuille)

Dim debutnomfeuille As String

debutnomfeuille = Left(nomfeuille, 7)
MsgBox (debutnomfeuille)

If debutnomfeuille = "sasccat" Then

Sheets(nomfeuille).Select

'MsgBox ActiveSheet.Name
Selection.Copy
Sheets("TermeSASCCAT").Select
Range("A1").Select
ActiveSheet.Paste

Sheets(nomfeuille).Select
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
End If

Next i


End Sub

 

[CBernardT]

Bonjour Totty

C'est que la feuille "TermeSASCCAT" n'existe pas dans ton classeur.

Cordialement

CBernardT

 

[CHti160]

Salut"totty"
avec celà c'est mieux
Sub misenformeàterme()

Dim Ws As Worksheet 'Ws est une feuille

For Each Ws In Worksheets ' pour chaque feuille dans la collection des feuilles (là il n'y a pas de numero)
Nomfeuille = Ws.Name ' Nomfeuille prend le nom de la feuille
MsgBox (Nomfeuille) 'et ainsi de suite

Dim debutnomfeuille As String

debutnomfeuille = Left(Nomfeuille, 7)
MsgBox (debutnomfeuille)

If debutnomfeuille = "Feuilli" Then

Sheets(Nomfeuille).Select

'MsgBox ActiveSheet.Name
Selection.Copy
Sheets("Feuil3").Select
Range("A1").Select
ActiveSheet.Paste

Sheets(Nomfeuille).Select
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
End If
Next
End Sub
A+++
Jean Marie


End Sub

 

[CHti160]

Salut " CBernardT "
Oups aujourdhui c'est moi qui n'est pas frais (enfin raffraichi)
bonjour à toi
A+++
Jean Marie

 

[CBernardT]

Bonjour Jean-Marie

Il n'y a pas de mal ! on connait son monde.

Salut

CBernardT

 

[totty]

merci beaucoup les amis