Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel COPIE automatique

COPIE automatique

8 réponses
Avatar
FREDERIC
Bonsoir tout le monde.

Voilà je dois effectuer un classeur pour classer les élèves de plusieurs
classes. Pour chaque classe il va y avoir un classeur propre à elle même
(http://membres.lycos.fr/examen2001/CLASSEUR_POINTS_V11.xls - par la suite il
va exister 6 classeurs avec le nom Classe1, Classe2...). Ensuite il y aura un
2ème classeur qui va récapituler les résultats pour l'ensemble de l'école
(http://membres.lycos.fr/examen2001/RECAPITULATIF_SYNTHESE_POINTV_00.xls).
les deux fichiers vont se trouver sur une clé usb afin que chaque classe
puisse remplir ses propres résultats.

N'ayant pas des connaissances de programation poussées (aucune pratiquement)
je vous demande votre aide...

En fait j'aimerais une macro qui copie automatiquement les résultats des
différentes classes (classe 1, 2, 3...) dans le classeur
"RECAPITULATIF_SYNTHESE_POINTV_00", je m'explique que la classeur qui va
s'appeler classe1 copie les résultats de la feuille synthèse dans le classeur
Recapitulatif à la feuille classe1 et pareil pour la classe 1, 2...

A la base dans le classeur "RECAPITULATIF_SYNTHESE_POINTV_00" les données
sont récoltées via un simple = et la cellule correspondante... cependant
comme je vais quitté l'établissement j'ai pas envie que quelqu'un fasse une
fausse manip et me foute en l'air les classeurs déjà créer.

Je sais pas si j'ai été assez clair? Si vous avez d'autre questions,
n'hésitez pas à me les poser...

Merci d'avance de votre aide
Signaler un problème avec ce contenu

8 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel
Bonjour.
Pas besooin de macro, à mon avis. Protège les feuilles du classeur récap
avec un mot de passe et protège les cellules des classeurs "classe"
contenant des formules.
Cordialement.
Daniel
"FREDERIC" a écrit dans le message de
news:
Bonsoir tout le monde.

Voilà je dois effectuer un classeur pour classer les élèves de plusieurs
classes. Pour chaque classe il va y avoir un classeur propre à elle même
(http://membres.lycos.fr/examen2001/CLASSEUR_POINTS_V11.xls - par la suite
il
va exister 6 classeurs avec le nom Classe1, Classe2...). Ensuite il y aura
un
2ème classeur qui va récapituler les résultats pour l'ensemble de l'école
(http://membres.lycos.fr/examen2001/RECAPITULATIF_SYNTHESE_POINTV_00.xls).
les deux fichiers vont se trouver sur une clé usb afin que chaque classe
puisse remplir ses propres résultats.

N'ayant pas des connaissances de programation poussées (aucune
pratiquement)
je vous demande votre aide...

En fait j'aimerais une macro qui copie automatiquement les résultats des
différentes classes (classe 1, 2, 3...) dans le classeur
"RECAPITULATIF_SYNTHESE_POINTV_00", je m'explique que la classeur qui va
s'appeler classe1 copie les résultats de la feuille synthèse dans le
classeur
Recapitulatif à la feuille classe1 et pareil pour la classe 1, 2...

A la base dans le classeur "RECAPITULATIF_SYNTHESE_POINTV_00" les données
sont récoltées via un simple = et la cellule correspondante... cependant
comme je vais quitté l'établissement j'ai pas envie que quelqu'un fasse
une
fausse manip et me foute en l'air les classeurs déjà créer.

Je sais pas si j'ai été assez clair? Si vous avez d'autre questions,
n'hésitez pas à me les poser...

Merci d'avance de votre aide


Avatar
FREDERIC
ok... et concernant la copie automatique sur la première page du classeur
synthese?


Bonjour.
Pas besooin de macro, à mon avis. Protège les feuilles du classeur récap
avec un mot de passe et protège les cellules des classeurs "classe"
contenant des formules.
Cordialement.
Daniel
"FREDERIC" a écrit dans le message de
news:
Bonsoir tout le monde.

Voilà je dois effectuer un classeur pour classer les élèves de plusieurs
classes. Pour chaque classe il va y avoir un classeur propre à elle même
(http://membres.lycos.fr/examen2001/CLASSEUR_POINTS_V11.xls - par la suite
il
va exister 6 classeurs avec le nom Classe1, Classe2...). Ensuite il y aura
un
2ème classeur qui va récapituler les résultats pour l'ensemble de l'école
(http://membres.lycos.fr/examen2001/RECAPITULATIF_SYNTHESE_POINTV_00.xls).
les deux fichiers vont se trouver sur une clé usb afin que chaque classe
puisse remplir ses propres résultats.

N'ayant pas des connaissances de programation poussées (aucune
pratiquement)
je vous demande votre aide...

En fait j'aimerais une macro qui copie automatiquement les résultats des
différentes classes (classe 1, 2, 3...) dans le classeur
"RECAPITULATIF_SYNTHESE_POINTV_00", je m'explique que la classeur qui va
s'appeler classe1 copie les résultats de la feuille synthèse dans le
classeur
Recapitulatif à la feuille classe1 et pareil pour la classe 1, 2...

A la base dans le classeur "RECAPITULATIF_SYNTHESE_POINTV_00" les données
sont récoltées via un simple = et la cellule correspondante... cependant
comme je vais quitté l'établissement j'ai pas envie que quelqu'un fasse
une
fausse manip et me foute en l'air les classeurs déjà créer.

Je sais pas si j'ai été assez clair? Si vous avez d'autre questions,
n'hésitez pas à me les poser...

Merci d'avance de votre aide







Avatar
Daniel
Essaie cette macro (j'ai renommé ta feuille de destination "synthese") :

Sub Synthese()
Dim sh As Worksheet
Sheets("synthese").Select
For Each sh In Sheets
If sh.Name <> "synthese" Then
sh.Range("A2:K" & Range("A65536").End(xlUp).Row).Copy
Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial
xlPasteValues
End If
Next
End Sub

Cordialement.
Daniel
"FREDERIC" a écrit dans le message de
news:
ok... et concernant la copie automatique sur la première page du classeur
synthese?


Bonjour.
Pas besooin de macro, à mon avis. Protège les feuilles du classeur récap
avec un mot de passe et protège les cellules des classeurs "classe"
contenant des formules.
Cordialement.
Daniel
"FREDERIC" a écrit dans le message
de
news:
Bonsoir tout le monde.

Voilà je dois effectuer un classeur pour classer les élèves de
plusieurs
classes. Pour chaque classe il va y avoir un classeur propre à elle
même
(http://membres.lycos.fr/examen2001/CLASSEUR_POINTS_V11.xls - par la
suite
il
va exister 6 classeurs avec le nom Classe1, Classe2...). Ensuite il y
aura
un
2ème classeur qui va récapituler les résultats pour l'ensemble de
l'école
(http://membres.lycos.fr/examen2001/RECAPITULATIF_SYNTHESE_POINTV_00.xls).
les deux fichiers vont se trouver sur une clé usb afin que chaque
classe
puisse remplir ses propres résultats.

N'ayant pas des connaissances de programation poussées (aucune
pratiquement)
je vous demande votre aide...

En fait j'aimerais une macro qui copie automatiquement les résultats
des
différentes classes (classe 1, 2, 3...) dans le classeur
"RECAPITULATIF_SYNTHESE_POINTV_00", je m'explique que la classeur qui
va
s'appeler classe1 copie les résultats de la feuille synthèse dans le
classeur
Recapitulatif à la feuille classe1 et pareil pour la classe 1, 2...

A la base dans le classeur "RECAPITULATIF_SYNTHESE_POINTV_00" les
données
sont récoltées via un simple = et la cellule correspondante...
cependant
comme je vais quitté l'établissement j'ai pas envie que quelqu'un fasse
une
fausse manip et me foute en l'air les classeurs déjà créer.

Je sais pas si j'ai été assez clair? Si vous avez d'autre questions,
n'hésitez pas à me les poser...

Merci d'avance de votre aide









Avatar
FREDERIC
Salut Daniel!
Merci de ton aide!
J'ai essayé ta macro mais j'ai la première ligne qui est souligné en
jaune... cependant qqun m'a développé cet macro :
Mais le problème c'est que comme il y a des = dans les cellule, il me copie
des lignes même s'ils elles sont vides. Est-ce que c'est possible de modifier
la macro de telle sorte qu'elle ne prenne que les lignes avec des mots?

Merci d'avance

Sub lamacro()


Dim i As Byte
Application.ScreenUpdating = False
For i = 2 To Sheets.Count
Sheets(i).Activate
Range([a65536].End(xlUp).Address, "K2").Select
Selection.Copy _
Destination:þuil1.[a65536].End(xlUp).Offset(1)
Next
Application.ScreenUpdating = True
Feuil1.Activate
End Sub



Essaie cette macro (j'ai renommé ta feuille de destination "synthese") :

Sub Synthese()
Dim sh As Worksheet
Sheets("synthese").Select
For Each sh In Sheets
If sh.Name <> "synthese" Then
sh.Range("A2:K" & Range("A65536").End(xlUp).Row).Copy
Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial
xlPasteValues
End If
Next
End Sub

Cordialement.
Daniel
"FREDERIC" a écrit dans le message de
news:
ok... et concernant la copie automatique sur la première page du classeur
synthese?


Bonjour.
Pas besooin de macro, à mon avis. Protège les feuilles du classeur récap
avec un mot de passe et protège les cellules des classeurs "classe"
contenant des formules.
Cordialement.
Daniel
"FREDERIC" a écrit dans le message
de
news:
Bonsoir tout le monde.

Voilà je dois effectuer un classeur pour classer les élèves de
plusieurs
classes. Pour chaque classe il va y avoir un classeur propre à elle
même
(http://membres.lycos.fr/examen2001/CLASSEUR_POINTS_V11.xls - par la
suite
il
va exister 6 classeurs avec le nom Classe1, Classe2...). Ensuite il y
aura
un
2ème classeur qui va récapituler les résultats pour l'ensemble de
l'école
(http://membres.lycos.fr/examen2001/RECAPITULATIF_SYNTHESE_POINTV_00.xls).
les deux fichiers vont se trouver sur une clé usb afin que chaque
classe
puisse remplir ses propres résultats.

N'ayant pas des connaissances de programation poussées (aucune
pratiquement)
je vous demande votre aide...

En fait j'aimerais une macro qui copie automatiquement les résultats
des
différentes classes (classe 1, 2, 3...) dans le classeur
"RECAPITULATIF_SYNTHESE_POINTV_00", je m'explique que la classeur qui
va
s'appeler classe1 copie les résultats de la feuille synthèse dans le
classeur
Recapitulatif à la feuille classe1 et pareil pour la classe 1, 2...

A la base dans le classeur "RECAPITULATIF_SYNTHESE_POINTV_00" les
données
sont récoltées via un simple = et la cellule correspondante...
cependant
comme je vais quitté l'établissement j'ai pas envie que quelqu'un fasse
une
fausse manip et me foute en l'air les classeurs déjà créer.

Je sais pas si j'ai été assez clair? Si vous avez d'autre questions,
n'hésitez pas à me les poser...

Merci d'avance de votre aide














Avatar
Daniel
La macro plante parce que, comme je te l'ai signalé, tu as fait une erreur
de frappe dans le nom de la feuille "synthese". Je l'ai corrigée dans mon
classeur, il faut donc que tu en fasses autant, ou que tu modifies la maccro
:

Sub Synthese()
Dim sh As Worksheet, c As Range, Ctr As Long
Sheets("synthese").Select
Ctr = 4
For Each sh In Sheets
If sh.Name <> "synthese" Then
sh.Select
For Each c In Range("B2", Range("B65536").End(xlUp))
If c.Value <> "" Then
Var = "B" & c.Row & ":K" & c.Row
Range("A" & c.Row & ":K" & c.Row).Copy
Sheets("synthese").Range("A" & Ctr + 1).PasteSpecial
xlPasteValues
Ctr = Ctr + 1
End If
Next c
End If
Next
End Sub

Daniel
"FREDERIC" a écrit dans le message de
news:
Salut Daniel!
Merci de ton aide!
J'ai essayé ta macro mais j'ai la première ligne qui est souligné en
jaune... cependant qqun m'a développé cet macro :
Mais le problème c'est que comme il y a des = dans les cellule, il me
copie
des lignes même s'ils elles sont vides. Est-ce que c'est possible de
modifier
la macro de telle sorte qu'elle ne prenne que les lignes avec des mots?

Merci d'avance

Sub lamacro()


Dim i As Byte
Application.ScreenUpdating = False
For i = 2 To Sheets.Count
Sheets(i).Activate
Range([a65536].End(xlUp).Address, "K2").Select
Selection.Copy _
Destination:þuil1.[a65536].End(xlUp).Offset(1)
Next
Application.ScreenUpdating = True
Feuil1.Activate
End Sub



Essaie cette macro (j'ai renommé ta feuille de destination "synthese") :

Sub Synthese()
Dim sh As Worksheet
Sheets("synthese").Select
For Each sh In Sheets
If sh.Name <> "synthese" Then
sh.Range("A2:K" & Range("A65536").End(xlUp).Row).Copy
Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial
xlPasteValues
End If
Next
End Sub

Cordialement.
Daniel
"FREDERIC" a écrit dans le message
de
news:
ok... et concernant la copie automatique sur la première page du
classeur
synthese?


Bonjour.
Pas besooin de macro, à mon avis. Protège les feuilles du classeur
récap
avec un mot de passe et protège les cellules des classeurs "classe"
contenant des formules.
Cordialement.
Daniel
"FREDERIC" a écrit dans le
message
de
news:
Bonsoir tout le monde.

Voilà je dois effectuer un classeur pour classer les élèves de
plusieurs
classes. Pour chaque classe il va y avoir un classeur propre à elle
même
(http://membres.lycos.fr/examen2001/CLASSEUR_POINTS_V11.xls - par la
suite
il
va exister 6 classeurs avec le nom Classe1, Classe2...). Ensuite il
y
aura
un
2ème classeur qui va récapituler les résultats pour l'ensemble de
l'école
(http://membres.lycos.fr/examen2001/RECAPITULATIF_SYNTHESE_POINTV_00.xls).
les deux fichiers vont se trouver sur une clé usb afin que chaque
classe
puisse remplir ses propres résultats.

N'ayant pas des connaissances de programation poussées (aucune
pratiquement)
je vous demande votre aide...

En fait j'aimerais une macro qui copie automatiquement les résultats
des
différentes classes (classe 1, 2, 3...) dans le classeur
"RECAPITULATIF_SYNTHESE_POINTV_00", je m'explique que la classeur
qui
va
s'appeler classe1 copie les résultats de la feuille synthèse dans le
classeur
Recapitulatif à la feuille classe1 et pareil pour la classe 1, 2...

A la base dans le classeur "RECAPITULATIF_SYNTHESE_POINTV_00" les
données
sont récoltées via un simple = et la cellule correspondante...
cependant
comme je vais quitté l'établissement j'ai pas envie que quelqu'un
fasse
une
fausse manip et me foute en l'air les classeurs déjà créer.

Je sais pas si j'ai été assez clair? Si vous avez d'autre questions,
n'hésitez pas à me les poser...

Merci d'avance de votre aide
















Avatar
FREDERIC
salut,
Ecoute je comprends pas... la macro plante dès le début => sub synthese()
est souligné en jaune... pourtant j'ai changé le nom de la feuille et tout
mais ça ne marche pas... Quel est le problème?

merci!


La macro plante parce que, comme je te l'ai signalé, tu as fait une erreur
de frappe dans le nom de la feuille "synthese". Je l'ai corrigée dans mon
classeur, il faut donc que tu en fasses autant, ou que tu modifies la maccro
:

Sub Synthese()
Dim sh As Worksheet, c As Range, Ctr As Long
Sheets("synthese").Select
Ctr = 4
For Each sh In Sheets
If sh.Name <> "synthese" Then
sh.Select
For Each c In Range("B2", Range("B65536").End(xlUp))
If c.Value <> "" Then
Var = "B" & c.Row & ":K" & c.Row
Range("A" & c.Row & ":K" & c.Row).Copy
Sheets("synthese").Range("A" & Ctr + 1).PasteSpecial
xlPasteValues
Ctr = Ctr + 1
End If
Next c
End If
Next
End Sub

Daniel
"FREDERIC" a écrit dans le message de
news:
Salut Daniel!
Merci de ton aide!
J'ai essayé ta macro mais j'ai la première ligne qui est souligné en
jaune... cependant qqun m'a développé cet macro :
Mais le problème c'est que comme il y a des = dans les cellule, il me
copie
des lignes même s'ils elles sont vides. Est-ce que c'est possible de
modifier
la macro de telle sorte qu'elle ne prenne que les lignes avec des mots?

Merci d'avance

Sub lamacro()


Dim i As Byte
Application.ScreenUpdating = False
For i = 2 To Sheets.Count
Sheets(i).Activate
Range([a65536].End(xlUp).Address, "K2").Select
Selection.Copy _
Destination:þuil1.[a65536].End(xlUp).Offset(1)
Next
Application.ScreenUpdating = True
Feuil1.Activate
End Sub



Essaie cette macro (j'ai renommé ta feuille de destination "synthese") :

Sub Synthese()
Dim sh As Worksheet
Sheets("synthese").Select
For Each sh In Sheets
If sh.Name <> "synthese" Then
sh.Range("A2:K" & Range("A65536").End(xlUp).Row).Copy
Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial
xlPasteValues
End If
Next
End Sub

Cordialement.
Daniel
"FREDERIC" a écrit dans le message
de
news:
ok... et concernant la copie automatique sur la première page du
classeur
synthese?


Bonjour.
Pas besooin de macro, à mon avis. Protège les feuilles du classeur
récap
avec un mot de passe et protège les cellules des classeurs "classe"
contenant des formules.
Cordialement.
Daniel
"FREDERIC" a écrit dans le
message
de
news:
Bonsoir tout le monde.

Voilà je dois effectuer un classeur pour classer les élèves de
plusieurs
classes. Pour chaque classe il va y avoir un classeur propre à elle
même
(http://membres.lycos.fr/examen2001/CLASSEUR_POINTS_V11.xls - par la
suite
il
va exister 6 classeurs avec le nom Classe1, Classe2...). Ensuite il
y
aura
un
2ème classeur qui va récapituler les résultats pour l'ensemble de
l'école
(http://membres.lycos.fr/examen2001/RECAPITULATIF_SYNTHESE_POINTV_00.xls).
les deux fichiers vont se trouver sur une clé usb afin que chaque
classe
puisse remplir ses propres résultats.

N'ayant pas des connaissances de programation poussées (aucune
pratiquement)
je vous demande votre aide...

En fait j'aimerais une macro qui copie automatiquement les résultats
des
différentes classes (classe 1, 2, 3...) dans le classeur
"RECAPITULATIF_SYNTHESE_POINTV_00", je m'explique que la classeur
qui
va
s'appeler classe1 copie les résultats de la feuille synthèse dans le
classeur
Recapitulatif à la feuille classe1 et pareil pour la classe 1, 2...

A la base dans le classeur "RECAPITULATIF_SYNTHESE_POINTV_00" les
données
sont récoltées via un simple = et la cellule correspondante...
cependant
comme je vais quitté l'établissement j'ai pas envie que quelqu'un
fasse
une
fausse manip et me foute en l'air les classeurs déjà créer.

Je sais pas si j'ai été assez clair? Si vous avez d'autre questions,
n'hésitez pas à me les poser...

Merci d'avance de votre aide





















Avatar
Daniel
Regarde ton classeur modifié (la macro est dans le module "Module1") :
http://cjoint.com/?hEuWUkDxPz
Daniel
"FREDERIC" a écrit dans le message de
news:
salut,
Ecoute je comprends pas... la macro plante dès le début => sub synthese()
est souligné en jaune... pourtant j'ai changé le nom de la feuille et tout
mais ça ne marche pas... Quel est le problème?

merci!


La macro plante parce que, comme je te l'ai signalé, tu as fait une
erreur
de frappe dans le nom de la feuille "synthese". Je l'ai corrigée dans mon
classeur, il faut donc que tu en fasses autant, ou que tu modifies la
maccro
:

Sub Synthese()
Dim sh As Worksheet, c As Range, Ctr As Long
Sheets("synthese").Select
Ctr = 4
For Each sh In Sheets
If sh.Name <> "synthese" Then
sh.Select
For Each c In Range("B2", Range("B65536").End(xlUp))
If c.Value <> "" Then
Var = "B" & c.Row & ":K" & c.Row
Range("A" & c.Row & ":K" & c.Row).Copy
Sheets("synthese").Range("A" & Ctr + 1).PasteSpecial
xlPasteValues
Ctr = Ctr + 1
End If
Next c
End If
Next
End Sub

Daniel
"FREDERIC" a écrit dans le message
de
news:
Salut Daniel!
Merci de ton aide!
J'ai essayé ta macro mais j'ai la première ligne qui est souligné en
jaune... cependant qqun m'a développé cet macro :
Mais le problème c'est que comme il y a des = dans les cellule, il me
copie
des lignes même s'ils elles sont vides. Est-ce que c'est possible de
modifier
la macro de telle sorte qu'elle ne prenne que les lignes avec des mots?

Merci d'avance

Sub lamacro()


Dim i As Byte
Application.ScreenUpdating = False
For i = 2 To Sheets.Count
Sheets(i).Activate
Range([a65536].End(xlUp).Address, "K2").Select
Selection.Copy _
Destination:þuil1.[a65536].End(xlUp).Offset(1)
Next
Application.ScreenUpdating = True
Feuil1.Activate
End Sub



Essaie cette macro (j'ai renommé ta feuille de destination "synthese")
:

Sub Synthese()
Dim sh As Worksheet
Sheets("synthese").Select
For Each sh In Sheets
If sh.Name <> "synthese" Then
sh.Range("A2:K" & Range("A65536").End(xlUp).Row).Copy
Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial
xlPasteValues
End If
Next
End Sub

Cordialement.
Daniel
"FREDERIC" a écrit dans le
message
de
news:
ok... et concernant la copie automatique sur la première page du
classeur
synthese?


Bonjour.
Pas besooin de macro, à mon avis. Protège les feuilles du classeur
récap
avec un mot de passe et protège les cellules des classeurs "classe"
contenant des formules.
Cordialement.
Daniel
"FREDERIC" a écrit dans le
message
de
news:
Bonsoir tout le monde.

Voilà je dois effectuer un classeur pour classer les élèves de
plusieurs
classes. Pour chaque classe il va y avoir un classeur propre à
elle
même
(http://membres.lycos.fr/examen2001/CLASSEUR_POINTS_V11.xls - par
la
suite
il
va exister 6 classeurs avec le nom Classe1, Classe2...). Ensuite
il
y
aura
un
2ème classeur qui va récapituler les résultats pour l'ensemble de
l'école
(http://membres.lycos.fr/examen2001/RECAPITULATIF_SYNTHESE_POINTV_00.xls).
les deux fichiers vont se trouver sur une clé usb afin que chaque
classe
puisse remplir ses propres résultats.

N'ayant pas des connaissances de programation poussées (aucune
pratiquement)
je vous demande votre aide...

En fait j'aimerais une macro qui copie automatiquement les
résultats
des
différentes classes (classe 1, 2, 3...) dans le classeur
"RECAPITULATIF_SYNTHESE_POINTV_00", je m'explique que la classeur
qui
va
s'appeler classe1 copie les résultats de la feuille synthèse dans
le
classeur
Recapitulatif à la feuille classe1 et pareil pour la classe 1,
2...

A la base dans le classeur "RECAPITULATIF_SYNTHESE_POINTV_00" les
données
sont récoltées via un simple = et la cellule correspondante...
cependant
comme je vais quitté l'établissement j'ai pas envie que quelqu'un
fasse
une
fausse manip et me foute en l'air les classeurs déjà créer.

Je sais pas si j'ai été assez clair? Si vous avez d'autre
questions,
n'hésitez pas à me les poser...

Merci d'avance de votre aide























Avatar
FREDERIC
Merci bcp!
Finalement j'ai pris ton fichier ça sera plus simple... ça à l'air de
marcher!
Encore merci


Regarde ton classeur modifié (la macro est dans le module "Module1") :
http://cjoint.com/?hEuWUkDxPz
Daniel
"FREDERIC" a écrit dans le message de
news:
salut,
Ecoute je comprends pas... la macro plante dès le début => sub synthese()
est souligné en jaune... pourtant j'ai changé le nom de la feuille et tout
mais ça ne marche pas... Quel est le problème?

merci!


La macro plante parce que, comme je te l'ai signalé, tu as fait une
erreur
de frappe dans le nom de la feuille "synthese". Je l'ai corrigée dans mon
classeur, il faut donc que tu en fasses autant, ou que tu modifies la
maccro
:

Sub Synthese()
Dim sh As Worksheet, c As Range, Ctr As Long
Sheets("synthese").Select
Ctr = 4
For Each sh In Sheets
If sh.Name <> "synthese" Then
sh.Select
For Each c In Range("B2", Range("B65536").End(xlUp))
If c.Value <> "" Then
Var = "B" & c.Row & ":K" & c.Row
Range("A" & c.Row & ":K" & c.Row).Copy
Sheets("synthese").Range("A" & Ctr + 1).PasteSpecial
xlPasteValues
Ctr = Ctr + 1
End If
Next c
End If
Next
End Sub

Daniel
"FREDERIC" a écrit dans le message
de
news:
Salut Daniel!
Merci de ton aide!
J'ai essayé ta macro mais j'ai la première ligne qui est souligné en
jaune... cependant qqun m'a développé cet macro :
Mais le problème c'est que comme il y a des = dans les cellule, il me
copie
des lignes même s'ils elles sont vides. Est-ce que c'est possible de
modifier
la macro de telle sorte qu'elle ne prenne que les lignes avec des mots?

Merci d'avance

Sub lamacro()


Dim i As Byte
Application.ScreenUpdating = False
For i = 2 To Sheets.Count
Sheets(i).Activate
Range([a65536].End(xlUp).Address, "K2").Select
Selection.Copy _
Destination:þuil1.[a65536].End(xlUp).Offset(1)
Next
Application.ScreenUpdating = True
Feuil1.Activate
End Sub



Essaie cette macro (j'ai renommé ta feuille de destination "synthese")
:

Sub Synthese()
Dim sh As Worksheet
Sheets("synthese").Select
For Each sh In Sheets
If sh.Name <> "synthese" Then
sh.Range("A2:K" & Range("A65536").End(xlUp).Row).Copy
Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial
xlPasteValues
End If
Next
End Sub

Cordialement.
Daniel
"FREDERIC" a écrit dans le
message
de
news:
ok... et concernant la copie automatique sur la première page du
classeur
synthese?


Bonjour.
Pas besooin de macro, à mon avis. Protège les feuilles du classeur
récap
avec un mot de passe et protège les cellules des classeurs "classe"
contenant des formules.
Cordialement.
Daniel
"FREDERIC" a écrit dans le
message
de
news:
Bonsoir tout le monde.

Voilà je dois effectuer un classeur pour classer les élèves de
plusieurs
classes. Pour chaque classe il va y avoir un classeur propre à
elle
même
(http://membres.lycos.fr/examen2001/CLASSEUR_POINTS_V11.xls - par
la
suite
il
va exister 6 classeurs avec le nom Classe1, Classe2...). Ensuite
il
y
aura
un
2ème classeur qui va récapituler les résultats pour l'ensemble de
l'école
(http://membres.lycos.fr/examen2001/RECAPITULATIF_SYNTHESE_POINTV_00.xls).
les deux fichiers vont se trouver sur une clé usb afin que chaque
classe
puisse remplir ses propres résultats.

N'ayant pas des connaissances de programation poussées (aucune
pratiquement)
je vous demande votre aide...

En fait j'aimerais une macro qui copie automatiquement les
résultats
des
différentes classes (classe 1, 2, 3...) dans le classeur
"RECAPITULATIF_SYNTHESE_POINTV_00", je m'explique que la classeur
qui
va
s'appeler classe1 copie les résultats de la feuille synthèse dans
le
classeur
Recapitulatif à la feuille classe1 et pareil pour la classe 1,
2...

A la base dans le classeur "RECAPITULATIF_SYNTHESE_POINTV_00" les
données
sont récoltées via un simple = et la cellule correspondante...
cependant
comme je vais quitté l'établissement j'ai pas envie que quelqu'un
fasse
une
fausse manip et me foute en l'air les classeurs déjà créer.

Je sais pas si j'ai été assez clair? Si vous avez d'autre
questions,
n'hésitez pas à me les poser...

Merci d'avance de votre aide