Rapport de message :*
 

Re: Copier plages de cellules en VBA et les coller sur la même feuille

Titre du sujet : Re: Copier plages de cellules en VBA et les coller sur la même feuille
par myDearFriend! le 06/01/2011 00:54:08

Bonsoir FENIX, Dan, le Forum.

Tout d'abord, je vous souhaite à tous les deux une bonne année et FENIX, je te souhaite également la bienvenue sur XLpages.com

Tu trouveras en pièce jointe une nouvelle proposition qui pourrait répondre à tes nouvelles explications.

Le traitement tient compte de l'ensemble des onglets présents, quelque soit leur nom (à l'exception de la synthèse bien sûr).

J'ai utilisé le simple code suivant, dans le module de code standard Module1 :

Option Explicit

' myDearFriend!  -  www.mdf-xlpages.com
Sub Traitement()
Dim F As Worksheet
Dim C As Integer
    With Sheets("synthèse")
        .Range("G10:IV100").ClearContents
        C = 6
        For Each F In Worksheets
            If Not F.Name = "synthèse" Then
                C = C + 1
                .Columns(C).Rows("10:100").Value = F.Range("E10:E100").Value
            End If
        Next F
    End With
End Sub

Cordialement,