XL 2016 ajout de lignes

[Timoth']

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

 

[dg62]

Bonjour Tmoth'

Range("B25:AJ28").Select

le plus simple, adapter la référence de la colonne ici AJ mais peut-être pas bien compris ta demande.

 

[Timoth']

c'est justement là mon problème c'est que la colonne AJ peut ne plus être ma dernière colonne. en effet je risque de rajouter des colonnes dans le temps.
en fait, pour simplifier je joint la trame de mon projet.
en colonne les différents engins; en ligne les informations et les interventions faites.
je cherche à rajouter les lignes "dates d'intervention","coût"; fournisseur; et commentaires quand tout est rempli. (avec la colonne "Tous" qui contient les SO et le total de la ligne comme dans l'exemple)
si c'est plus clair comme ça. 🙂

 

[dg62]

re,
je ne vois pas le problème, si vous rajoutez des colonnes il suffit de remplacer AJ par la dernière colonne utilisée.

Mon avis personnel sur la conception de votre tableau, vous devriez mettre vos interventions en ligne avec le nom du matériel. Vous éviteriez un tas de cellules inutiles.
Relativement simple à faire et tableau exploitable facilement avec TCD ou autre.
exemple simple joint