Insertion ligne en VBA + Copier/Coller

Question

Je rencontre un problème pour insérer une ligne en VBA et réaliser un copier coller... Ci-après le code en question qui rencontre une erreur 1004 avec une notion de déplacement de cellules d'un tableau... Sub CopierColler() Application.ScreenUpdating = False 'Copier Coller Phase chantier Sheets("Planning Travaux").Activate Range("8:10").Copy Range("8:8").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove ' Range("A8").PasteSpecial Paste:=xlPasteFormat, Operation:=xlNone, SkipBlanks _ :=True, Transpose:=False Range("8:10").ClearContents Range("B8") = "NOM DU CHANTIER" Range("B9") = "Phase 1" Range("B10") = "Phase 2" Range("B8").Select Application.ScreenUpdating = True End Sub Mon code fonctionnait jusqu'à ce que je définisse une mise en forme de tableau. Cependant, je n'arrive pas à déceler en quoi et si c'est effectivement le probleme... Pouvez vous m'éclairer? Merci d'avance, Rémi...

78chris · Accepted Answer

RE

Ceci testé sur le classeur que tu avais joint fonctionne

Sub testAjout()
y = 8
nb = 3
Tabl = "Tableau1"
Call Ajout_lignes1(y, nb, Tabl)
End Sub
Sub Ajout_lignes1(ByVal y As Long, ByVal nb As Long, ByVal Tabl As String)
'Ajout N lignes à tableau
'y est la ligne Excel au dessus de laquelle on veut insérer
'nb est le nombre de lignes à ajouter
'Tabl est le nom du Tableau
Dim Lo As ListObject
Set Lo = Range(Tabl).ListObject
    Application.ScreenUpdating = False
    With Lo
        y = y - .Range.Row
        For i = 1 To nb
            .ListRows.Add (y)
        Next i
    End With
End Sub

Donc ton classeur actuel doit être différent

8 étant une ligne Excel et le tableau ne démarrant pas toujours en ligne 1 de l'onglet,

y = y - .Range.Row

permet de tenir compte d ela position du tableau (.Range.Row donnant la ligne Excel de sa 1ère ligne)

Pour modifier une Plage correspondant à la ligne 11 Excel

Set Lo = Range("Tableau1").ListObject
y = 11
With Lo
    y = y - .Range.Row
    With .DataBodyRange.Range(Cells(y, 1), Cells(y, 7))
        .Interior.Color = RGB(r, g, b)
        .Value = "TEST"
    End With
End With

Mais dans nombre de cas on peut se référer à la ligne du tableau et non la ligne Excel (ligne ajoutée par exemple)

Invité · Answer

Si tu as fait une mise en forme de tableau, ça change tout Essaye ça Sub Test() Dim LigTab As Long, Ind As Integer ' Avec la feuilles concernée With ThisWorkbook.Sheets("Feuil1") ' Avec l'objet tableau concerné With .Range("Tableau 1") ' Boucle pour 3 lignes For Ind = 1 To 3 ' Ajouter une ligne en fin de tableau .ListObject.ListRows.Add , AlwaysInsert:=True ' Récupérer le numéro de la dernière ligne vide LigTab = .End(xlDown).Offset(1, 0).Row ' Inscrire les éléments sleon l'indice If Ind = 1 Then Range("B" &amp; LigTab) = "NOM DU CHANTIER" ElseIf Ind = 2 Then Range("B" &amp; LigTab + 1) = "Phase 1" Else Range("B" &amp; LigTab + 2) = "Phase 2" End If Next Ind End With End With End Sub A+...

78chris · Answer

Dans un tableau structuré on n'utilise jamais une ligne normale pour totaliser : on active la ligne des totaux du tableau Par ailleurs, de même qu'on donne des noms signifiants aux classeurs et aux onglets, on le fait pour les tableaux, Tableau1 ne voulant rien dire A noter également qu'un tableau structuré ne doit contenir aucune ligne vide et qu'il est donc inutile de lea recherche si on veut ajouter à la fin du tableau. Une Sub générique à appeler, après avoir contrôlé que y, nb et Tabl sont cohérents si issus d'inpubox par exemple Sub Ajout_lignes(ByVal y As Long, ByVal nb As Long, ByVal Tabl As String) 'Ajout N lignes à tableau 'y est la ligne Excel au dessus de laquelle on veut insérer 'nb est le nombre de lignes 'Tabl est le nom du Tableau Dim Lo As ListObject Set Lo = Range(Tabl).ListObject Application.ScreenUpdating = False With Lo y = y - .Range.Row For i = 1 To nb .ListRows.Add (y) Next i End With End Sub...

78chris · Answer

Re

On peut utiliser aussi la fonction générique sans précision de ligne pour ajouter à la fin

Sub Ajout_lignes2(ByVal nb As Long, ByVal Tabl As String, Optional ByVal y As Long)
'Ajout N lignes à tableau
'nb est le nombre de lignes à ajouter
'Tabl est le nom du Tableau
'y est la ligne Excel au dessus de laquelle on veut insérer. Optionnel si en fin du tableau
Dim Lo As ListObject
Set Lo = Range(Tabl).ListObject
    Application.ScreenUpdating = False
    With Lo
        If Not y = 0 Then 'Is Nothing Then
            y = y - .Range.Row
            For i = 1 To nb
                .ListRows.Add (y)
            Next i
        Else
            For i = 1 To nb
                .ListRows.Add
            Next i
        End If
    End With
End Sub