Discussion :

[Novice72]

Bonjour à toutes et à tous,

J'ai crée une macro me permettant de créer une grille en fonction de compétences évaluées.

Voici ma question : Comment reproduire cette grille en autant de fois qu'il y a d'élèves ( création plusieurs feuilles ) ?
De plus, comment faire en sorte que les feuilles portent le nom des élèves et que le nom s'affiche aussi dans une cellule précise de chaque feuille (B4) ?

Merci d'avance.

NOVICE72

[Pierre Fauconnier]

Salut.

Voici une fonction qui crée une nouvelle feuille et la met à la disposition du code appelant.

Code :

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

1
2
3
4
5
6
7
Function CreateSheet(Name As String) As Worksheet
  Dim sh As Worksheet
 
  Set sh = Worksheets.Add()
  sh.Name = Name
  Set CreateSheet = sh
End Function

Pour placer le nom en cellule B4, tu utilises

Code :

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

sh.range("b4").Value = sh.name

Dissocie bien les codes, il n'est pas de la responsabilité de la fonction CreateSheet de placer son nom en B4.

Attention: Tu aurais intérêt à gérer les erreurs éventuelles, parmi lesquelles le fait de nommer une feuille alors qu'elle existe déjà, entre autres erreurs possibles (nom de l'élève contenant des caractères non permis pour le nom des feuilles, ...)


Cela dit

C'est une TRES MAUVAISE organisation de classeur que de procéder avec une feuille par élève. Une règle d'or d'Excel est de ne pas mélanger les données et leur exploitation. Tu aurais grand intérêt à repenser la conception de ton classeur en fonction de sa finalité.

[riaolle]

Bonjour,

Comment connait-on le nombre d'élèves et leurs noms? Y a-t-il une feuille avec une liste?
Supposons qu'en feuille Feuil1, il y a une liste des élèves en colonne A.
Pour créer une feuille par élève, on utilisera une boucle For Each sur les cellules de la liste. La syntaxe d'une boucle For Each est la suivante :

Code :

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

1
2
3
For Each element In ensemble
    'action
Next element

