Discussion :

[damich37]

Bonjour,

Je suis désolé si le sujet existe déjà mais je ne l'ai pas trouvé.

Je souhaite copier la colonne B de toute mes feuilles sauf pour ma feuille modèle sur une feuille synthèse.

Je m'explique, je réaliser un fichier de suivi d'affaires et j'aimerai pouvoir avoir un folio qui me regroupe mes informations importantes de toutes mes affaires qui correspondes à la chose suivante:

1 affaire = 1 feuille
Les informations importante sont regroupé dans ma colonne B.
Je rajoute une nouvelle feuille dès que j'ai une nouvelle affaire via une macro.

J'aimerai que sur ma feuille Synthèse les colonnes B de toutes mes feuilles sauf ma feuille Modèle soit rajouter sur ma colonne B et successivement vers la droite ( B puis C puis D, etc.)

J'ai ce codage actuellement qui me récupère toutes mes feuilles et mes les mets progressivement vers le bas ce qui ne me convient pas.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Worksheet_Activate()
Dim LastLig As Long, NewLig As Long
Dim LastCol As Long, NewCol As Long
Dim Ws As Worksheet
 
Application.ScreenUpdating = False
With Worksheets("Synthese")
    .UsedRange.Clear
    NewLig = 1
    For Each Ws In ThisWorkbook.Worksheets
        If InStr("Modèle|Synthese|", Ws.Name & "|") = 0 Then   ' entre "" mettre le nom de toutes les feuilles à exclure séparés d'un |
            LastLig = Ws.Cells(Ws.Rows.Count, 1).End(xlDown).Row
            Ws.Rows("1:" & LastLig).Copy .Range("A" & NewLig)
            NewLig = NewLig + LastLig
        End If
    Next Ws
End With
End Sub

Pouvez vous m'aider?

Merci d'avance.

[Franc]

Bonjour, essaie ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub Worksheet_Activate()
Dim LastLig As Long, NewLig As Long
Dim LastCol As Long, NewCol As Long
Dim Ws As Worksheet
 
Application.ScreenUpdating = False
With Worksheets("Synthese")
    .UsedRange.Clear
    NewLig = 1
    For Each Ws In ThisWorkbook.Worksheets
        If InStr("Modèle|Synthese|", Ws.Name & "|") = 0 Then   ' entre "" mettre le nom de toutes les feuilles à exclure séparés d'un |
            LastLig = Ws.Cells(Ws.Rows.Count, 1).End(xlDown).Row
            LastCol = Ws.Cells(1, Ws.Columns.Count).End(xlToLeft).Column
            Ws.Range("B1:B" & LastLig).Copy .Cells(1, NewCol)
            NewCol = NewCol + 1
        End If
    Next Ws
End With
Application.ScreenUpdating = True
End Sub

[damich37]

Bonjour,

Merci pour ton aide.
J'ai copié à l'identique et ça me mets erreur 1004 en me mettant en jaune la ligne suivante:

Ws.Range("B1:B" & LastLig).Copy .Cells(1, NewCol)

Je ne sais pas quoi faire!!

[Philippe Tulliez]

Bonjour,
Ce n'est peut-être pas la cause du problème mais si les lignes 12 à 15 du code publié doivent être exécutées pour toutes les feuilles à l'exception de celle qui se nomme "Synthèse", le test de la ligne 11 (If InStr("Modèle|Synthese|", Ws.Name & "|") = 0 Then), n'est pas correct.

[damich37]

Je voulais exclure les deux feuilles Modèle et Synthèse d'ou le fait de les avoir mis à la suite

[damich37]

Désolé je suis trop mauvais la je n'y arrive pas.... Je ne suis pas un pro de la programmation désolé...