Discussion :

[ikobana]

Bonjour !

Je suis confrontée à un besoin avec Excel que je n'ai pas les compétences pour résoudre, car je ne suis pas développeur professionnel et je ne sais pas programmer avec VBA (je suis capable de copier/coller intelligemment des propositions, et d'adapter les formules). Si ma demande est déplacée, merci de ne pas vous énerver contre moi et si possible de m'indiquer où je peux trouver.

Je suis professeur (dans le secondaire) et je cherche un moyen d'évaluer mes élèves par compétences, en attribuant des scores pour chaque compétence. Je crée (à l'aide d'un .xlt) un classeur .xls par évaluation, dans lequel une macro (trouvée ici http://www.gcexcel.com/creer-des-feu...lon-un-modele/) me crée un onglet par élève en suivant un tableau modèle. Jusque là pas de problème.

Le problème c'est que du coup, les résultats de chaque élève sont sur des onglets différents. Je voudrais donc les rapatrier sur un même onglet. Ils apparaissent toujours dans les mêmes cellules (M26 pour la note sur 20 et D7 à J7 pour les scores par compétences). En d'autres termes, je veux obtenir sur la feuille 1 le résultat qui apparait sur la capture d'écran ci-jointe (pour laquelle j'ai travaillé à la main). Je voudrais automatiser le processus, via une macro.

Je sais que je peux passer par l'enregistreur de macro mais je voudrais éviter d'avoir à enregistrer en dur, dans la macro, le nom des élèves (= le nom des onglets).

J'ai donc deux questions :
- Dans la fonction ='ABRICOT Jean'!M26, comment remplacer 'ABRICOT Jean' par une variable qui récupère le nom de l'onglet (contenu dans la cellule de la colonne A)
- Comment coder la boucle pour éviter une multiplication de lignes (à laquelle je me résoudrais si c'est trop compliqué pour moi, je rappelle que je ne sais pas coder...)

Merci d'avance à ceux qui pourront me rendre ce service.
Marie-Hélène

[SfJ5Rpw8]

Bonsoir,

une simple formule en B5 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=Indirect(A5&"!M26")

et tu recopie vers le bas ensuite ...

[ikobana]

Bonjour,

Merci pour cette proposition; mais j'ai un #REF! dans la cellule B5 quand je copie cette formule. Quand je tente la macro :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
   Range("B5").Formula = "='ABRICOT Jean'!M26"
    Range("B6").Formula = "='BANANE Marc'!M26"

fonctionne,
mais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("B5").Formula = "=Indirect(A5&"!M26")"

me renvoie le message "erreur de compilation : attendu : fin d'instruction", le point d'exclamation étant sélectionné.

Je continue à investiguer, mais je crois que là j'atteins les limites de ce que je peux faire (ça fait une semaine que je planche sur ce problème il serait plus sage de renoncer, mais pour ce qui est de faire un code propre, "renoncer" est un gros mot !).

Merci en tous cas;
Marie-Hélène

[SfJ5Rpw8]

bonsoir,

Je vous ai donné une formule il suffit de la saisir dans la cellule il n'est pas question de macro...




Pour une macro je vous propose celle-ci à mettre dans le code de la feuille Liste , le déclenchement de la macro est automatique à l'activation de la feuille liste :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Option Explicit
'
' Code à mettre dans feuille liste
' Génére liste d'éléve est met à jour des notes ...
Private Sub Worksheet_Activate()
    Dim sh As Worksheet
    Dim shListe As Worksheet
    Dim shModele As Worksheet
 
    Dim ilg As Integer 'ligne ou écrire
    ilg = 5 ' On commence sur la ligne 5
    Set shListe = ThisWorkbook.Sheets("liste") ' Variable pointant sur feuille destination de la liste
    Set shModele = ThisWorkbook.Sheets("Modele") 'Feuille modèle variable utilisée pour identifier cette feuille et ne rien faire lorsque c'est son tour
    For Each sh In ThisWorkbook.Worksheets 'Boucle sur toutes les feilles du classeur
        If sh.Name <> shListe.Name And sh.Name <> shModele.Name Then '"Saute" les feuilles modéle et lise
            shListe.Cells(ilg, 1) = sh.Name
            shListe.Cells(ilg, 2) = sh.Range("M26")
            ilg = ilg + 1
        End If
    Next
End Sub

[ikobana]

Bonsoir !

Je vous ai donné une formule il suffit de la saisir dans la cellule il n'est pas question de macro...

J'avais bien compris, mais le #REF! m'avait incité à quelques expériences ... :-)

Pour une macro je vous propose celle-ci à mettre dans le code de la feuille Liste , le déclenchement de la macro est automatique à l'activation de la feuille liste :

Magique ! :-)
Je n'ai eu besoin que d'ajouter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
            shListe.Cells(ilg, 4) = sh.Range("D7")
            shListe.Cells(ilg, 5) = sh.Range("E7")
            shListe.Cells(ilg, 6) = sh.Range("F7")
            shListe.Cells(ilg, 7) = sh.Range("G7")
            shListe.Cells(ilg, 8) = sh.Range("H7")
            shListe.Cells(ilg, 9) = sh.Range("I7")
            shListe.Cells(ilg, 10) = sh.Range("J7")

où il faut, j'ai retiré le déclenchement automatique (peut-être le remettrais-je plus tard), je déclenche par un bouton sur la feuille liste.
Et ça fonctionne parfaitement ! c'est peut-être pas très joli mais au moins ça fait ce que je voulais et je saurai y revenir si j'ajoute une ligne ou une colonne quelque part.


:-) Je ne pensais pas qu'il faudrait une formule aussi "chargée" et il n'y avait aucune chance que je la code moi-même, alors vous me rendez un immense service ! je ne pourrai pas vous renvoyer l'ascenseur dans ce domaine, mais je vous envoie mille bénédictions :-)

Marie-Hélène