Ajouter ligne d'une liste de choix dans une autre feuille Résolu

Question

Bonsoir, 

Me revoilà vers vous pour un problème que je trouve complexe.
Peut-être même que j'en demande trop pour Excel :p

M'enfin, j'expose l'idée.

J'ai un classeur contenant :
- Des feuilles d'ateliers
- Des feuilles de classes

Les cellules des feuilles de classes ont une liste de choix des ateliers sous chaque jour.
Les cellules des feuilles d'ateliers attendent de recevoir l'ordre d'ajouter un enfant d'une classe ayant été ajouté à son atelier.

Exemple :
Classe de Mme JEANNET. Cellule D8 (qui concerne Manon).
Cette cellule est une liste de choix (qui recense les ateliers).
Je clique, dans cette liste, sur "Jeux".
Je sais que Manon, tous les lundis de la période 1 (P = période), à fait l'atelier "Jeux".

Maintenant, je veux savoir qui a fait l'atelier "Jeux".
Je vais dans la feuille d'atelier "Jeux".
Je souhaite voir dans cette feuille le NOM et le Prénoms des enfants ayant participer à l'atelier. Dans notre exemple : MARTIN en A40 et Manon B40.

Cela me parait difficile. Je sais ce que je souhaite mais peine à y arriver. Peut-être que quelqu'un pourrait m'aider :)

Le fichier en question : https://www.cjoint.com/c/DIubbMFxfYe

Merci d'avance !

Configuration: Windows 7 (64 bits)
Google Chrome 37
Intel(R) Core(TM) i3 CPU
2.4GHz
Mémoire 4,00 Go

f894009 · Answer

Bonjour,

Si il y a erreur d'atelier pour un nom, que voulez vous qu'il se passe ???????

Nai · Answer

Je ne vois pas comment il pourrait y avoir une erreur d'atelier.
Vous voulez peut-être dire, si l'utilisateur se trompe d'atelier pour un enfant ?
Il a cliqué sur "Jeux" pour Manon alors qu'il voulait "Dionée" par exemple ?

En effet, je n'avais pas pensé à ça :D

Du coup, toujours en suivant l'exemple.
Manon fait l'atelier "Jeux".
Elle figure dans la feuille "Jeux" de la Période 1.
Mais l'utilisateur s'est trompé d'atelier.

Si, à Manon, l'utilisateur change "Jeux", en "Dionée" de la Période 1,
Alors, sa ligne est copiée de la feuille "Jeux" pour être coller dans la feuille "Dionée". Puis, toutes les informations concernant Manon de la feuille "Jeux" de la période 1 sont supprimées. Uniquement les informations, pas les formules ni les propriétés des cellules.

Ça fait beaucoup :O
 
Bien à vous,
Naï
ps: je surveille tous mes sujets non résolus, si solution vous avez, je la lirais à coup sûr :)

f894009 · Answer

Re,

Je ne vois pas comment il pourrait y avoir une erreur d'atelier. Ah que si, tout dépend de quel cote vous vous placez

Autres details
pour un nom: lundi---> jeux, Jeudi----> Jeux possible ou pas, ou est la difference au niveau des tableaux dans les onglets Ateliers entre Lundi et Jeudi ???

25 places par periode/atelier: le 26eme va ou ???

Nai · Answer

pour un nom: lundi---> jeux, Jeudi----> Jeux possible ou pas
C'est possible, bien que rare ;)

ou est la difference au niveau des tableaux dans les onglets Ateliers entre Lundi et Jeudi ???
En te lisant, j'ai l'impression de n'avoir pensé à rien...
Les ateliers du lundi ne sont pas les mêmes que le jeudi, sauf deux exceptions... Je ne sais pas comment traiter cela... :/

25 places par periode/atelier: le 26eme va ou ???
J'y avais pensé, sans me dire qu'il arrive, plus souvent que je ne le pensais au départ, qu'il y ait plus de 25 enfants par atelier...
J'ai corrigé cela en ajoutant 25 lignes de plus, pour porter le nombre d'enfant possible à 50.

Merci infiniment pour ton aide ! Je me rend compte qu'il y a des choses auxquelles je n'avais pas pensé !

Le fichier corrigé : https://www.cjoint.com/c/DIuwplXSZUz

