Synthese de Données

[Don Foster]

Bonjour le Forum,

Voilà mon problème , je voudrais envoyer les données de toutes les feuilles sauf 2 feuilles dans la feuille général.

J'ai adapter un code trouver sur le forum mais quelque chose ne fonctionne pas .

Une petite aide de votre part me serai très utile.

Un grand merci à vous et bonne soirée

@ + don foster

 

[pierrejean]

Re : Synthese de Données

bonjour don

vois si cela va mieux

modifs:

1) pour eviter de repeter dans la feuille General ce que l'on vient d'y mettre
2) pour ne pas traiter les feuilles vides

Dim Lcible As Integer
Dim Plage As Range
    Range("B8:H1000").ClearContents
For Each WS In Worksheets
Lcible = Worksheets("General").Range("B65536").End(xlUp).Row + 1
 If WS.Name <> "Menu" And WS.Name <> "Estimation Temps" [COLOR=red]And WS.Name <> "General"[/COLOR] Then
    With WS
    [COLOR=red]If .Range("B65536").End(xlUp).Row > 7 Then
[/COLOR]     L = .Range("B65536").End(xlUp).Row
      C = .Range("B9").End(xlToRight).Column
      Set Plage = .Range(Cells(8, 1).Address, Cells(L, C).Address)
      Plage.Copy Destination:=Worksheets("General").Range("A" & Lcible)
    [COLOR=red]End If
[/COLOR]   End With
 End If
Next WS
End Sub

 

[Don Foster]

Re : Synthese de Données

Bonsoir pierrejean,Merci pour ta réponse , tout fonctionne parfaitement.Bonne soirée à toi@ + Don Foster

 

[ChTi160]

Re : Synthese de Données

Salut Don Foster
Bonsoir le Forum

Arfff L'occasion pour moi de Saluer pierrejean Lol

une autre version Lol

Le Fichier :

Regarde la pièce jointe Temps-TestV2.zip

Bonne fin de Soirée