1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. Visual Basic 6

Deplacer des feuilles puis les regrouper dans un classeur si condition vérifiéé [Résolu]

Signaler
Messages postés
15
Date d'inscription
vendredi 16 janvier 2009
Statut
Membre
Dernière intervention
2 janvier 2015
 -
Messages postés
15
Date d'inscription
vendredi 16 janvier 2009
Statut
Membre
Dernière intervention
2 janvier 2015
 -
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
Afficher la suite

3 réponses

Réponse 1 / 3
Messages postés
31217
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
28 janvier 2021
 342
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
Réponse 2 / 3
Messages postés
31217
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
28 janvier 2021
 342
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
Réponse 3 / 3
Messages postés
15
Date d'inscription
vendredi 16 janvier 2009
Statut
Membre
Dernière intervention
2 janvier 2015
je m'excuse de ce retard mon pb c'est seulement la première feuille qui se deplace.
merci
Répondre Posez votre question