Discussion :

[MeHo_]

Bonjour

Ça fait longtemps que je suis pas passé ici

J ai un petit soucis.



Je génère ce tableau automatiquement, le problème ne vient pas de la génération.
Qd je le créé, comme on est en fin de page, je supprime toutes les lignes en dessous de la ligne "nomenclature".

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub SuppressionLigne()
 
    Dim k As Integer
    nb = Feuil1.Cells(74, 12)
 
    For k = nb To 0 Step -1
        Rows(k + LigneDest).Delete
    Next
 
End Sub

Jusque là rien d anormal.

Le problème, c est que qd je supprime une ligne ça remonte le bas de la page de "nombre de valeur" lignes (entouré en rouge) et je n arrive pas a rajouter des lignes. J ai essayé avec ce code mais ça ne marche pas :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub AjoutLigne()
 
    Dim k As Integer
    nb = Feuil1.Cells(74, 12)
 
    For k = 0 To nb Step 1
        Rows(k + LigneDest + nb).Add
    Next
 
End Sub

Ça bloque sur le "Rows(k + LigneDest + nb).Add"

Quelqu'un aurait une idée svp ??

ps : Feuil1.Cells(74, 12) est la valeur entourée en rouge et LigneDest est un entier = 77

[J.Michel]

Ça bloque sur le "Rows(k + LigneDest + nb).Add"

Comme ça à première vue, sans rien décortiquer, essaye plutôt Rows(k + LigneDest + nb).Insert

[MeHo_]

Merci beaucoup ça marche