Discussion :

[joel50]

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

[Thautheme]

Bonsoir Joel, bonsoir le forum,

Supprime ActiveSheet dans :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.Rows(.Row + .Rows.Count - 1).Delete

Ça devrait aller mieux...

[joel50]

Bonsoir et merci Thautheme, mais ça ne fonctionne pas.

Si j'enlève juste ActiveSheet, ça ne fait plus rien et si j'enlève le point (.) qui suit, ça ne supprime toujours que la dernière ligen du premier tableau sur la feuille Data_système, rien sur les tableaux des autres feuilles (Data_Troupeau, Data_Lait...)

Joël

[Thautheme]

Bonsoir Joel, bonsoir le forum,

Pour t'avouer la vérité je ne comprends pas ton code mais il est vrai que je n'utilise pas les "tableaux" dans Excel. Pour t'aider il me faudrait recréer un exemple et franchement, j'ai la flemme... Si tu veux bien en mettre un en pièce jointe je m'y pencherai dessus.

[joel50]

Re
C'esy surement pas de la flemme de données un coup de main à des gens comme moi équipés de 2 mains gauches et voudrais faire de l'art.
C'est quand même à moi de bosser un peu, même si je décroche très (trop) vite.
Joël
Ci joint le tableur

[Thautheme]

Bonsoir Joël, bonsoir le forum,

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

les dernières c'est vague... Le code ci-dessous supprime la dernière ligne de chaque tableau :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub SupprimerDernièreLigne()
Dim a, I As Byte
 
a = Array("Données", "Données2", "Données3", "Données4", "Données5")
For I = 0 To UBound(a)
    Sheets(a(I)).Select
    With Sheets(a(I)).ListObjects(1)
        .ListRows(.ListRows.Count).Delete
    End With
Next I
End Sub

[Invité]

Bonsoir Thautheme,
j'ai juste modifié ça dans ton code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim I As Integer
For I = 1 To Sheets.Count
If InStr(1, Sheets(I).Name, "Data") <> 0 Then Sheets(a(I)).Select
 With Sheets(I).ListObjects(1)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub SupprimerDernièreLigne()
Dim I As Integer
For I = 1 To Sheets.Count
If InStr(1, Sheets(I).Name, "Data") <> 0 Then Sheets(a(I)).Select
    With Sheets(I).ListObjects(1)
        .ListRows(.ListRows.Count).Delete
    End With
End If
Next I
End Sub

[joel50]

Bonsoir, merci tous les 2
Ca bosse tard
Tauhème, ton code fonctionne
Robert, j'aime toujours l'idée du code évolutif, par contre j'ai l'erreur; erreur de compilation, Sub ou fonction non définie (a(I)) et si j'enlève la a j'ai end if sans bloc if.
Joël

J'ai essayé comme suit, j'ai erreur tableau attendu

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 I As Integer
Dim a As Byte
For I = 1 To Sheets.Count
If InStr(1, Sheets(I).Name, "Data") <> 0 Then Sheets(a(I)).Select
    With Sheets(I).ListObjects(1)
        .ListRows(.ListRows.Count).Delete
    End With
End If
Next I
End Sub

[Invité]

désolé dans la modification j'ai oublié des trucs!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Sub SupprimerDernièreLigne()
Dim I As Integer
For I = 1 To Sheets.Count
    If InStr(1, Sheets(I).Name, "Data") <> 0 Then
        With Sheets(I).ListObjects(1)
            .ListRows(.ListRows.Count).Delete
        End With
    End If
Next I
End Sub

[joel50]

Super, extra, comme d'habitude, ça marche.
Ca continue à bien avancer sur mon tableur, et surtout rassurant de verrouiller un max de risque d'erreur et de prévoir l'évolutivité
Merci à tous encore une fois... heu mille fois
Joël