deplacer des feuilles puis les regrouper dans un classeur si condition vérifiééRésolu

Question

bonjour à tous,

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

jordane45 · Accepted Answer

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

jordane45 · Answer

Re,

au passage, j'ai oublié de te mentionner la chose suivante ..

Lorsque tu colles du code dans le Forum... Il faut utiliser les balises de code

Ca rend le code plus lisible.
Essayes d'y penser lors de tes prochains messages ^^ 



Cordialement,
Jordane,
______________________________________________________
Règles du forum à lire avant de poster une question : ICI

cs_dior2009 · Answer

je m'excuse de ce retard mon pb c'est seulement la première feuille qui se deplace.
merci

Deplacer des feuilles puis les regrouper dans un classeur si condition vérifiéé

3 réponses

Votre réponse

Discussions similaires