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
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
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
On s'en sort très bien avec une fonction recherchev()
3 listes avec les numéros de colonnes décalée pour selectionner la matière
et le type d'appréciation
une liste de validation avec liste des élèves nommée pour "appeler" l'élève
voulu
les récap nombre de A,B,C... sont de simple NB.si avec la fonction Droite()
pour extraire le dernier caractère qui repésente la lettre d'appréciation.
J'ai répondu en envoyant un exemple en PJ par retour de mail
cordialement
"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
On s'en sort très bien avec une fonction recherchev()
3 listes avec les numéros de colonnes décalée pour selectionner la matière
et le type d'appréciation
une liste de validation avec liste des élèves nommée pour "appeler" l'élève
voulu
les récap nombre de A,B,C... sont de simple NB.si avec la fonction Droite()
pour extraire le dernier caractère qui repésente la lettre d'appréciation.
J'ai répondu en envoyant un exemple en PJ par retour de mail
cordialement
"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
On s'en sort très bien avec une fonction recherchev()
3 listes avec les numéros de colonnes décalée pour selectionner la matière
et le type d'appréciation
une liste de validation avec liste des élèves nommée pour "appeler" l'élève
voulu
les récap nombre de A,B,C... sont de simple NB.si avec la fonction Droite()
pour extraire le dernier caractère qui repésente la lettre d'appréciation.
J'ai répondu en envoyant un exemple en PJ par retour de mail
cordialement
"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
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
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
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
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
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
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
les bordures de la feuille origninal (modèle type) sont
modifiées , d'où cela vient-il ?
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
les bordures de la feuille origninal (modèle type) sont
modifiées , d'où cela vient-il ?
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
les bordures de la feuille origninal (modèle type) sont
modifiées , d'où cela vient-il ?
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
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
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
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
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
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
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
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
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
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
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
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
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...
Sans joindre un classeur, on peut mettre la(les) formule proposé et
l'adresse de sa cellule.
Et pour joindre, ici par exemple
http://www.cjoint.com/
Fonctionnement de Cjoint.com
1-Cliquer sur "parcourir" et sélectionner le fichier à joindre
2-Cliquer sur "créer le lien cjoint"
**Le lien est copier automatiquement**
3-Coller le lien dans la réponse du message
--
Salutations
JJ
"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...
Sans joindre un classeur, on peut mettre la(les) formule proposé et
l'adresse de sa cellule.
Et pour joindre, ici par exemple
http://www.cjoint.com/
Fonctionnement de Cjoint.com
1-Cliquer sur "parcourir" et sélectionner le fichier à joindre
2-Cliquer sur "créer le lien cjoint"
**Le lien est copier automatiquement**
3-Coller le lien dans la réponse du message
--
Salutations
JJ
"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...
Sans joindre un classeur, on peut mettre la(les) formule proposé et
l'adresse de sa cellule.
Et pour joindre, ici par exemple
http://www.cjoint.com/
Fonctionnement de Cjoint.com
1-Cliquer sur "parcourir" et sélectionner le fichier à joindre
2-Cliquer sur "créer le lien cjoint"
**Le lien est copier automatiquement**
3-Coller le lien dans la réponse du message
--
Salutations
JJ
"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