Probleme macro de copie de plusieurs feuille dans une seule

Bonjour,

Ceci est mon premier message, bien que je regarde souvent le forum.

Tout d'abord je m’excuse s'il y a beaucoup de faute d'orthographe .

Je vous donne ma formule et ensuite je vous explique mon souci:

Dim dlgR As Integer, dlgi As Integer

Dim i As Byte

For i = 1 To Worksheets.Count

If UCase(Sheets(i).Name) <> "LISTE" Then

drL = Sheets("LISTE").Range("I" & Rows.Count).End(xlUp).Row

With Sheets(i)

drLi = .Range("I" & Rows.Count).End(xlUp).Row

.Range("C6:T" & drLi).Copy Sheets("LISTE").Range("A" & drL + 1)

End With

End If

Next

Je vous explique mon souci:

Ca fait 2 jours que je n'arrive pas a copier plusieurs feuilles dans une seule pour faire une liste.

Quand j'utilise ma formule, ma première feuille se copie colle normalement, la deuxième par contre perd des ligne et les suivante encore plus.

mon tableau n'a pas forcément une colonne entière rempli mais sur la colonne I, la dernière cellule est toujours rempli, c'est pourquoi j'ai utilisé end(1xup).

je copie mes données à partir de la ligne 6 pour les feuilles i (toutes feuilles hors LISTE)

je colle sur ma feuille LISTE à la ligne 2 mes données.

S'il y a vraiment besoin d'un exemple de mon fichier je vous le transmettrai, mais cela impliquera de devoir tout modifier pour ne pas donner d'information sensible.

je vous remercie pour vos réponses à venir et surtout pour toutes les formules que j'ai trouvé sur ce forum qui m'ont bien aidé pour mes projets.

PS: j'ai chercher sur le forum, utiliser des bouts de code pour répondre à mon besoin, mais ça me fais toujours la même chose. donc il y a sans doute quelques choses que je n'ai pas vu.

Bonsoir et bienvenu(e)

Je pense que cela vient du décalage

Tu copies de C à T vers A

Donc la la feuille que tu copies la colonne I est celle qui est remplie complétement

Mais dans la feuille "LISTE", du au décalage, ce n'est plus la colonne I qui est complétement remplie mais la colonne G

A tester

Sub Tste()
Dim dlgR As Integer, dlgi As Integer
Dim i As Byte
  For i = 1 To Worksheets.Count
    If UCase(Sheets(i).Name) <> "LISTE" Then
      drL = Sheets("LISTE").Range("G" & Rows.Count).End(xlUp).Row
      With Sheets(i)
        drLi = .Range("I" & Rows.Count).End(xlUp).Row
        .Range("C6:T" & drLi).Copy Sheets("LISTE").Range("A" & drL + 1)
      End With
    End If
  Next
End Sub

je teste de suite

merci pour cette réponse si rapide

edit:

non ca n'a pas marché.

je joint le fichier test pour expliquer mon problème

Bonsoir

Une question

C'est bien sur les feuilles que tu copies que la colonne I est remplie ?

j'ai joint le fichier, a savoir que I n'est pas toujours rempli ... ou alors il faudra que j'oblige la saisie, mais je préfèrerai pas le faire

Mais, j' utilise I car 99.999% des cas celle-ci est rempli

Bonsoir

A vérifier avec la macro que je t'ai fournie

ca fonctionne merci, maintenant faut que je comprenne ou été mon erreur ^^

je ne suis qu'un pauvre excrément face a tant de technique ^^

si tu peux m'expliquer ce que j'ai fait de mal que je valide la réponse ^^

Bonjour

Réponse déjà donnée

Banzai64 a écrit :

Je pense que cela vient du décalage

Tu copies de C à T vers A

Donc la la feuille que tu copies la colonne I est celle qui est remplie complétement

Mais dans la feuille "LISTE", du au décalage, ce n'est plus la colonne I qui est complétement remplie mais la colonne G

pourtant j'avais fais le teste avec ta première formule...

En tout cas un grand merci.

maintenant, me reste plus qu'a comprendre comment lancer et mettre des donner dans un word avec vba et je serai au top ^^

ta reponse fut parfaite je vais valider de suite ton aide