Discussion :

[Toro74]

Bonjour,
Je souhaite copier une ligne d'un tableau structuré, créer une nouvelle ligne dans ce tableau puis coller la ligne et enfin intégrer les éléments d'un userform dans cette nouvelle ligne.
J'arrive à créer la ligne, à intégrer les éléments de l'userform mais je n'arrive pas à coller les éléments .
Pourriez vous m'aider?
Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub CommandButtonValider_Click()
With Sheets("Gestionprojet")
With ActiveSheet.ListObjects("Tableau5")
        .ListRows.Add AlwaysInsert:=False
 
        Application.GoTo .ListRows.Item(.ListRows.Count).Range(1), True
        End With
 
.Rows(5).Copy
.Range("B65536").End(xlUp).Row.Paste
 
i = .Range("B65536").End(xlUp).Row
.Range("B" & i).Value = AjoutProjet.AxeStrat
End With
End Sub

Bonne journée.

[Franc]

Salut, vois si ça peut t'aider, au lieu d'un copy/paste j'utilise la méthode .value pour affecter les valeurs:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CommandButtonValider_Click()
    With Sheets("Gestionprojet").ListObjects("Tableau5")
        ' Ajouter une nouvelle ligne
        .ListRows.Add AlwaysInsert:=False
 
        ' Copier les valeurs de la ligne 5 dans la nouvelle ligne
        Dim lastRow As Long
        lastRow = .ListRows.Count ' Obtenir le numéro de la dernière ligne
        .ListRows(lastRow).Range.Value = .ListRows(5).Range.Value
 
        ' Ajouter les valeurs de l'userform dans la nouvelle ligne
        .ListRows(lastRow).Range(2).Value = AjoutProjet.AxeStrat
    End With
End Sub

[Toro74]

Salut, vois si ça peut t'aider, au lieu d'un copy/paste j'utilise la méthode .value pour affecter les valeurs:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CommandButtonValider_Click()
    With Sheets("Gestionprojet").ListObjects("Tableau5")
        ' Ajouter une nouvelle ligne
        .ListRows.Add AlwaysInsert:=False
 
        ' Copier les valeurs de la ligne 5 dans la nouvelle ligne
        Dim lastRow As Long
        lastRow = .ListRows.Count ' Obtenir le numéro de la dernière ligne
        .ListRows(lastRow).Range.Value = .ListRows(5).Range.Value
 
        ' Ajouter les valeurs de l'userform dans la nouvelle ligne
        .ListRows(lastRow).Range(2).Value = AjoutProjet.AxeStrat
    End With
End Sub

Bonjour Franc,
Merci pour ce retour.
J'ai appliqué la formule, cela créé bien une ligne mais cela mets les valeurs de la ligne 5, et j'aurais besoin des formules.
Bonne journée.

[Franc]

Je ne suis pas sûr d'avoir compris ce que tu veux mais en relisant ton code je m'aperçois d'une erreur, tu utilises la méthode paste sur une propriété alors qu'il faut l'utiliser sur un objet.
Dans ton code original, remplace

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Range("B65536").End(xlUp).Row.Paste

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Range("B" & .Range("B65536").End(xlUp).Row + 1).PasteSpecial xlPasteAll

[Toro74]

En fait, sur la ligne 5 j'ai des formules.
Je souhaite lors de la création d'une nouvelle ligne prendre les formules de la ligne 5, les intégrer à cette nouvelle ligne dans mon tableau, en complétant le reste avec les éléments issus des contrôles d'un userform. (désolé si j'ai pas été clair)
Si l'on repart de ton code peut-on au lieu de value remplacer par des formules?

[Franc]

Comme ceci alors:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CommandButtonValider_Click()
    With Sheets("Gestionprojet")
        With ActiveSheet.ListObjects("Tableau5")
            .ListRows.Add AlwaysInsert:=False
            Application.GoTo .ListRows.Item(.ListRows.Count).Range(1), True
        End With
 
        .Rows(5).Copy
        .Range("B" & .Range("B65536").End(xlUp).Row + 1).PasteSpecial xlPasteFormulas
 
        i = .Range("B65536").End(xlUp).Row
        .Range("B" & i).Value = AjoutProjet.AxeStrat
    End With
End Sub