Bien à vous,
Naï
ps: je surveille tous mes sujets non résolus, si solution vous avez, je la lirais à coup sûr :)

f894009 · Answer

Bonjour,

En te lisant, j'ai l'impression de n'avoir pensé à rien...
Faut pas le voir comme cela, vous avez deja pense a creer quelque chose pour aider

Votre premier fichier modifie avec 25 places. Pour le jeudi meme atelier, en attendant, mais pose un probleme pour les modifications et suppression d'atelier.

https://www.cjoint.com/c/DIviAwzknrA

Fonctionnement: choix atelier, changement atelier, suppression atelier tout se fait automatiquement, previent si eleve pas dans l'atelier a supprimer (permet de faire table rase apres les tests), previent si depassement de place

Testez pour voir les anomalies

Expliquez: Les ateliers du lundi ne sont pas les mêmes que le jeudi. 
nous pourrons arriver a une solution


Je modifie le fichier avec 50 places et je regarde a modifier le code pour le reduire un peu par feuille en attendant le debat lundi/jeudi que faire

A+

f894009 · Answer

Re,

fichier 50 places et repris structure code feuilles : https://www.cjoint.com/c/DIvjGJ7e3mU

A+

Nai · Answer

Merci beaucoup ! Ça fonctionne ! :D
En ce qui concerne les ateliers du lundi et du jeudi, j'ai corrigé ce problème en ajoutant 15 feuilles de plus. Ainsi, il existe 15 feuilles pour les ateliers du lundi, et 15 autres pour les ateliers du jeudi.
Ça alourdis un peu le fichier, mais bon...

Ensuite, j'ai regardé tes macros, et le code des feuilles, je n'y comprend pas grand chose.
J'ai essayé de prendre exemple sur tes macros du lundi pour les appliquer au jeudi, en vain... . Impossible d'adapter une macro si je ne la comprend pas :D

Ainsi, voici le fichier avec les feuilles supplémentaires d'atelier.

https://www.cjoint.com/c/DIvp2uwtZL3

Aussi, minuscule problème : impossible d'ajouter un groupe d'enfant à un atelier... En sélectionnant D9:D28, je pensais qu'en choisissant l'atelier Carton, par exemple, tous les enfants de cette plage iraient dans la feuille correspondante, mais non, seul le premier y va... J'ai aussi essayé en étirant la cellule D8 jusqu'à D28, sans plus de résultat.

Y aurait-il un moyen pour permettre l'ajout de plusieurs enfants à une fiche ?

Bien à vous,
Naï
ps: je surveille tous mes sujets non résolus, si solution vous avez, je la lirais à coup sûr :)

f894009 · Answer

Bonjour,

Il n'y a pas de modif a faire pour les Ateliers Jeudi et Lundi puisque vous avez des noms d'ateliers differents Mais il y en a une pour le nombre d'eleves par classe, puisque les classes n'en n'ont pas le meme nombre . Pour le groupement d'eleves pour un atelier, c'est faisable, je regarde la chose.

A+

f894009 · Answer

Re,

Il y a quand meme une modif, Atelier as String dans Private Sub Worksheet_Change, sinon c'est l'index qui est pris et pas le nom (voir explication message: Afficher onglets par numéros de feuille [Résolu])

Nai · Answer

Bonjour,

Il n'y a pas de modif a faire pour les Ateliers Jeudi et Lundi puisque vous avez des noms d'ateliers differents 

Oui, mais du coup, dans les feuilles des classes, si j'ajoute un enfant à l'atelier 1 du jeudi, il n'apparaît pas dans la feuille de l'atelier 1.

Petite question : si un atelier du jeudi s'intitule comme un autre du lundi, peut-il y avoir des erreurs quelconque ?

Encore merci pour le suivi ! :)

f894009 · Answer

Re,

Oui, mais du coup, dans les feuilles des classes, voir  Lien (#9)

Petite question : si un atelier du jeudi s'intitule comme deux onglets ne peuvent avoir le meme nom ou alors c'est le meme Atelier !!!!!!!

Nai · Answer

alors c'est le meme Atelier !!!!!!!
Oui, l'un qui aurait lieu le lundi, l'autre le jeudi :)
L'atelier Sport, par exemple, a lieu le lundi et le jeudi, mais avec des enfants différents, d'où les deux feuilles.

A propos du lien 9, je n'ai pas compris :$

