XL 2019 bouton qui efface 10 lignes

LEPATOCHE

XLDnaute Occasionnel
Bonsoir le forum
je voudrai un bouton que je cliquerai dessus qui efface les 10 premieres lignes avec condition ,
donc imaginons que j'ai 1000 lignes dans une feuille je voudrai que quand j'appuie sur le bouton il m'efface les 10 premieres lignes si il y a des chiffres bien sur et je cliquerai au fil du temps sur le bouton pour effacer les 10 lignes suivantes ect ect ect ... merci de votre aide !
 

Pièces jointes

  • 10 Lignes effacer.xlsx
    103.2 KB · Affichages: 10

Jacky67

XLDnaute Barbatruc
Bonsoir le forum
je voudrai un bouton que je cliquerai dessus qui efface les 10 premieres lignes avec condition ,
donc imaginons que j'ai 1000 lignes dans une feuille je voudrai que quand j'appuie sur le bouton il m'efface les 10 premieres lignes si il y a des chiffres bien sur et je cliquerai au fil du temps sur le bouton pour effacer les 10 lignes suivantes ect ect ect ... merci de votre aide !
Bonjour,
Ceci attribué à un bouton
VB:
Sub Bouton1_Clic()
  Rows("1:10").Delete
End Sub
 

Pièces jointes

  • 10 Lignes effacer.xlsm
    113.9 KB · Affichages: 6

job75

XLDnaute Barbatruc
Bonsoir LEPATOCHE, Jacky67,

Testez cette macro qui efface les contenus et les formats :
VB:
Sub Effacer_10_lignes()
Dim i&
With ActiveSheet 'feuille à adapter si nécessaire
    With .Range("A1", .UsedRange).EntireRow
        For i = 1 To .Rows.Count Step 10
            If Application.CountA(.Rows(i).Resize(10)) Then .Rows(i).Resize(10).Clear: Exit Sub
        Next
    End With
End With
End Sub
A+
 

job75

XLDnaute Barbatruc
Je pense que ceci est mieux pour effacer les formats :
VB:
Sub Effacer_10_lignes()
Dim i&
With ActiveSheet 'feuille à adapter si nécessaire
    With .Range("A1", .UsedRange).EntireRow
        For i = 1 To .Rows.Count Step 10
            If Application.CountA(.Rows(i).Resize(10)) Then .Rows(1).Resize(i + 9).Clear: Exit Sub
        Next
    End With
    .Cells.Clear 'RAZ de toute la feuille
End With
End Sub
Bonne nuit.
 

job75

XLDnaute Barbatruc
Bonjour LEPATOCHE, le forum,

Merci @Backhandshot pour cet éclaircissement.

Donc si l'on veut que les 10 lignes commencent à la 1ère ligne contenant des valeurs :
VB:
Sub Effacer_10_lignes()
On Error Resume Next 'si la feuille est vide
With ActiveSheet 'feuille à adapter si nécessaire
    .Range("A1", .Cells.Find("*", .Cells(.Rows.Count, .Columns.Count), xlValues, , xlByRows).EntireRow.Resize(10)).Clear
    If Err Then .Cells.Clear
End With
End Sub
A+
 

Discussions similaires

Statistiques des forums

Discussions
299 703
Messages
1 978 598
Membres
206 300
dernier inscrit
gauthier75011