Copier tableau en dessous d'un autre

[Baptaber]

Bonjur à tous ! Alors voilà je suis bloqué, 'ai un code vba permettant de prendre les présences d'élèves. Ces élèves sont classés dans 6 groupes différents (A à F), et lorsque la présence va être prise l'utilisateur doit sélectionner les groupes pour lesquels il veut prendre les présences. Les élèves seront donc copiés dans une feuille annexe appelée "Eleves". Mon problème est : si je sélectionne plus qu'un groupe, au lieu d'avoir des élèves qui se copient les uns en dessous des autres : ex
eleve1 A
eleve2 A
eleve3 A
eleve4 A
eleve5 A
eleve1 C
eleve2 C
eleve3 C

ils vont se copier par-dessus les autres :
eleve1 C
eleve2 C
eleve3 C
eleve4 A
eleve5 A

J'espère que vous me comprendrez... Merci !
Mon code :


If grpa.Value = True Then
Sheets("1Bi A").Activate
Range("GroupeA").Select
Selection.Copy
Sheets("Eleves").Select
Range("Tableau41[NOM]").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
PrisePres.boxEt.Value = ActiveCell.Offset(0, 0) & " " & ActiveCell.Offset(0, 1)
End If

If grpb.Value = True Then
Sheets("1Bi B").Activate
Range("GroupeB").Select
Selection.Copy
Sheets("Eleves").Select
Range("Tableau41[NOM]").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
PrisePres.boxEt.Value = ActiveCell.Offset(0, 0) & " " & ActiveCell.Offset(0, 1)
End If

If grpc.Value = True Then
Sheets("1Bi C").Activate
Range("GroupeC").Select
Selection.Copy
Sheets("Eleves").Select
Range("Tableau41[NOM]").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
PrisePres.boxEt.Value = ActiveCell.Offset(0, 0) & " " & ActiveCell.Offset(0, 1)
End If

If grpd.Value = True Then
Sheets("1Bi D").Activate
Range("GroupeD").Select
Selection.Copy
Sheets("Eleves").Select
Range("Tableau41[NOM]").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
PrisePres.boxEt.Value = ActiveCell.Offset(0, 0) & " " & ActiveCell.Offset(0, 1)
End If

If grpe.Value = True Then
Sheets("1Bi E").Activate
Range("GroupeE").Select
Selection.Copy
Sheets("Eleves").Select
Range("Tableau41[NOM]").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
PrisePres.boxEt.Value = ActiveCell.Offset(0, 0) & " " & ActiveCell.Offset(0, 1)
End If

If grpf.Value = True Then
Sheets("1Bi F").Activate
Range("GroupeF").Select
Selection.Copy
Sheets("Eleves").Select
Range("Tableau41[NOM]").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
PrisePres.boxEt.Value = ActiveCell.Offset(0, 0) & " " & ActiveCell.Offset(0, 1)
End If

 

[Hasco]

Bonjour,

Que sont les objets 'grpa' 'grpb' etc... des checkbox ou optionbutton de userform ? ou autre chose ?
Idem pour 'PrisePres' koikess?

Avec un classeur exemple anonymisé se serait plus facile.

Cordialement

 

[Baptaber]

grpa, grpb,... sont des checkbox et PrisePres est mon userform.

 

[Hasco]

Re,

Sous toutes réserves, car si c'est fatiguant pour vous de joindre un classeur exemple, qu'en est-il pour vous répondre que de naviguer dans le vide.
Aussi si les lignes ci-dessous ne fonctionnent pas, je n'assurerai pas l'après-vente.

Sub truc()
    Dim destination As Range
    For Each lettre In Array("A", "B", "C", "D", "E", "F")
        If Me.Controls("grp" & lettre).Value = True Then
            With Sheets("Eleves")
                Set destination = .Cells(.Rows.Count, .Range("Tableau4[Nom]").Column).End(xlUp).Offset(1)
            End With
            Sheets("1Bi " & lettre).Range("Groupe" & lettre).Copy destination
        End If
    Next
End Sub

Bonne cogitation

 

[Hasco]

Bonjour,

Ben ça va mieux comme ça, merci. Je ne pouvais pas deviner que vos plages étaient des tableaux excel (ListOjects).
Par contre je n'ai pas bien compris ce qu'il fallait mettre dans 'PrisePres.boxEt'. S'il s'agit de la liste des élèves qui vient d'être copiée, une listbox serait plus indiquée.

Private Sub CommandButton2_Click()
    Dim destination As Range
    For Each lettre In Array("A", "B", "C", "D", "E", "F")
        If Me.Controls("grp" & lettre).Value = True Then
            With Sheets("Eleves")
                Set destination = .Cells(1, 1).ListObject.ListRows.Add().Range
            End With
            Sheets("1Bi " & lettre).ListObjects("Groupe" & lettre).DataBodyRange.Copy destination
        End If
    Next
    
PrisePres.Show
Prises.Hide

End Sub

Bonne cogitation

 

[Baptaber]

Super, merci, ça fonctionne !!!!! Dans boxEt, les étudiants doivent apparaître (ceux qui auront été placés dans la feuille des élèves), leur nom et prénom et la on doit appuyer sur "Présent" ou "Absent" et son nom s'écrira dans la feuille du cours sélectionné avec 1 pour l'appui du bouton présent et 0 pour l'appui du bouton absent. J'espère que vous m'avez compris ! Merci 🙂

 

[Hasco]

Re,

Oui j'ai compris et vous laisse au moins commencer à le faire.

Bonne après-midi