Voilà je tente de reposter ma proposition
cordialement
"bemann" a écrit dans le message de
news:%merci de la remarque :-)
Comme je ne suis pas habitué aux forums pouvez vous me dire si je peux
joindre un classeur xl de solution à ma réponse au groupe
de discussion (et comment ?)
merci
"Jacky" a écrit dans le message de
news:Bonsoir bemann
Oui...mais ce qui a été envoyé à "madrid" hier.......... n'est pas
visible ici.
--
Salutations
JJ
"bemann" a écrit dans le message de news:sans passer par cette macro un peu lourde une simple recherchev() fait
parfaitement l'affaire comme
l'indique l'exemple envoyé à "madrid" hier
cordialement
"madrid" a écrit dans le message de
news:Bonsoir à tous
Jacky, Merci BEAUCOUP pour ce travail.
Je ne comprends pas tous (les ingrédients) de ce macro ..
une petite remarque : Dans les feuilles individuelles extrraites
(générées
par le patch), les bordures de la feuille origninal (modèle type) sont
modifiées , d'où cela vient-il ?
Bien cordialement
"Jacky" a écrit :Bonsoir,
Je n'ai pas xl2007, mais il ne devrait pas y avoir de problème.
Création de feuille par nom d'élève
Modification des noms de feuille "tabl-Individuel" en
"tabl_Individuel" et
"tab-General" en "tab_General".
Lancement de la macro par clique sur un bouton feuille "tab_general"
Voir ici
http://cjoint.com/?kqaBjjrCcJ
'---------------------
Sub jj()
Dim j As Integer, k As Integer, i As Integer
Application.ScreenUpdating = False
j = 5: k = 10
For Each c In [nom]
j = j + 1
On Error GoTo erreur
Sheets("tabl_Individuel").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = c
[f5] = c
With Sheets("tab_General")
For i = 3 To 45 Step 3
.Range(.Cells(j, i), .Cells(j, i + 2)).Copy ActiveSheet.Cells(k,
3)
k = k + 1
Next
.Range(.Cells(j, 48), .Cells(j, 53)).Copy
ActiveSheet.[i10].PasteSpecial Paste:=xlPasteValues,
Transpose:=True
End With
k = 10
Next
Application.CutCopyMode = False
Exit Sub
erreur:
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
Resume Next
End Sub
'--------------------------
--
Salutations
JJ
"madrid" a écrit dans le message
de
news:
> Bonjour
> J'ai une feuille contenat des aprréciations ( A, B ..E) pour les
> élèves de
> la classe selon toutes les disciplines (tableau général rempli par
> tous
> les
> professeurs).
> **
> Depuis cette feuille je souhaite créer une feuille pour chaque
> élève.
> données à extraires : appréciation, nom de l'élève, etc.
> Voir champs avec fond rouge depuis l'adresse de tékéchargement
> **
> http://cid-2412428c19560e69.skydrive.live.com/browse.aspx/Public?uc=1
> **
> Merci beaucoup de vos éfforts.
> Cordialement
Voilà je tente de reposter ma proposition
cordialement
"bemann" <bemann@free.fr> a écrit dans le message de
news:%23SqT3s8LJHA.1204@TK2MSFTNGP05.phx.gbl...
merci de la remarque :-)
Comme je ne suis pas habitué aux forums pouvez vous me dire si je peux
joindre un classeur xl de solution à ma réponse au groupe
de discussion (et comment ?)
merci
"Jacky" <Dupond@marcel.fr> a écrit dans le message de
news:enmdWi8LJHA.3744@TK2MSFTNGP05.phx.gbl...
Bonsoir bemann
Oui...mais ce qui a été envoyé à "madrid" hier.......... n'est pas
visible ici.
--
Salutations
JJ
"bemann" <bemann@free.fr> a écrit dans le message de news:
uJJU1V8LJHA.468@TK2MSFTNGP06.phx.gbl...
sans passer par cette macro un peu lourde une simple recherchev() fait
parfaitement l'affaire comme
l'indique l'exemple envoyé à "madrid" hier
cordialement
"madrid" <madrid@discussions.microsoft.com> a écrit dans le message de
news:947E9D2A-AF20-48D5-A216-5EC254B265FE@microsoft.com...
Bonsoir à tous
Jacky, Merci BEAUCOUP pour ce travail.
Je ne comprends pas tous (les ingrédients) de ce macro ..
une petite remarque : Dans les feuilles individuelles extrraites
(générées
par le patch), les bordures de la feuille origninal (modèle type) sont
modifiées , d'où cela vient-il ?
Bien cordialement
"Jacky" a écrit :
Bonsoir,
Je n'ai pas xl2007, mais il ne devrait pas y avoir de problème.
Création de feuille par nom d'élève
Modification des noms de feuille "tabl-Individuel" en
"tabl_Individuel" et
"tab-General" en "tab_General".
Lancement de la macro par clique sur un bouton feuille "tab_general"
Voir ici
http://cjoint.com/?kqaBjjrCcJ
'---------------------
Sub jj()
Dim j As Integer, k As Integer, i As Integer
Application.ScreenUpdating = False
j = 5: k = 10
For Each c In [nom]
j = j + 1
On Error GoTo erreur
Sheets("tabl_Individuel").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = c
[f5] = c
With Sheets("tab_General")
For i = 3 To 45 Step 3
.Range(.Cells(j, i), .Cells(j, i + 2)).Copy ActiveSheet.Cells(k,
3)
k = k + 1
Next
.Range(.Cells(j, 48), .Cells(j, 53)).Copy
ActiveSheet.[i10].PasteSpecial Paste:=xlPasteValues,
Transpose:=True
End With
k = 10
Next
Application.CutCopyMode = False
Exit Sub
erreur:
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
Resume Next
End Sub
'--------------------------
--
Salutations
JJ
"madrid" <madrid@discussions.microsoft.com> a écrit dans le message
de
news:
E32D2EC7-ADF3-4F4C-8A4F-87CED5AA45DA@microsoft.com...
> Bonjour
> J'ai une feuille contenat des aprréciations ( A, B ..E) pour les
> élèves de
> la classe selon toutes les disciplines (tableau général rempli par
> tous
> les
> professeurs).
> **
> Depuis cette feuille je souhaite créer une feuille pour chaque
> élève.
> données à extraires : appréciation, nom de l'élève, etc.
> Voir champs avec fond rouge depuis l'adresse de tékéchargement
> **
> http://cid-2412428c19560e69.skydrive.live.com/browse.aspx/Public?uc=1
> **
> Merci beaucoup de vos éfforts.
> Cordialement
Voilà je tente de reposter ma proposition
cordialement
"bemann" a écrit dans le message de
news:%merci de la remarque :-)
Comme je ne suis pas habitué aux forums pouvez vous me dire si je peux
joindre un classeur xl de solution à ma réponse au groupe
de discussion (et comment ?)
merci
"Jacky" a écrit dans le message de
news:Bonsoir bemann
Oui...mais ce qui a été envoyé à "madrid" hier.......... n'est pas
visible ici.
--
Salutations
JJ
"bemann" a écrit dans le message de news:sans passer par cette macro un peu lourde une simple recherchev() fait
parfaitement l'affaire comme
l'indique l'exemple envoyé à "madrid" hier
cordialement
"madrid" a écrit dans le message de
news:Bonsoir à tous
Jacky, Merci BEAUCOUP pour ce travail.
Je ne comprends pas tous (les ingrédients) de ce macro ..
une petite remarque : Dans les feuilles individuelles extrraites
(générées
par le patch), les bordures de la feuille origninal (modèle type) sont
modifiées , d'où cela vient-il ?
Bien cordialement
"Jacky" a écrit :Bonsoir,
Je n'ai pas xl2007, mais il ne devrait pas y avoir de problème.
Création de feuille par nom d'élève
Modification des noms de feuille "tabl-Individuel" en
"tabl_Individuel" et
"tab-General" en "tab_General".
Lancement de la macro par clique sur un bouton feuille "tab_general"
Voir ici
http://cjoint.com/?kqaBjjrCcJ
'---------------------
Sub jj()
Dim j As Integer, k As Integer, i As Integer
Application.ScreenUpdating = False
j = 5: k = 10
For Each c In [nom]
j = j + 1
On Error GoTo erreur
Sheets("tabl_Individuel").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = c
[f5] = c
With Sheets("tab_General")
For i = 3 To 45 Step 3
.Range(.Cells(j, i), .Cells(j, i + 2)).Copy ActiveSheet.Cells(k,
3)
k = k + 1
Next
.Range(.Cells(j, 48), .Cells(j, 53)).Copy
ActiveSheet.[i10].PasteSpecial Paste:=xlPasteValues,
Transpose:=True
End With
k = 10
Next
Application.CutCopyMode = False
Exit Sub
erreur:
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
Resume Next
End Sub
'--------------------------
--
Salutations
JJ
"madrid" a écrit dans le message
de
news:
> Bonjour
> J'ai une feuille contenat des aprréciations ( A, B ..E) pour les
> élèves de
> la classe selon toutes les disciplines (tableau général rempli par
> tous
> les
> professeurs).
> **
> Depuis cette feuille je souhaite créer une feuille pour chaque
> élève.
> données à extraires : appréciation, nom de l'élève, etc.
> Voir champs avec fond rouge depuis l'adresse de tékéchargement
> **
> http://cid-2412428c19560e69.skydrive.live.com/browse.aspx/Public?uc=1
> **
> Merci beaucoup de vos éfforts.
> Cordialement
Re...
Une solution visuelle, oui, pour l'édition sur papier, c'est du feuille
par feuille, ;o) et cela ne répond pas à la demande initiale soit:
"je souhaite créer une feuille pour chaque élève."
et
"dans le but d'imprimer une feuille pour chacun des élèves"
L'avantage de la macro, c'est qu'avec un simple clique sur un bouton on a
l'édition de toutes les fiches et pour peu que l'on nomme dynamiquement la
plage des noms, on obtient un fichier évolutif, et n' avoir à saisir que
les annotations ("A,B,D,E")
Et en rajoutant un "PrintOut" au bon endroit, l'édition sur papier pour
chaque élève.
Cela dit, écrit, le choix reste entre les mains du demandeur
--
Salutations
JJ
"bemann" a écrit dans le message de news:
%23%Voilà je tente de reposter ma proposition
cordialement
"bemann" a écrit dans le message de
news:%merci de la remarque :-)
Comme je ne suis pas habitué aux forums pouvez vous me dire si je peux
joindre un classeur xl de solution à ma réponse au groupe
de discussion (et comment ?)
merci
"Jacky" a écrit dans le message de
news:Bonsoir bemann
Oui...mais ce qui a été envoyé à "madrid" hier.......... n'est pas
visible ici.
--
Salutations
JJ
"bemann" a écrit dans le message de news:sans passer par cette macro un peu lourde une simple recherchev()
fait
parfaitement l'affaire comme
l'indique l'exemple envoyé à "madrid" hier
cordialement
"madrid" a écrit dans le message de
news:Bonsoir à tous
Jacky, Merci BEAUCOUP pour ce travail.
Je ne comprends pas tous (les ingrédients) de ce macro ..
une petite remarque : Dans les feuilles individuelles extrraites
(générées
par le patch), les bordures de la feuille origninal (modèle type)
sont
modifiées , d'où cela vient-il ?
Bien cordialement
"Jacky" a écrit :Bonsoir,
Je n'ai pas xl2007, mais il ne devrait pas y avoir de problème.
Création de feuille par nom d'élève
Modification des noms de feuille "tabl-Individuel" en
"tabl_Individuel" et
"tab-General" en "tab_General".
Lancement de la macro par clique sur un bouton feuille "tab_general"
Voir ici
http://cjoint.com/?kqaBjjrCcJ
'---------------------
Sub jj()
Dim j As Integer, k As Integer, i As Integer
Application.ScreenUpdating = False
j = 5: k = 10
For Each c In [nom]
j = j + 1
On Error GoTo erreur
Sheets("tabl_Individuel").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = c
[f5] = c
With Sheets("tab_General")
For i = 3 To 45 Step 3
.Range(.Cells(j, i), .Cells(j, i + 2)).Copy
ActiveSheet.Cells(k,
3)
k = k + 1
Next
.Range(.Cells(j, 48), .Cells(j, 53)).Copy
ActiveSheet.[i10].PasteSpecial Paste:=xlPasteValues,
Transpose:=True
End With
k = 10
Next
Application.CutCopyMode = False
Exit Sub
erreur:
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
Resume Next
End Sub
'--------------------------
--
Salutations
JJ
"madrid" a écrit dans le message
de
news:
> Bonjour
> J'ai une feuille contenat des aprréciations ( A, B ..E) pour les
> élèves de
> la classe selon toutes les disciplines (tableau général rempli par
> tous
> les
> professeurs).
> **
> Depuis cette feuille je souhaite créer une feuille pour chaque
> élève.
> données à extraires : appréciation, nom de l'élève, etc.
> Voir champs avec fond rouge depuis l'adresse de tékéchargement
> **
> http://cid-2412428c19560e69.skydrive.live.com/browse.aspx/Public?uc=1
> **
> Merci beaucoup de vos éfforts.
> Cordialement
Re...
Une solution visuelle, oui, pour l'édition sur papier, c'est du feuille
par feuille, ;o) et cela ne répond pas à la demande initiale soit:
"je souhaite créer une feuille pour chaque élève."
et
"dans le but d'imprimer une feuille pour chacun des élèves"
L'avantage de la macro, c'est qu'avec un simple clique sur un bouton on a
l'édition de toutes les fiches et pour peu que l'on nomme dynamiquement la
plage des noms, on obtient un fichier évolutif, et n' avoir à saisir que
les annotations ("A,B,D,E")
Et en rajoutant un "PrintOut" au bon endroit, l'édition sur papier pour
chaque élève.
Cela dit, écrit, le choix reste entre les mains du demandeur
--
Salutations
JJ
"bemann" <bemann@free.fr> a écrit dans le message de news:
%23%23ck5u8LJHA.1920@TK2MSFTNGP04.phx.gbl...
Voilà je tente de reposter ma proposition
cordialement
"bemann" <bemann@free.fr> a écrit dans le message de
news:%23SqT3s8LJHA.1204@TK2MSFTNGP05.phx.gbl...
merci de la remarque :-)
Comme je ne suis pas habitué aux forums pouvez vous me dire si je peux
joindre un classeur xl de solution à ma réponse au groupe
de discussion (et comment ?)
merci
"Jacky" <Dupond@marcel.fr> a écrit dans le message de
news:enmdWi8LJHA.3744@TK2MSFTNGP05.phx.gbl...
Bonsoir bemann
Oui...mais ce qui a été envoyé à "madrid" hier.......... n'est pas
visible ici.
--
Salutations
JJ
"bemann" <bemann@free.fr> a écrit dans le message de news:
uJJU1V8LJHA.468@TK2MSFTNGP06.phx.gbl...
sans passer par cette macro un peu lourde une simple recherchev()
fait
parfaitement l'affaire comme
l'indique l'exemple envoyé à "madrid" hier
cordialement
"madrid" <madrid@discussions.microsoft.com> a écrit dans le message de
news:947E9D2A-AF20-48D5-A216-5EC254B265FE@microsoft.com...
Bonsoir à tous
Jacky, Merci BEAUCOUP pour ce travail.
Je ne comprends pas tous (les ingrédients) de ce macro ..
une petite remarque : Dans les feuilles individuelles extrraites
(générées
par le patch), les bordures de la feuille origninal (modèle type)
sont
modifiées , d'où cela vient-il ?
Bien cordialement
"Jacky" a écrit :
Bonsoir,
Je n'ai pas xl2007, mais il ne devrait pas y avoir de problème.
Création de feuille par nom d'élève
Modification des noms de feuille "tabl-Individuel" en
"tabl_Individuel" et
"tab-General" en "tab_General".
Lancement de la macro par clique sur un bouton feuille "tab_general"
Voir ici
http://cjoint.com/?kqaBjjrCcJ
'---------------------
Sub jj()
Dim j As Integer, k As Integer, i As Integer
Application.ScreenUpdating = False
j = 5: k = 10
For Each c In [nom]
j = j + 1
On Error GoTo erreur
Sheets("tabl_Individuel").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = c
[f5] = c
With Sheets("tab_General")
For i = 3 To 45 Step 3
.Range(.Cells(j, i), .Cells(j, i + 2)).Copy
ActiveSheet.Cells(k,
3)
k = k + 1
Next
.Range(.Cells(j, 48), .Cells(j, 53)).Copy
ActiveSheet.[i10].PasteSpecial Paste:=xlPasteValues,
Transpose:=True
End With
k = 10
Next
Application.CutCopyMode = False
Exit Sub
erreur:
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
Resume Next
End Sub
'--------------------------
--
Salutations
JJ
"madrid" <madrid@discussions.microsoft.com> a écrit dans le message
de
news:
E32D2EC7-ADF3-4F4C-8A4F-87CED5AA45DA@microsoft.com...
> Bonjour
> J'ai une feuille contenat des aprréciations ( A, B ..E) pour les
> élèves de
> la classe selon toutes les disciplines (tableau général rempli par
> tous
> les
> professeurs).
> **
> Depuis cette feuille je souhaite créer une feuille pour chaque
> élève.
> données à extraires : appréciation, nom de l'élève, etc.
> Voir champs avec fond rouge depuis l'adresse de tékéchargement
> **
> http://cid-2412428c19560e69.skydrive.live.com/browse.aspx/Public?uc=1
> **
> Merci beaucoup de vos éfforts.
> Cordialement
Re...
Une solution visuelle, oui, pour l'édition sur papier, c'est du feuille
par feuille, ;o) et cela ne répond pas à la demande initiale soit:
"je souhaite créer une feuille pour chaque élève."
et
"dans le but d'imprimer une feuille pour chacun des élèves"
L'avantage de la macro, c'est qu'avec un simple clique sur un bouton on a
l'édition de toutes les fiches et pour peu que l'on nomme dynamiquement la
plage des noms, on obtient un fichier évolutif, et n' avoir à saisir que
les annotations ("A,B,D,E")
Et en rajoutant un "PrintOut" au bon endroit, l'édition sur papier pour
chaque élève.
Cela dit, écrit, le choix reste entre les mains du demandeur
--
Salutations
JJ
"bemann" a écrit dans le message de news:
%23%Voilà je tente de reposter ma proposition
cordialement
"bemann" a écrit dans le message de
news:%merci de la remarque :-)
Comme je ne suis pas habitué aux forums pouvez vous me dire si je peux
joindre un classeur xl de solution à ma réponse au groupe
de discussion (et comment ?)
merci
"Jacky" a écrit dans le message de
news:Bonsoir bemann
Oui...mais ce qui a été envoyé à "madrid" hier.......... n'est pas
visible ici.
--
Salutations
JJ
"bemann" a écrit dans le message de news:sans passer par cette macro un peu lourde une simple recherchev()
fait
parfaitement l'affaire comme
l'indique l'exemple envoyé à "madrid" hier
cordialement
"madrid" a écrit dans le message de
news:Bonsoir à tous
Jacky, Merci BEAUCOUP pour ce travail.
Je ne comprends pas tous (les ingrédients) de ce macro ..
une petite remarque : Dans les feuilles individuelles extrraites
(générées
par le patch), les bordures de la feuille origninal (modèle type)
sont
modifiées , d'où cela vient-il ?
Bien cordialement
"Jacky" a écrit :Bonsoir,
Je n'ai pas xl2007, mais il ne devrait pas y avoir de problème.
Création de feuille par nom d'élève
Modification des noms de feuille "tabl-Individuel" en
"tabl_Individuel" et
"tab-General" en "tab_General".
Lancement de la macro par clique sur un bouton feuille "tab_general"
Voir ici
http://cjoint.com/?kqaBjjrCcJ
'---------------------
Sub jj()
Dim j As Integer, k As Integer, i As Integer
Application.ScreenUpdating = False
j = 5: k = 10
For Each c In [nom]
j = j + 1
On Error GoTo erreur
Sheets("tabl_Individuel").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = c
[f5] = c
With Sheets("tab_General")
For i = 3 To 45 Step 3
.Range(.Cells(j, i), .Cells(j, i + 2)).Copy
ActiveSheet.Cells(k,
3)
k = k + 1
Next
.Range(.Cells(j, 48), .Cells(j, 53)).Copy
ActiveSheet.[i10].PasteSpecial Paste:=xlPasteValues,
Transpose:=True
End With
k = 10
Next
Application.CutCopyMode = False
Exit Sub
erreur:
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
Resume Next
End Sub
'--------------------------
--
Salutations
JJ
"madrid" a écrit dans le message
de
news:
> Bonjour
> J'ai une feuille contenat des aprréciations ( A, B ..E) pour les
> élèves de
> la classe selon toutes les disciplines (tableau général rempli par
> tous
> les
> professeurs).
> **
> Depuis cette feuille je souhaite créer une feuille pour chaque
> élève.
> données à extraires : appréciation, nom de l'élève, etc.
> Voir champs avec fond rouge depuis l'adresse de tékéchargement
> **
> http://cid-2412428c19560e69.skydrive.live.com/browse.aspx/Public?uc=1
> **
> Merci beaucoup de vos éfforts.
> Cordialement