XL 2019 copier une ligne en fonction de la valeur d'une cellule

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 12 Juillet 2023

• #2

Bonjour Quetzal, et bienvenu(e) sur XLD,
N'auriez vous pas un petit fichier test.
Cela permettrait d'avoir la structure de votre fichier et d'éviter ainsi de recommencer plusieurs fois.

 

Vote positif 0 Vote négatif

Q

quetzal974

XLDnaute Nouveau

• 13 Juillet 2023

• #3

Bonjour ci joint un exemple du fichier
donc comme citer au dessus est il possible que la ligne de eleve 1 (feuille 1) puisse etre recopier automatiquement dans la feuille PSA quand on choisi sa classe a partir du menu deroulant

 

Pièces jointes

• adherent.xlsx

  193.4 KB · Affichages: 5

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 13 Juillet 2023

• #4

Bonjour Quetzal,
Un essai en PJ avec :

VB:

Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("E9:E1000")) Is Nothing Then
        Dim L%, DL%, Feuille$
         Application.ScreenUpdating = False
         If Target = "" Then Exit Sub
         L = Target.Row: Feuille = Cells(L, "E")
         With Sheets(Feuille)
            DL = .[B27].End(xlUp).Row + 1
            .Cells(DL, "B") = Cells(L, "B") 'Nom
            .Cells(DL, "C") = Cells(L, "C") 'Prénom
            .Cells(DL, "D") = Cells(L, "D") 'Date
         End With
    End If
Fin:
Application.ScreenUpdating = True
End Sub

Le transfert se fait lorsqu'on a fait le choix de classe avec le menu déroulant.
( attention à la syntaxe, il y avait "PS A" dans le menu mais "PSA comme nom de feuille )

 

Pièces jointes

• adherent.xlsm

  206.2 KB · Affichages: 10

Vote positif 0 Vote négatif

Q

quetzal974

XLDnaute Nouveau

• 13 Juillet 2023

• #5

Merci sylvanu ca marche
mais je ne vois pas la macro quand je fais alt F8
et il arrive qu'un enfant change de classe au début (les parents sont vraiment ennuyant pour rester poli)
du coup quand je change de classe l'eleve est bien inscrit dans la nouvelle classe mais reste dans l'ancienne classe

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 13 Juillet 2023

• #6

Bonjour,
Worksheet_Change est une macro événementielle qui se déclenche sur un événement, ici un changement de valeur dans une cellule.
Cette macro n'est donc pas dans un module mais dans la feuille elle même.

quetzal974 à dit:

et il arrive qu'un enfant change de classe au début (les parents sont vraiment ennuyant pour rester poli)
du coup quand je change de classe l'eleve est bien inscrit dans la nouvelle classe mais reste dans l'ancienne classe

Cliquez pour agrandir...

Ca, c'est plus complexe car la macro enregistre la nouvelle valeur mais non l'ancienne.
Ne serait ce pas plus simple de le faire à la main ?

 

Vote positif 0 Vote négatif

Q

quetzal974

XLDnaute Nouveau

• 13 Juillet 2023

• #7

oui je commence a comprendre la complexité de ma demande (enfin celle des parents 2 jours apres la rentrée)
j'ai juste a supprimer de l'ancienne classe mais ca va pas casser le code vba ?

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 13 Juillet 2023

• #8

Le code ne se préoccupe sur la bonne page que de la recherche de la dernière ligne.
Si la page est modifiée, le VBA s'en fiche.

Autre solution : Interdire tout changement de classe après inscription.

 

Vote positif 0 Vote négatif

Q

quetzal974

XLDnaute Nouveau

• 13 Juillet 2023

• #9

merci

"Autre solution : Interdire tout changement de classe après inscription."
oui on devrait voter une loi pour ca
sinon je me suis permit de faire mes recherches en attendant et chatgpt m'a pondu çà en PJ

en tout cas je te remercie je perds moins de cheveux grace a toi

 

Pièces jointes

• VBA.txt

  1.2 KB · Affichages: 6

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 13 Juillet 2023

• #10

Méfiez vous de ChatGPT, ses réponses ne sont pas toujours pertinentes. tout dépend de votre question.
En l'occurrence il prend la valeur du menu déroulant et va mettre la ligne dans la bonne feuille.
En aucun cas il ne supprime l'ancienne ligne, si elle était déjà enregistrée.
Exactement comme moi mais pas en automatique, il faut lancer la macro à la main et lui donner la ligne à traiter.

 

Vote positif 0 Vote négatif

Q

quetzal974

XLDnaute Nouveau

• 13 Juillet 2023

• #11

oui avec l'humain on peut encore faire des blagues et des sous entendus

 

Vote positif 0 Vote négatif