f894009 · Answer

Re,

A propos du lien 9, je n'ai pas compris :$  Comme je n'ai pas declare la variable Atelier en tant que chaine dans les onglets classes, quand vous choisissez un atelier 1 ou 2, Atelier=1 pas "1" d'ou l'index(rang) des onglets et pas le nom de l'onglet classe.

L'atelier Sport, par exemple, a lieu le lundi et le jeudi Ben oui, mais dans le fichier a dispo y a pas de sportssssss, donc .......... si vous voulez que j'avance sur ce sujet faudrait donner les infos assez vite 

Affectation groupe d'eleves pour un atelier, c'est en bonne voie

f894009 · Answer

Re,

quelques changements feuiile CP Mme VIALE seulement pour moment, plus de listes de validation de donnees. Tout se fait par click droit sur une cellule ou une plage de cellules d'une meme colonne ceci a pour avantage que la liste des ateliers est bien plus lisible et une seule manip pour avoir la dite liste

https://www.cjoint.com/c/DIwr0fMDsyK

Pour les sports lundi/Jeudi j'attends 

A+

Nai · Answer

J'ai cité l'atelier sport comme j'aurais pu citer l'atelier Jeux, qui d'ailleurs a lieu le lundi et le jeudi aussi, mais avec des enfants différents.

On peut faire :
Dans les feuilles des classes, 
- les colonnes D, F, H, J et L remplissent les onglets 2 à 16, 
- et les colonnes E, G, I, K et M remplissent les onglets 17 à 31

Dans le dernier fichier que je vous ai envoyé, feuille Accueil, il y a 15 ateliers le lundi (de B7 à B21, en vert) et 15 ateliers le jeudi (de B22 à B36, en rose).

J'ai appliqué des validations de données dans les feuilles des classes.
- Les colonnes D, F, H, J et L ne prennent en compte que les ateliers du lundi (donc de B7 à B21 de la feuille Accueil). Dans ces colonnes, impossible d'ajouter un atelier du jeudi (logique).
- Les colonnes E, G, I, K et M ne prennent en compte que les ateliers du jeudi (donc de B22 à B36 de la feuille Accueil). Dans ces colonnes, impossible d'ajouter un atelier du lundi (logique).

J'espère que c'est compréhensible :)

Bien à vous,
Naï
ps: je surveille tous mes sujets non résolus, si solution vous avez, je la lirais à coup sûr :)

Nai · Answer

Nous nous sommes croisé :D
En effet, ça fonctionne :)
Un tout petit soucis d'affichage au moment du clic droit.
Je dois survoler la liste pour que les noms d'ateliers apparaissent. 

Je test le classeur. Chaque classe, chaque période et chaque atelier :)

Merci encore pour le travail et votre patience ! :)

f894009 · Answer

Re,

Je dois survoler la liste pour je regarde le pourquoi 

Chaque classe, chaque période et chaque atelier :) Non, une seule classe   CP Mme VIALE, les autres ne sont pas modifiees (voir f894009 22 sept. 2014 à 17:53  et f894009 - 22 sept. 2014 à 18:06 )

Nai · Answer

Merci pour l'erreur :)

Tout est nickel ! :)
Manque plus que les autres classes et ce sera parfait ! :D

f894009 · Answer

Re,

sera fait demain matin

A+

f894009 · Answer

Bonjour,

fichier modifie pour tous les onglets classes, restructure code pour optimisation

https://www.cjoint.com/c/DIxjfPuDS05

A+

Nai · Answer

Merci infiniment !
Pour le travail, l'efficacité, la rapidité et la gentillesse :)

Merci !

Nai · Answer

Heu, petit problème, peut-être devrais-je ouvrir un nouveau sujet, mais bon...

De nombreuses cellules dépendent d'autres cellules, toujours selon le fichier que nous nous échangeons. 
Exemple : Feuille Accueil, C41 à C45 et E41 à E45 sont entrées par l'utilisateur.
Mais, feuille Jeux, C41 et E41 de la feuille Jeux, sont respectivement D37 et F37 de la feuille Accueil.
Lorsque je modifie D37 ou F37 de la feuille Accueil, C41 et E41 de la feuille Jeux ne se mettent pas à jour automatiquement... Ce problème est le même sur toutes les périodes et tous les ateliers, gênant donc.
La formule doit-elle être différente de =Accueil!C41 ?

