copier coller...

[Simons]

Bonjour,

Je cherche un code VBA pour copier coller sur une feuille récapitulative l'ensemble des données de mes autres feuilles.
Les données du problème :
La 1ére ligne est toujours la même. Pas la dernière.
Je ne veux pas copier la ligne sur laquelle j'ai mes totaux.

Je vous joint un exemple de ce que je souhaite.
Merci d'avance pour votre aide.

 

[Compte Supprimé 979]

Re : copier coller...

Salut Simons,

Voici le code qui devrait t'intéresser :

Sub CopierColler()
  Dim Cel As Range, DerLig As Integer, Sht As Worksheet
  Dim Lig As Integer, LigRecap As Integer
  For Each Sht In ThisWorkbook.Sheets
    If Sht.Name <> "récap" Then
      ' Dernière ligne du tableau = Ligne TOTAL - 1
      DerLig = Sht.Range("A65536").End(xlUp).Row - 1
      For Lig = 5 To DerLig
        With Sheets("récap")
          LigRecap = .Range("A65536").End(xlUp).Row + 1
          Range("A" & LigRecap).Value = Sht.Range("A" & Lig).Value
          Range("B" & LigRecap).Value = Sht.Range("B" & Lig).Value
          Range("C" & LigRecap).Value = Sht.Range("C" & Lig).Value
        End With
      Next
    End If
  Next Sht
End Sub

A+

 

[wazzebu]

Re : copier coller...

Bonjour a tous,

aie je vois que j'ai été trop lent !!!

J'ai enregistré et modifié un peu une macro qui marche pas mal sauf s'il y a q'une seule ligne à copier 🙁 dans ce cas elle copie aussi le total ....

Enfin bon si ca peut aider 😀

Wazzebu

 

[Simons]

Re : copier coller...

Merci Bruno et Wassebu. Je vais essayer avec vos codes.
Je vous reviens si problème.

 

[wazzebu]

Re : copier coller...

Hum...Hum

wassebu 😱

waZZebu LOL

😀

 

[Simons]

Re : copier coller...

Bruno ton code était parfait !!
Merci Beaucoup.

WaZZebu, merci aussi et désolé d'avoir écorché ton nom !