cela fait des jours que je galère et suis allée à tous les forums mais rien. voici nom problème j'ai un classeur qui contient des feuilles par ex. 202 203 206 307 309 702 710 ainsi de suite
je souhaiterai deplacer les feuilles commencant par 2 dans un nouveau classeur qui s'appelera donnes1, puis les les feuilles commencant par 3 dans un nouveau classeur qui s'appelera donnes2, etc...
voici nom debut de code
Sub deplacer()
Dim I As Integer
Dim temp1, temp2 As Variant
On Error Resume Next
For I = 1 To Sheets.Count
If (Left(Sheets(I).Name, 1) = 2) Then
Sheets(I).Move
I = I + 1
End If
Next I
End Sub
merci
A voir également:
Deplacer des feuilles puis les regrouper dans un classeur si condition vérifiéé
Bonjour,
Tu as bien débuté ton code..
Où bloques-tu ?
As tu essayé de réaliser la manipulation en utilisant l'enregistreur de macro puis en le modifiant à ta convenance ?
Enfin la macro donnerai qq chose comme :
Sub DeplaceF()
Dim NomClaDest As String
NomClaDest = "Classeur3" ' A modifier par le nom de ton classeur de déstination
Dim Feuille As Worksheet
Dim NomFeuil As String
Application.ScreenUpdating = False
For Each Feuille In ThisWorkbook.Sheets
NomFeuil = Feuille.Name
Debug.Print NomFeuil
If Left(NomFeuil, 1) = 2 Then
Debug.Print "Déplacement de la feuille : " & NomFeuil
Feuille.Move After:=Workbooks(NomClaDest).Sheets(Sheets.Count)
End If
Next
Application.ScreenUpdating = True
End Sub
Cordialement,
Jordane,
______________________________________________________
Règles du forum à lire avant de poster une question : ICI
