copier un tableau d'une feuille a une autre avec modification

Version imprimable

26/06/2022, 01h40
nacereddine mourad

1 pièce(s) jointe(s)

copier un tableau d'une feuille a une autre avec modification
Bonjour:
Je voudrais copier le tableau de la feuille "personnel", dans la feuille "pointage" avec bouton CommandButton10, en tenant compte des en-têtes et du code de l'expert EricDgn
Code:

1 2 Set LastRow = Sheets("pointage").Range("A65536").End(xlUp) If LastRow = "" Then Set LastRow = LastRow.Offset(-1, 0) '--- si vide, remonter encore d'une ligne
-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
comme expliqué ci-dessous par l'expert EricDgn

Effectivement, il y a un petit piège avec les tableaux structurés vides: le .End(xlUp) aboutit non pas sur la ligne de titre mais sur la ligne vide qui se trouve juste sous cette ligne de titres. Une façon de vérifier cela est de voir si la cellule sur laquelle on aboutit est vide ou non (en prenant une colonne où l'on sait qu'il doit toujours y avoir une valeur inscrite). Si elle est vide c'est qu'on est juste sous la ligne de titres, sur une ligne vide. Si elle n'est pas vide, c'est qu'on est sur la dernière ligne du tableau qui contient au moins 1 ligne avec des données.
Dans votre cas, il faut compléter après les instructions Set LastRow:
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Copier le tableau Feuille "personnel" :
colonne A [Id]
colonne B [Code personnel]
colonne C [Nom]
colonne D [Prénom]
colonne E [Fonction]
colonne F [Salaire négocié]

-----------------------------------------
Coller dans la Feuille "pointage" :
colonne A [Id]
colonne B [Code personnel]
colonne C [le contenu de ComboBox_annee dans userform1]
colonne D [le contenu de ComboBox_mois dans userform1]
colonne E [Nom]
colonne F [Prénom]
colonne G [Fonction]
colonne H [Salaire négocié]
colonne K [le texte "Non soldé"]

merci et bonne continuation.

Bonjour,

Une façon de faire:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Private Sub CommandButton10_Click()
    Dim kRpnt As Long, i As Long, rPers As Range
    If Me.ComboBox_annee = "" Or _
        Me.ComboBox_mois = "" Then
        MsgBox "Veuillez selectioner l'année et le mois"
        Exit Sub
    End If
    '--- recopie une à une les personnes
    If Worksheets("pointage").ListObjects("pointage").DataBodyRange Is Nothing Then
        kRpnt = 0
    Else
        kRpnt = Range("pointage").Rows.Count
    End If
    Set rPers = Range("personnel")
    i = 1
    With Range("pointage").Cells(kRpnt, 1)
        While rPers.Cells(i, 1) <> ""
            .Offset(i, 0) = rPers.Cells(i, 1)
            .Offset(i, 1) = rPers.Cells(i, 2)
            .Offset(i, 2) = CInt(ComboBox_annee)
            .Offset(i, 3) = ComboBox_mois
            .Offset(i, 4) = rPers.Cells(i, 3)
            .Offset(i, 5) = rPers.Cells(i, 4)
            .Offset(i, 6) = rPers.Cells(i, 5)
            .Offset(i, 7) = rPers.Cells(i, 6)
            .Offset(i, 10) = "Non soldé"
            i = i + 1
        Wend
    End With
    Set rPers = Nothing
End Sub

Cordialement.

27/06/2022, 00h16
nacereddine mourad

merci EricDgn, merci pour tout les solutions que vous m'avez apporté