Macro technique
boulboul7
Messages postés
8
Statut
Membre
-
foo -
foo -
bonjour je suis en train de travailler sur un classeur excel pour la gestion d'un centre de loisir.
je voudrais donc que sur l'onglet "listingn principale" lorsque j'affecte un groupe a un jeune, son nom et son prénom se mettent automatiquement dans le listing du groupe correspondant.
si vous avez besoin de plus de detail n'hesitez pas!
je vous joint le fichier : https://www.cjoint.com/?DEklWZ3VLfh
un grand merciiii encore pour l'attention que vous m'accorderez !
je voudrais donc que sur l'onglet "listingn principale" lorsque j'affecte un groupe a un jeune, son nom et son prénom se mettent automatiquement dans le listing du groupe correspondant.
si vous avez besoin de plus de detail n'hesitez pas!
je vous joint le fichier : https://www.cjoint.com/?DEklWZ3VLfh
un grand merciiii encore pour l'attention que vous m'accorderez !
4 réponses
-
Bonjour
Votre fichier avec la formule pour afficher le nom et le prénom
https://www.cjoint.com/?3EkmBNJiAAz
-
Bonjour,
Ton fichier en retour pour renseigner les fiches d'appel
https://www.cjoint.com/?DEknqOCI8xy
A+-
-
J'ai utilisé une procédure évènementielle (Worksheet.Change) qui permet de détecter la modification d'une cellule dans la colonne I.
Avec la valeur de cette cellule, on détermine le nom du groupe, soit le nom de la feuille cible.
Il reste ensuite à faire la copie du nom et du prénom.
Voici le code commenté :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim LigneAjout As Long
'Si le nombre de cellules modifiées est supérieur à 1, on sort de la procédure
If Target.Count > 1 Then Exit Sub
'Si la cellule modifiée appartient à la colonne "Groupe"
If Not Application.Intersect(Target, Range("I6:I155")) Is Nothing And Target.Value <> "" Then
'On détermine le nom de la feuille cible
With Worksheets("groupe " & Target.Value)
'On détermine le numéro de ligne où doit se faire la copie du nom et du prénom
LigneAjout = .Range("E" & Rows.Count).End(xlUp).Row + 1
'On copie le nom
.Range("E" & LigneAjout).Value = Range("C" & Target.Row).Value
'On copie le prénom
.Range("F" & LigneAjout).Value = Range("D" & Target.Row).Value
'On affiche un message pour indiquer que le traitement est réalisé
MsgBox Range("C" & Target.Row).Value & " " & Range("D" & Target.Row).Value & " a été inscrit dans la fiche d'appel du " & .Name
End With
End If
End Sub
A+ -
-
-
-
