Macro excel vba et copier coller entre onglets
Résolu
ThierryH
Messages postés
4
Date d'inscription
Statut
Membre
Dernière intervention
-
ThierryH Messages postés 4 Date d'inscription Statut Membre Dernière intervention -
ThierryH Messages postés 4 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Macro excel vba et copier coller entre onglets
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Word et excel gratuit - Guide
- Historique copier coller - Guide
- Liste déroulante excel - Guide
- Copier coller pdf - Guide
4 réponses
Bonjour et merci pour ton aide
J'ai copié et collé la macro mais ça ne fonctionne pas
Pour Information les onglets sont nommés "Mag01" "Mag12" "Mag36" Etc ...
et les 6 colonnes sont "A B C D E et F"
Je dois copier les lignes non vides de chaque onglet dans un onglet de synthèse que j'ai bien nommé "Synthèse"
Les lignes doivent se compiler de cet onglet avec toujours les 6 colonnes "A B C D E et F"
Encore merci pour ton aide
J'ai copié et collé la macro mais ça ne fonctionne pas
Pour Information les onglets sont nommés "Mag01" "Mag12" "Mag36" Etc ...
et les 6 colonnes sont "A B C D E et F"
Je dois copier les lignes non vides de chaque onglet dans un onglet de synthèse que j'ai bien nommé "Synthèse"
Les lignes doivent se compiler de cet onglet avec toujours les 6 colonnes "A B C D E et F"
Encore merci pour ton aide
Merci beaucoup pour ton aide
Je viens de déposer mon fichier Excel sous cjoint
Thierry
https://www.cjoint.com/?3GFmvXviLto
Je viens de déposer mon fichier Excel sous cjoint
Thierry
https://www.cjoint.com/?3GFmvXviLto
bonjour,
voici la macro :
sub copiercoller ()
dim a,f, i , j as variant
a = application.sheets.count ' compte le nombre de feuille
j=1
for f= 1 to a 'ce qu'elle fera sur tous les onglets
if sheets(f).name <> "Synthèse" then 'avant de lancer la macro, pense à créer une feuille nommée synthèse, car si la feuille ne s'appelle pas synthèse alors
do while sheets(f).cells(i,1) <> "" 'tant que la cellule de la ligne i colonne 1 de la feuille f contient une donnée
Sheets(f).Rows(i).Copy Sheets("Synthèse").Rows(j) 'alors on copie la ligne de la feuille f de la ligne i dans la feuille synthèse ligne j
i=i+1
loop
end if
next
end sub
voici la macro :
sub copiercoller ()
dim a,f, i , j as variant
a = application.sheets.count ' compte le nombre de feuille
j=1
for f= 1 to a 'ce qu'elle fera sur tous les onglets
if sheets(f).name <> "Synthèse" then 'avant de lancer la macro, pense à créer une feuille nommée synthèse, car si la feuille ne s'appelle pas synthèse alors
do while sheets(f).cells(i,1) <> "" 'tant que la cellule de la ligne i colonne 1 de la feuille f contient une donnée
Sheets(f).Rows(i).Copy Sheets("Synthèse").Rows(j) 'alors on copie la ligne de la feuille f de la ligne i dans la feuille synthèse ligne j
i=i+1
loop
end if
next
end sub
Il y a peut être des choses à adapter.
tes onglets commencent à la ligne 1 par exemple?
la bonne macro à copier :
sub copiercoller ()
dim a,f, i , j as variant
a = application.sheets.count ' compte le nombre de feuille
j=1
for f= 1 to a 'ce qu'elle fera sur tous les onglets
if sheets(f).name <> "Synthèse" then 'avant de lancer la macro, pense à créer une feuille nommée synthèse, car si la feuille ne s'appelle pas synthèse alors
do while sheets(f).cells(i,1) <> "" 'tant que la cellule de la ligne i colonne 1 de la feuille f contient une donnée
Sheets(f).Rows(i).Copy Sheets("Synthèse").Rows(j) 'alors on copie la ligne de la feuille f de la ligne i dans la feuille synthèse ligne j
i=i+1
j=j+1
loop
end if
next
end sub