Déplacer des feuilles

Bonsoir

je rencontre un petit soucis avec mon bout de code qui de me deplace des feuilles d'un classeur nommé SOURCE vers

un classeur nommé CIBLE

Option Explicit

Sub DEPLACE()

Dim i As Integer

For i = 1 To Sheets.Count
If Sheets(i).Name <> "pas touche" Then
Sheets(i).Select
Sheets(i).Move After:=Workbooks("CIBLE.xls").Sheets(3)
Windows("SOURCE.xls").Activate
End If
Next
End Sub

L'erreur apparait au niveau de l'instruction :

If Sheets(i).Name <> "pas touche"

avec le message l'indice ne correspond pas à la selection

je suis obligé de relancer ma macro plusieurs fois pour arriver à obtenir le deplacement de toutes mes feuilles du classeur SOURCE

(sauf celle qui s'appelle " pas touche") vers le classeur CIBLE .

pourtant mon code me parait etre bien ecris mais je ne vois pas ou se situe l'anomalie

En auriez vous une idée ?

Merci à vous

Bonjour

Essaies de faire le contraire: de partir de la fin en remontant

Option Explicit

Sub DEPLACE()

Dim i As Integer

For i = Sheets.Count To 1 step - 1
If Sheets(i).Name <> "pas touche" Then
Sheets(i).Select
Sheets(i).Move After:=Workbooks("CIBLE.xls").Sheets(3)
Windows("SOURCE.xls").Activate
End If
Next
End Sub

Merci banzai , ca marche tres bien par le processus inverse , mais alors qu'est ce qui expliquerai que cela ne fonctionne pas

en allant de 1 à sheets.count ? ( ecriture pourtant plus logique )

Bonjour,

Au fur et à mesure que les feuilles sont déplacées, le nombre de feuilles du classeur diminue (Sheets.count) et le numéro d’index des feuilles restantes également.

Tu ne peux donc pas utiliser Sheets(index) dans l’ordre croissant. La solution de Banzai constitue un palliatif (ordre décroissant).

Une autre proposition

 Sub DEPLACE()
Dim Ws As Worksheet
Dim i As Integer
    For Each Ws In ThisWorkbook.Worksheets
        If Ws.Name <> "pas touche" Then
            Ws.Move After:=Workbooks("Classeur3.xlsm").Sheets(3)
        End If
    Next Ws
End Sub 

A+

Ahh ok ! tout à fait Frangy Merci à toi pour ce complement d'info