Bonjour à tous.
Question bête mais compliquer pour le débutant que je suis.
Voila mon probleme:
j'ai un tableau auquel je vais rajouter des colonnes ET des lignes
l'ajout de lignes se fait toujours par 4 lignes identiques
Comment rajouter ces 4 lignes en fin de tableau sachant que le nombre de colonnes risque d'etre modifiée.
aujourd'hui j'utilise ce code mais le nombre de colonnes est fixe.
Sub nouvelle_intervention()
'
' nouvelle_intervention Macro
' pour ajouter des lignes d'intervention à la fin du tableau
'
'
Dim derligne As Integer
derligne = Range("B" & Rows.Count).End(xlUp).Row
Range("B25:AJ28").Select
Selection.Copy
Cells(derligne + 1, "B").Select
ActiveSheet.Paste
End Sub
Merci de votre aide
Question bête mais compliquer pour le débutant que je suis.
Voila mon probleme:
j'ai un tableau auquel je vais rajouter des colonnes ET des lignes
l'ajout de lignes se fait toujours par 4 lignes identiques
Comment rajouter ces 4 lignes en fin de tableau sachant que le nombre de colonnes risque d'etre modifiée.
aujourd'hui j'utilise ce code mais le nombre de colonnes est fixe.
Sub nouvelle_intervention()
'
' nouvelle_intervention Macro
' pour ajouter des lignes d'intervention à la fin du tableau
'
'
Dim derligne As Integer
derligne = Range("B" & Rows.Count).End(xlUp).Row
Range("B25:AJ28").Select
Selection.Copy
Cells(derligne + 1, "B").Select
ActiveSheet.Paste
End Sub
Merci de votre aide