Aussi, il y a un soucis avec les validations de données pour les dates.
En effet, C39:J39 sont des cellules formatées en dates. La validation de données veut que ces dates soient comprises entre D37 et F37, mais il accepte toutes les dates, sauf C39 de la feuille Jeux qui semble comprendre qu'il doit être compris entre D37 et F37 de la feuille Accueil...

Merci encore pour les derniers détails :D

EDIT : Le calcul refonctionne.
Fichier -> Options -> Formules. Dans la zone "Mode de calcul", puis "Calcul du classeur", cliquer sur "Automatique". Excel 2010

EDIT 2 : Les validations de données refonctionnent.
Dans mon cas, ne pas cliquer sur "Ignorer si vide". Excel 2010

Bien à vous,
Naï
ps: je surveille tous mes sujets non résolus, si solution vous avez, je la lirais à coup sûr :)

f894009 · Answer

Re,

Et que voulez vous en fin de compte, car je ne vois pas trop en vous lisant ?????

Chez moi le calcul est par defaut en Auto et tout se met a jour sans probleme !!!

f894009 · Answer

Re,

J'ai un fichier avec detection d'insriptions multiples par atelier au cas ou il y aurait inscription directement sur les onglets ateliers

A vous de voir

Nai · Answer

J'y avais pensé, mais je me suis dis que le plus simple serait d'interdire la saisie dans les onglets des ateliers, mais je n'ai pas réussi.
Ça m'intéresse, en effet :)
Ça voudrait dire qu'il ne serait pas possible d'ajouter un enfant directement dans les onglets des ateliers ? Uniquement depuis les classes ?

f894009 · Answer

Bonjour,

Comme vous n'avez pas verrouille toutes les cellules des onglets ateliers, j'ai donc pense a traiter les doublons. Si vous verrouillez toutes les cellules des ateliers (protection feuille avec mot de passe et protection du code VBA aussi puisque le mot de passe sera ecrit dedans pour les ecritures dans les onglets), plus besoin de traiter les doublons puisque pas possible d'ecrire manuellement et presence dans un atelier testee par programme a chaque saisie dans onglets classes

A+

Nai · Answer

Tout simplement, protéger les cellules :D
En effet, c'est bon.

J'ai présenté et donné le fichier à ma collègue, et, elle a fait quelque chose qu'elle n'aurait pas du faire :
Dans les feuilles des classes, elle ajoute un groupe à l'atelier "Jeux". Pour tester. Ensuite, elle a voulu retirer ces enfants. Elle a sélectionné le groupe d'enfant, et, au lieu de faire Clic droit, case blanche, elle a appuyé sur le bouton Suppr.
Du coup, dans la classe, les enfants n'ont plus leur atelier, mais dans l'atelier Jeux ils s'y trouvent encore.

Comment pourrait-on interdit ce type de suppression ?
Ou alors, faire comme si la case blanche était égale à la touche Suppr ?

f894009 · Answer

Bonjour,

Je regarde la chose. Je vais mettre "Suppr." a la place de la case blanche pour effacement. Voir pour invalider la touche Suppr. ou autre idee qui me viendra


A+

f894009 · Answer

Bonjour,

pour empecher toutes modifications manuelles des ateliers sur les onglets classes,dans le VBA de chaque Onglet classe, remplacez

'Changement nom ongletPrivate Sub Worksheet_Change(ByVal Target As Range)    If Not Intersect(Target, Range("A1")) Is Nothing Then        ActiveSheet.Name = Target    End IfEnd Sub

'par:

'Changement nom onglet et invalide changement Ateliers en manuelsPrivate Sub Worksheet_Change(ByVal Target As Range)    derlig = Cells(8, 1).End(xlDown).Row    If Not Intersect(Target, Range("A1")) Is Nothing Then        ActiveSheet.Name = Target    ElseIf Not Application.Intersect(Target, Range("D8:M" & derlig)) Is Nothing Then        Application.EnableEvents = False        Application.Undo        Application.EnableEvents = True    End IfEnd Sub

A+

f894009 · Answer

Re,

suite:

Dans le module PopUpMenu_L:

ajoutez les lignes en gras

