Bonjour a tous
voici mon petit pb du moment, car j'ai cherché (mal sans doute) et je n'ai
pas trouvé de quoi m'aider
mes connaissance en VB étant limité pouvez vous m'aider?
vous trouverez a cette adresse une ébauche de document
http://cjoint.com/?fFgoOzZNMe
recap des donnés
1 classeur, plusieurs feuilles (X feuilles "élève" plus 1 feuille
"résultats")
1 feuille par élèves (le nombre de feuille "élèves" est variable)
chaque feuille "élève" a la même structure
Problème:
réaliser dans la feuille "résultats" le classement des élèves avec les notes
qui leurs correspondent
Merci a ceux qui pourrait m'aider
Bonne journée
Yan
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
Ardus Petus
Sub classement() ' ' classement Macro ' Macro enregistrée le 31/05/2006 par Admin ' Dim wsEleve As Worksheet Dim rDest As Range Dim rResult As Range
'Init cellule de destination Set rDest = Range("B4") Set rResult = Range("B4:E20") rResult.ClearContents
'Remplissage du tableau For Each wsEleve In Worksheets If wsEleve.Name <> ActiveSheet.Name Then With rDest .FormulaR1C1 = "=RANK(RC[2],R4C[2]:R20C[2])" .Offset(0, 1) = wsEleve.Name .Offset(0, 2) = wsEleve.Range("H12") .Offset(0, 3) = wsEleve.Range("I12") End With Set rDest = rDest.Offset(1, 0) 'Ligne suivante End If Next wsEleve
' Tri du résultat rResult.Sort key1:=Range("B4"), order1:=xlAscending End Sub
Cordialement, -- AP
"yan" a écrit dans le message de news: 447d1992$0$20186$
Bonjour a tous voici mon petit pb du moment, car j'ai cherché (mal sans doute) et je n'ai pas trouvé de quoi m'aider mes connaissance en VB étant limité pouvez vous m'aider? vous trouverez a cette adresse une ébauche de document http://cjoint.com/?fFgoOzZNMe recap des donnés 1 classeur, plusieurs feuilles (X feuilles "élève" plus 1 feuille "résultats") 1 feuille par élèves (le nombre de feuille "élèves" est variable) chaque feuille "élève" a la même structure
Problème: réaliser dans la feuille "résultats" le classement des élèves avec les notes qui leurs correspondent Merci a ceux qui pourrait m'aider Bonne journée Yan
Sub classement()
'
' classement Macro
' Macro enregistrée le 31/05/2006 par Admin
'
Dim wsEleve As Worksheet
Dim rDest As Range
Dim rResult As Range
'Init cellule de destination
Set rDest = Range("B4")
Set rResult = Range("B4:E20")
rResult.ClearContents
'Remplissage du tableau
For Each wsEleve In Worksheets
If wsEleve.Name <> ActiveSheet.Name Then
With rDest
.FormulaR1C1 = "=RANK(RC[2],R4C[2]:R20C[2])"
.Offset(0, 1) = wsEleve.Name
.Offset(0, 2) = wsEleve.Range("H12")
.Offset(0, 3) = wsEleve.Range("I12")
End With
Set rDest = rDest.Offset(1, 0) 'Ligne suivante
End If
Next wsEleve
' Tri du résultat
rResult.Sort key1:=Range("B4"), order1:=xlAscending
End Sub
Cordialement,
--
AP
"yan" <xyz@wanadoo.fr> a écrit dans le message de news:
447d1992$0$20186$8fcfb975@news.wanadoo.fr...
Bonjour a tous
voici mon petit pb du moment, car j'ai cherché (mal sans doute) et je n'ai
pas trouvé de quoi m'aider
mes connaissance en VB étant limité pouvez vous m'aider?
vous trouverez a cette adresse une ébauche de document
http://cjoint.com/?fFgoOzZNMe
recap des donnés
1 classeur, plusieurs feuilles (X feuilles "élève" plus 1 feuille
"résultats")
1 feuille par élèves (le nombre de feuille "élèves" est variable)
chaque feuille "élève" a la même structure
Problème:
réaliser dans la feuille "résultats" le classement des élèves avec les
notes qui leurs correspondent
Merci a ceux qui pourrait m'aider
Bonne journée
Yan
Sub classement() ' ' classement Macro ' Macro enregistrée le 31/05/2006 par Admin ' Dim wsEleve As Worksheet Dim rDest As Range Dim rResult As Range
'Init cellule de destination Set rDest = Range("B4") Set rResult = Range("B4:E20") rResult.ClearContents
'Remplissage du tableau For Each wsEleve In Worksheets If wsEleve.Name <> ActiveSheet.Name Then With rDest .FormulaR1C1 = "=RANK(RC[2],R4C[2]:R20C[2])" .Offset(0, 1) = wsEleve.Name .Offset(0, 2) = wsEleve.Range("H12") .Offset(0, 3) = wsEleve.Range("I12") End With Set rDest = rDest.Offset(1, 0) 'Ligne suivante End If Next wsEleve
' Tri du résultat rResult.Sort key1:=Range("B4"), order1:=xlAscending End Sub
Cordialement, -- AP
"yan" a écrit dans le message de news: 447d1992$0$20186$
Bonjour a tous voici mon petit pb du moment, car j'ai cherché (mal sans doute) et je n'ai pas trouvé de quoi m'aider mes connaissance en VB étant limité pouvez vous m'aider? vous trouverez a cette adresse une ébauche de document http://cjoint.com/?fFgoOzZNMe recap des donnés 1 classeur, plusieurs feuilles (X feuilles "élève" plus 1 feuille "résultats") 1 feuille par élèves (le nombre de feuille "élèves" est variable) chaque feuille "élève" a la même structure
Problème: réaliser dans la feuille "résultats" le classement des élèves avec les notes qui leurs correspondent Merci a ceux qui pourrait m'aider Bonne journée Yan
AV
Un avis : C'est pas une bonne idée de mettre autant de feuilles que d'élèves... Un seul tableau serait plus judicieux...
AV
Un avis :
C'est pas une bonne idée de mettre autant de feuilles que d'élèves...
Un seul tableau serait plus judicieux...
Un avis : C'est pas une bonne idée de mettre autant de feuilles que d'élèves... Un seul tableau serait plus judicieux...
AV
yan
Re bonjour Je viens de tester impect!! Je pige pas tout, mais je vais étudier ça cet aprèm (car c'est pas le tout d'avoir une solution toute "cuite" il faut que je la comprenne) Merci à toi pour ton travail Bonne journée Question à AV si il lit ce message Pourquoi un seul tableau (pourquoi pas!) ça serait mieux Merci A+ Yan
"Ardus Petus" a écrit dans le message de news:
Sub classement() ' ' classement Macro ' Macro enregistrée le 31/05/2006 par Admin ' Dim wsEleve As Worksheet Dim rDest As Range Dim rResult As Range
'Init cellule de destination Set rDest = Range("B4") Set rResult = Range("B4:E20") rResult.ClearContents
'Remplissage du tableau For Each wsEleve In Worksheets If wsEleve.Name <> ActiveSheet.Name Then With rDest .FormulaR1C1 = "=RANK(RC[2],R4C[2]:R20C[2])" .Offset(0, 1) = wsEleve.Name .Offset(0, 2) = wsEleve.Range("H12") .Offset(0, 3) = wsEleve.Range("I12") End With Set rDest = rDest.Offset(1, 0) 'Ligne suivante End If Next wsEleve
' Tri du résultat rResult.Sort key1:=Range("B4"), order1:=xlAscending End Sub
Cordialement, -- AP
"yan" a écrit dans le message de news: 447d1992$0$20186$
Bonjour a tous voici mon petit pb du moment, car j'ai cherché (mal sans doute) et je n'ai pas trouvé de quoi m'aider mes connaissance en VB étant limité pouvez vous m'aider? vous trouverez a cette adresse une ébauche de document http://cjoint.com/?fFgoOzZNMe recap des donnés 1 classeur, plusieurs feuilles (X feuilles "élève" plus 1 feuille "résultats") 1 feuille par élèves (le nombre de feuille "élèves" est variable) chaque feuille "élève" a la même structure
Problème: réaliser dans la feuille "résultats" le classement des élèves avec les notes qui leurs correspondent Merci a ceux qui pourrait m'aider Bonne journée Yan
Re bonjour
Je viens de tester impect!!
Je pige pas tout, mais je vais étudier ça cet aprèm (car c'est pas le tout
d'avoir une solution toute "cuite" il faut que je la comprenne)
Merci à toi pour ton travail
Bonne journée
Question à AV si il lit ce message
Pourquoi un seul tableau (pourquoi pas!) ça serait mieux
Merci
A+
Yan
"Ardus Petus" <ardus.petus@laposte.net> a écrit dans le message de news:
ucYbN5HhGHA.4896@TK2MSFTNGP05.phx.gbl...
Sub classement()
'
' classement Macro
' Macro enregistrée le 31/05/2006 par Admin
'
Dim wsEleve As Worksheet
Dim rDest As Range
Dim rResult As Range
'Init cellule de destination
Set rDest = Range("B4")
Set rResult = Range("B4:E20")
rResult.ClearContents
'Remplissage du tableau
For Each wsEleve In Worksheets
If wsEleve.Name <> ActiveSheet.Name Then
With rDest
.FormulaR1C1 = "=RANK(RC[2],R4C[2]:R20C[2])"
.Offset(0, 1) = wsEleve.Name
.Offset(0, 2) = wsEleve.Range("H12")
.Offset(0, 3) = wsEleve.Range("I12")
End With
Set rDest = rDest.Offset(1, 0) 'Ligne suivante
End If
Next wsEleve
' Tri du résultat
rResult.Sort key1:=Range("B4"), order1:=xlAscending
End Sub
Cordialement,
--
AP
"yan" <xyz@wanadoo.fr> a écrit dans le message de news:
447d1992$0$20186$8fcfb975@news.wanadoo.fr...
Bonjour a tous
voici mon petit pb du moment, car j'ai cherché (mal sans doute) et je
n'ai pas trouvé de quoi m'aider
mes connaissance en VB étant limité pouvez vous m'aider?
vous trouverez a cette adresse une ébauche de document
http://cjoint.com/?fFgoOzZNMe
recap des donnés
1 classeur, plusieurs feuilles (X feuilles "élève" plus 1 feuille
"résultats")
1 feuille par élèves (le nombre de feuille "élèves" est variable)
chaque feuille "élève" a la même structure
Problème:
réaliser dans la feuille "résultats" le classement des élèves avec les
notes qui leurs correspondent
Merci a ceux qui pourrait m'aider
Bonne journée
Yan
Re bonjour Je viens de tester impect!! Je pige pas tout, mais je vais étudier ça cet aprèm (car c'est pas le tout d'avoir une solution toute "cuite" il faut que je la comprenne) Merci à toi pour ton travail Bonne journée Question à AV si il lit ce message Pourquoi un seul tableau (pourquoi pas!) ça serait mieux Merci A+ Yan
"Ardus Petus" a écrit dans le message de news:
Sub classement() ' ' classement Macro ' Macro enregistrée le 31/05/2006 par Admin ' Dim wsEleve As Worksheet Dim rDest As Range Dim rResult As Range
'Init cellule de destination Set rDest = Range("B4") Set rResult = Range("B4:E20") rResult.ClearContents
'Remplissage du tableau For Each wsEleve In Worksheets If wsEleve.Name <> ActiveSheet.Name Then With rDest .FormulaR1C1 = "=RANK(RC[2],R4C[2]:R20C[2])" .Offset(0, 1) = wsEleve.Name .Offset(0, 2) = wsEleve.Range("H12") .Offset(0, 3) = wsEleve.Range("I12") End With Set rDest = rDest.Offset(1, 0) 'Ligne suivante End If Next wsEleve
' Tri du résultat rResult.Sort key1:=Range("B4"), order1:=xlAscending End Sub
Cordialement, -- AP
"yan" a écrit dans le message de news: 447d1992$0$20186$
Bonjour a tous voici mon petit pb du moment, car j'ai cherché (mal sans doute) et je n'ai pas trouvé de quoi m'aider mes connaissance en VB étant limité pouvez vous m'aider? vous trouverez a cette adresse une ébauche de document http://cjoint.com/?fFgoOzZNMe recap des donnés 1 classeur, plusieurs feuilles (X feuilles "élève" plus 1 feuille "résultats") 1 feuille par élèves (le nombre de feuille "élèves" est variable) chaque feuille "élève" a la même structure
Problème: réaliser dans la feuille "résultats" le classement des élèves avec les notes qui leurs correspondent Merci a ceux qui pourrait m'aider Bonne journée Yan
