Ajouter une ligne dans un tableau sur plusieurs feuilles

Bonjour,

J'ai 6 feuilles et un tableau sur chaque feuille (Les colonnes A à E sont identique pour tous les tableaux)

J'ai un bouton déjà créé sur la première feuille qui me rajoute une ligne en fin de tableau lorsque je clique dessus.

J'aimerais que quand je clique sur ce bouton, il me rajoute un ligne sur chaque tableau de mes 6 feuilles en même temps.

Merci d'avance pour votre aide.

(Le but de la manoeuvre est de rajouter une ligne sur la feuille 1, de remplir cette ligne et que sur les autres tableaux les infos des colonnes A à E soit déjà inscrit.)

Bonjour

A essayer :

Sub Insertion()
Dim Lg As Long
Dim i As Byte
For i = 1 To Sheets.Count
  With Sheets(i)
  .Unprotect
  Lg = .Range("A" & Rows.Count).End(xlUp).Row
  .Rows(Lg).Copy
  .Rows(Lg).Insert
  On Error Resume Next
  .Rows(Lg + 1).SpecialCells(xlCellTypeConstants, 23).ClearContents
  On Error GoTo 0
  .Range("F" & Lg + 1) = 0
  End With
Next
Application.CutCopyMode = False
End Sub

Si ok, clique sur le V vert à coté du bouton Editer pour cloturer le fil.

Amicalement

merci c'est exactement ce que je recherchais, ça marche nickel

une dernière chose, pourrait-on incrémenter le nombre de la colonne A quand on clique sur le bouton ?

(ex : le n° client de la dernière ligne est le 73, je clique sur le bouton, la ligne est créée avec le n° 74 et ainsi de suite...)

merci de ton aide, j'ai cherché seul mais ça fonctionnait jamais...

Re,

Modifie cette partie de code

...
On Error Resume Next
.Range("A" & Lg) = Range("A" & Lg - 1) + 1
.Rows(Lg + 1).SpecialCells(xlCellTypeConstants, 23).ClearContents
On Error GoTo 0
.Range("A" & Lg + 1) = Range("A" & Lg) + 1
.Range("F" & Lg + 1) = 0
End With
...

Amicalement

Merci,

Une dernière petite chose avant de fermer le sujet,

que dois-je changer dans le code pour rajouter 10 lignes à la place d'une seule (lorsque j'appuie sur le bouton)?

Merci

re,

que dois-je changer dans le code pour rajouter 10 lignes à la place d'une seule (lorsque j'appuie sur le bouton)?

Modifie cette partie du code

 With Sheets(i)
        .Unprotect
        Lg = .Range("A" & Rows.Count).End(xlUp).Row
        .Rows(Lg).Copy
        .Rows(Lg & ":" & Lg + 9).Insert
        On Error Resume Next
        .Rows(Lg + 1 & ":" & Lg + 10).SpecialCells(xlCellTypeConstants, 23).ClearContents
        On Error GoTo 0
        .Range("A" & Lg & ":A" & Lg + 10).DataSeries Rowcol:=xlColumns, Type:=xlLinear, Step:=1
        .Range("F" & Lg + 1 & ":F" & Lg + 10) = 0
  End With

Si ok, clique sur le V vert à coté du bouton Editer pour cloturer le fil.

Amicalement