Dans notre cas element sera la cellule contenant le nom de l'élève, on le déclarera donc comme un Range. Ensemble est l'ensemble des cellules contenant un nom d'élève.
Si la liste n'est pas amenée à changer, on notera tout simplement le Range de la liste, par exemple : Sheets("Feuil1").Range("A1:A25"), si on suppose qu'il y a 25 élèves. Si la liste est amenée à changer (ajout/suppression d'élève), il faudra détecter la dernière cellule non vide la la colonne A. Pour cela on utilise :

Code :

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

Sheets("Feuil1").Cells(Rows.Count, 1).End(xlUp)

Si on se met dans le 2ème cas, notre boucle sera donc :

Code :

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

1
2
3
4
Dim eleve As Range
For Each eleve In Range(Sheets("Feuil1").Cells(1, 1), Sheets("Feuil1).Cells(Rows.Count, 1).End(xlUp))
    'action
Next eleve

Comment reproduire cette grille

2 solutions :

1. Soit la macro dont tu parles auparavant créé la grille à partir d'une feuille de calcul vierge et alors, il faut juste créer une nouvelle feuille de calcul et lancer la macro sur cette feuille de calcul. Créer une nouvelle feuille : méthode Sheets.Add
2. Soit tu créés une feuille de calcul "Modèle" que tu copies à chaque fois que tu as besoin d'une nouvelle grille. Je préfère cette méthode. Pour copier une feuille en VBA : utilise l'enregistreur de macro quand tu fais l'opération "à la main". Indice : ce sera la méthode Worksheet.Copy.

les feuilles portent le nom des élèves

Ca peut dépendre de la méthode que tu utilises précédemment

1. Méthode 1 : tu peux utiliser :
   

   Code :

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

   Sheets.Add.Name = "toto"

   Ceci créé une nouvelle feuille nommée toto.
2. Méthode 2 : Après avoir copié la feuille Modèle, tu renommes cette feuille :
   

   Code :

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

   1
   2
   Sheets("Modèle").Copy After:=Sheets(Sheets.Count)
   ActiveSheet.Name = "toto"

le nom s'affiche aussi dans une cellule précise de chaque feuille (B4)

Pour écrire qqc dans une cellule on utilise :

Code :

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

Sheets("maFeuille").Range("A1").Value = "toto"

Ici, j'écris toto dans la cellule A1 de la feuille nommée maFeuille

Si on met toutes les explications bout à bout, on peut créer une méthode qui en fonction du nom de l'élève : créé une feuille avec la grille et écris le nom de l'élève en B4. Puis on appelle cette méthode dans la boucle.

Code :

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

1
2
3
4
5
Sub nouvelleGrille(nomEleve As String)
    Sheets("Modèle").Add.Name = nomEleve                      'créer nouvelle feuille nommée d'après le nom de l'élève
    Call methodeGrille                                                       'appeler ta méthode qui créé la grille
    Sheets(nomEleve).Range("B4").Value = nomEleve         'écrire le nom de l'élève dans la cellule B4
End Sub

ou (je préfère) :

Code :

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

1
2
3
4
5
Sub nouvelleGrille(nomEleve As String)
    Sheets("Modèle").Copy After:=Sheets(Sheets.Count)     'copier feuille avec la grille
    ActiveSheet.Name = nomEleve                                     'renommer feuille en fonction du nom de l'élève
    Sheets(nomEleve).Range("B4").Value = nomEleve         'écrire le nom de l'élève dans la cellule B4
End Sub

Et :

Code :

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

1
2
3
4
Dim eleve As Range
For Each eleve In Range(Sheets("Feuil1").Cells(1, 1), Sheets("Feuil1).Cells(Rows.Count, 1).End(xlUp))
    Call nouvelleGrille(eleve.Value)
Next eleve

J'espère que tu comprends bien mes explications et que tu pourras avancer avec cela

[Novice72]

Bonjour Pierre.
Tout d'abord merci pour ton aide.
Je reviens vers toi pour 2 petites questions.

1) Où dois-je placer la liste des élèves afin que " la fonction création de feuilles " puisse aller les chercher pour les nommer ?
2) Tu me dis que c'est une très mauvaises organisation de classeur que de procéder avec une feuille par élève. Moi je comptais créer un nouveau fichier sur lequel figure 20 feuilles pour 20 élèves ( 20 étant un exemple ). Mon autre problème sera de créer un autre fichier mais pour l'instant je me tiens à ça ( je pense me débrouiller avec l'éditeur de macro ). Parce que toi tu ferais comment ?


Encore merci. NOVICE72

[Pierre Fauconnier]

Tout dépend de la finalité de ton classeur. Que mettras-tu comme données dans tes feuilles?

[Novice72]

Bonjour Riaolle,

Juste pour te remercier de tout le travail que tu as fait pour moi.

Je me penche dessus cet après midi et te redis.

Encore merci.

NOVICE72

[Philippe Tulliez]

Bonjour,

C'est une TRES MAUVAISE organisation de classeur que de procéder avec une feuille par élève. Une règle d'or d'Excel est de ne pas mélanger les données et leur exploitation. Tu aurais grand intérêt à repenser la conception de ton classeur en fonction de sa finalité.

Je suis totalement d'accord avec Pierre que je salue au passage.

[Novice72]

Tout dépend de la finalité de ton classeur. Que mettras-tu comme données dans tes feuilles?

Bonjour,

Je t'explique ce que je veux faire:

1) Lorsque ma grille est faites grâce à une première macro ( cette grille dépend de la matière enseignée donc de la personne qui l'utilise ), je souhaite la recopier en autant d'exemplaire qu'il y a d'élèves.
2) cette grille recopiée ( CHAQUE ELEVE A SA FEUILLE ) je veux la remplir élève par élève .

La grille est un tableau à double entrées où les colonnes correspondent au numéro de l'évaluation et les lignes aux compétences évaluées.
Remarque : Les compétences évaluées ne sont pas toujours les mêmes,
une compétence peut être évaluées plusieurs fois.

Donc pour la remplir voici ce que je veux faire : ( actuellement tous les profs le font à la main...... )
Je choisis le premier élève. Dans sa grille, pour la première colonne ( évaluation N°1 )

Pour chaque compétence ( chaque ligne ) je remplis par une couleur ( rouge, orange, jaune ou vert ) suivant le niveau de réussite ( ou blanc lorsque non évaluée cette fois-ci ).
En dernière colonne ( " moyenne des couleurs des évaluations déjà faites" )

Voilà, ceci est la finalité de mon classeur. Mes données sont des couleurs.

Remarque :
ceci sera l'objet d'un autre travail pour que je choisisse la couleur (de chaque cellule ) via des listbox ( positionnées sur chaque cellule )

[78chris]

Bonjour

Je partage tout à fait les remarques de Pierre.

Par ailleurs utiliser seulement des couleurs n'autorisera aucune analyse à part visuelle, ni synthèse.

La couleur doit être une représentation d'un valeur que l'on peut donc "sommer", "moyenner", ... comparer...

Une moyenne de couleurs n'existe pas...

[Philippe Tulliez]

Bonjour,
Que ce soit l'agenda d'une ou plusieurs personnes, les résultats d'un ou plusieurs élèves, les mouvements de stock d'un ou plusieurs articles, etc. la gestion des données reste la même.
On n'organise pas les données comme on veut qu'elles soient représentées.
Dans une base de données il y a des tables (Exemple Access) ou liste de données (Exemple Excel) qui contiennent différents enregistrements et ensuite il y a les interfaces graphique de communications (en anglais Graphical User InterfaceI)
Les GUI peuvent être un UserForm ou une table dans une feuille où grâce aux fonctions de recherches, on ira chercher les données d'un élève, d'un article, d'une activité avec les détails pour ceux-ci ce qui se résume à très peu de feuilles (des feuilles de données et la feuille de consultation)
Lorsque l'on réserve une place d'avion sur internet, il n'y a pas autant d'écrans qu'il n'y a de numéros de vols, de compagnies et de passagers.

[Novice72]

Bonjour Riaolle,

Juste pour te remercier de tout le travail que tu as fait pour moi.

Je me penche dessus cet après midi et te redis.

Encore merci.

NOVICE72

Merci Riaolle,

J'ai réussi avec ce que tu m'as donné. Super tutoriel que tu m'as donné.

Encore Merci.

NOVICE72

[Rodomacro]

Bonjour,
Je rencontre un problème avec l'une de mes macros :
J'ai réalisé une première macro qui calcule les distances et les temps de parcours à partir d'une liste de points de départ et d'arrivée.
J'ai ensuite réalisé (ou plutôt essayé) une seconde macro qui permet de créer n feuilles EXCEL (une feuille par ville de départ) reprenant la macro de calcul des distances et temps de parcours --> la macro semble fonctionner car elle créer bien une feuille par ville et il est possible de lancer la macro de calcul des distances et temps, mais elle n'affiche aucun résultat (sans pour autant afficher de message d'erreur).

Si quelqu'un pouvait m'aider à faire fonctionner cette macro ça serait super. Merci d'avance.

Et voici la macro en question :


Sub Creation_Onglets_Selon_Modele()
Dim c As Range

Application.ScreenUpdating = False
Set c = Worksheets("Noms_Villes").Range("E4")
Do Until IsEmpty(c)

'on copie le modèle en dernier
Worksheets("Itinéraires").Copy after:=Worksheets(ThisWorkbook.Sheets.Count)

With Worksheets(ThisWorkbook.Sheets.Count)
.Name = c.Value
.Range("C1") = c.Value
.Range("C3") = Date
End With

Set c = c.Offset(1, 0)
Loop

Application.ScreenUpdating = True
End Sub

[riaolle]

Bonjour et bienvenue au forum Rodomacro !
Si tu as une question (bien différente d'une autre conversation) ouvre ta propre conversation. Et surtout ne pose pas ta question sur plusieurs conversations en même temps, cf. https://www.developpez.net/forums/d1...-meme-feuille/.
Quand tu écris du code, écris le entre balises code (bouton #).
Voici les règles du forum : http://club.developpez.com/regles/
Nous t'attendons donc sur une nouvelle conversation. Précise bien ce que tu veux dire par

la macro semble fonctionner [...] mais elle n'affiche aucun résultat
la macro de calcul des distances et temps

Quelle est cette macro de calcul des distances ? Peut-être que l'erreur provient de cette macro. Cette macro a-t-elle été testée ?

[Rodomacro]

Bonjour,

Oui j'ai testé la macro de calcul de distance et elle fonctionne très bien sur la feuille de base (celle que je cherche à dupliquer).
Tu peux la trouver sur le lien suivant (c'est le 1er lien) : https://excelinsmartdata.fr/downloads/


Merci !

[Patrice740]

Bonjour,

Dans le module "Geoloc" :

Code :

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

1
2
3
4
5
6
7
8
'Remplacer :
Sub GoogleMaps_Itin()
Dim shtData As Worksheet, shtRqt As Worksheet
'Par :
Sub GoogleMaps_Itin(shtData As Worksheet)
Dim shtRqt As Worksheet
'Et supprimer la ligne :
Set shtData = Sheets("Itinéraires")

Dans le module de la feuille "Itinéraires", ajouter :

Code :

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

1
2
3
Sub Calcul()
  Call GoogleMaps_Itin(Me)
End Sub

Sur la feuille de calcul "Itinéraires", affecter cette macro (Calcul) au bouton "Lancer le calcul des itinéraires"

Maintenant, cette feuille peut être dupliquée (j'ai pas testé).

[Rodomacro]

Bonjour,

J'ai appliqué vos consignes mais lorsque je lance le bouton de calcul des itinéraires, un message d'erreur s'affiche : "Utilisation incorrecte du mot clé "Me"".

J'ai essayé de contourner l'utilisation de la fonction Call mais ça ne marche pas non plus.

Avez vous une idée pour ce problème ?

Merci.

[Philippe Tulliez]

Bonjour,
Où se trouve le code VBA ?
Le mot clé ME fait référence à l'instance de la classe dans laquelle le code est exécuté.
Donc par exemple dans un UserForm ou dans un module de feuille mais pas dans un module standard.

[Rodomacro]

Bonjour,

Effectivement je ne savais pas que le mot clé ME devait passer par un UserForm ou un module de Feuille.
J'ai donc créé un nouveau module de feuille contenant la macro de calcul des itinéraires. Sur ce même module de feuille, j'ai intégré la macro de Patrice 740 (Sub Calcul).
Mon problème est donc pratiquement résolu ! En effet la macro de calcul des itinéraires fonctionne maintenant sur toutes les feuilles mais lorsque j'active le bouton pour la lancer (qu'elle que soit la feuille), la macro calcule les itinéraires de la 1ère feuille.

Savez vous comment faire pour que ma macro calcule les itinéraires de la page où se trouve le bouton et non pas ceux de la 1ère feuille ?

Merci.

[Philippe Tulliez]

Bonjour,

Effectivement je ne savais pas que le mot clé ME devait passer par un UserForm ou un module de Feuille

Tu places le curseur de la souris sur le mot clé ME, tu appuies sur la touche de fonction F1 et tu auras l'aide du VBA qui te donnera toutes les explications pour t'éclairer

[Rodomacro]

Merci pour votre aide, j'ai maintenant toutes les clés en main pour y arriver !