Bonjour
J'ai tenter d'adapter une macro pour supprimer les dernières de tableaux sur plusieurs feuilles nommés "data_..."

La macro ne bug pas à l’exécution (ce qui n'est pas courant avec moi) par contre elle ne supprime le dernière ligne qu'au 1er tableau.

Ci-dessous le code, que doit-je modifier.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 
Sub SupprimerDernièreLigne()
 
Dim a, I As Byte
a = Split("Data_Système;Data_Troupeau;Data_Lait;Data_Ration;Data_Compta", ";")
For I = 0 To UBound(a)
 
  With Sheets(a(I)).ListObjects(1).Range
    ActiveSheet.Rows(.Row + .Rows.Count - 1).Delete
  End With
  Next
End Sub
Ceci étant ma première étape, je voudrai ensuite le lancer à partir d'un userform et Choisir la ligne à supprimer, pas forcement la dernière, mais déjà ça marchait pour la dernière ligne ce serait un bon début

Joël