Function CreateSubMenu_L() As CommandBar  ''Name for popup menu  Const lcon_PuName = "PopUpLundi"  ''Create some objects  Dim cb As CommandBar  Dim cbc As CommandBarControl  Dim cel As Range  Dim Plage As Range  Dim derligne As Long  Dim c, x  Dim derlig      ''Ensure our popup menu does not exist    DeleteCommandBar_L lcon_PuName  ''Add our popup menu to the CommandBars collection  Set cb = CommandBars.Add(Name:=lcon_PuName, Position:=msoBarPopup, MenuBar:=False, Temporary:=False)  '' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  'Plage de nom colonne A  With Worksheets("Accueil")        If Jour = "L" Then            Set Plage = .Range("B7:B21")        ElseIf Jour = "J" Then            Set Plage = .Range("B22:B36")        Else        End If   End With    Set cbc = cb.Controls.Add    With cbc        .Caption = "Suppr."        .OnAction = "Recup_Nom_Atelier_L"        .Tag = .Caption    End With  For Each cel In Plage    'Add some demo controls      Set cbc = cb.Controls.Add      With cbc        .Caption = cel        .OnAction = "Recup_Nom_Atelier_L"        .Tag = .Caption      End With  Next cel    Set cbc = cb.Controls.Add    With cbc        .Caption = "Suppr."        .OnAction = "Recup_Nom_Atelier_L"        .Tag = .Caption    End With  '' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  Set CreateSubMenu_L = cbEnd Function

et

Sub Recup_Nom_Atelier_L()    'get the tag property of the clicked control    Atelier_Choisi = Application.CommandBars.ActionControl.Tag    If Atelier_Choisi = "Suppr." Then        Atelier_Choisi = ""    End IfEnd Sub


Dans 'Changement nom onglet et invalide changement Ateliers en manuels
Private Sub Worksheet_Change(ByVal Target As Range) nouvelle version,

a la suite d'erreur sur cellule vide, remplacez la ligne:

ElseIf Not Application.Intersect(Target, Range("D8:M" & derlig)) Is Nothing Then

par

ElseIf Not Application.Intersect(Target, Range("D8:M" & derlig)) Is Nothing And Target <> "" Then

Nai · Answer

Ca ne semble plus fonctionner...
J'ai une "incompatibilité de type" avec la ligne suivante :
    ElseIf Not Application.Intersect(Target, Range("D8:M" & derlig)) Is Nothing And Target <> "" Then

Une idée ? :)

f894009 · Answer

Bonjour,

un traitement d'erreur pas vraiment top mais ca marche, code pour tous les onglets classe:

'Changement nom onglet et invalide changement manuelsPrivate Sub Worksheet_Change(ByVal Target As Range)    On Error GoTo sortie    derlig = Cells(8, 1).End(xlDown).Row    If Not Intersect(Target, Range("A1")) Is Nothing Then        ActiveSheet.Name = Target    ElseIf Not Application.Intersect(Target, Range("D8:M" & derlig)) Is Nothing Then        Application.EnableEvents = False        Application.Undo        Application.EnableEvents = True    End Ifsortie:End Sub

Nai · Answer

Ça fonctionne :D
Est-ce qu'on peut indiquer à l'utilisateur que pour supprimer des enfants d'un atelier il doit utiliser le bouton Supp. et non la touche Suppr, au moment où il appuie sur Suppr ?

f894009 · Answer

Bonjour,

je regarde pour faire

A+

f894009 · Answer

Re,



code pour chaque onglet classe


'Changement nom onglet et invalide changement manuelsPrivate Sub Worksheet_Change(ByVal Target As Range)    On Error GoTo sortie    derlig = Cells(8, 1).End(xlDown).Row    If Not Intersect(Target, Range("A1")) Is Nothing Then        ActiveSheet.Name = Target    ElseIf Not Application.Intersect(Target, Range("D8:M" & derlig)) Is Nothing Then        Application.EnableEvents = False        Application.Undo        Application.EnableEvents = True        retval = MsgBox("[ SUPPRESSION ATELIER ]" & vbNewLine & _                                "Utilisez la liste des ateliers et click sur Suppr." & vbNewLine & _                                "en début ou fin de liste", , "¤ ALERTE ¤")    End Ifsortie:End Sub

Ajouter ligne d'une liste de choix dans une autre feuille

35 réponses

Discussions similaires

Newsletters