XL 2016 ajout de lignes

Timoth'

XLDnaute Nouveau
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
 

Timoth'

XLDnaute Nouveau
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. :)
 

Pièces jointes

  • projet maintenance test.xlsm
    32.4 KB · Affichages: 4

dg62

XLDnaute Barbatruc
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
 

Pièces jointes

  • projet maintenance test.xlsm
    36.1 KB · Affichages: 6

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 943
Membres
101 849
dernier inscrit
florentMIG