Macro pour copier-coller des infos vers un onglet recap
bonjour,
voila mon problème j'ai une feuille excel avec plusieurs onglets . j'aimerai via une macro faire des copier coller des informations de tous mes onglets vers un onglet récapitulatif à la suite les uns des autres.
Sur chaque onglet j'ai les même colonnes.
Tous les mois je récupère ces informations donc je peux avoir par exemple 15 lignes dans l'onglet "1" un mois et le mois suivant 20 lignes. Ce qui est vrai pour tous les onglets.
J'espère que ma demande est claire et qu'une âme charitable pourra me faire cette macro qui me rendrait bien service.
Je vous joins le fichier excel.
Je reste à disposition si vous avez besoin d'info supplémentaires.
Cordialement
Toff
Bonjour
Merci de lire ces quelques lignes et d'éditer le sujet de ta demande
--> https://forum.excel-pratique.com/annonces/explications-et-regles-a-respecter-t13.html !!!
A bientôt
bonjour Dan,
J'ai relu ma demande et je ne vois pas en quoi elle ne respecte pas les conditions annoncées.
Donc je ne vois pas ce que je dois modifier.
cordialement
toff
bonjour Banzai,
oui je suis désolé le tableau est vide mais ce sont des données confidentielles que je ne peux inclure.
Maintenant on peut ajouter des données fictives.
Cordialement.
Toff
Re,
Le point 3 dans le lien que je t'ai donné dans mon post
Merci de ta participation
Ha oki pardon j'avais oculté le titre majuscule je modifie de suite.
Cordialement
Toff
Voila un code qui permet de copier les lignes des onglets dans l'onglet récapitulatif.
Les uns à la suites des autres.
Sub recap()
Dim ligne As Integer
Dim F As Integer
Dim j As Integer
Dim i As Integer
ligne = 2
For F = 1 To Sheets.Count - 1
If Sheets(F).Range("$A2") <> "" Then
nbcells = Sheets(F).Range("$A1").End(xlDown).Row
For i = 2 To nbcells
For j = 1 To 16
Sheets("RECAPITULATIF ").Cells(ligne, j) = Sheets(F).Cells(i, j)
Next j
ligne = ligne + 1
Next i
End If
Next F
End Sub
Attention, Ce code fonctionne très bien mais a chaque fois que l'on exécute cette macro, l'onglet RECAPITULATIF est "réinitialisé" : cela écrase les données précédentes.
Donc l'onglet RECAPITULATIF ne garde pas d'historique d'un mois sur l'autre, si jamais les données changent tous les mois...
Si on veut garder l'historique, il faut changer:
ligne = 2
Par
If
Sheets("RECAPITULATIF ").Cells(2, 1) <>0
ligne = Sheets(RECAPITULATIF).Range("$A1").End(xlDown).Row
Else
ligne = 2
End If
Cela permettra de garder toutes les données.
re,
Bon en lisant ton fil j'aurais plutôt écrit ceci --> "macro pour copier-coller des informations vers un onglet Recap".
Amicalement
Merci beaucoup Banzai et 11235813 pour votre aide les macros fonctionnent.
Sa va me changer la vie
@Dan : La tu chipotes
Cordialement.
Toff