XL 2019 bouton qui efface 10 lignes

[LEPATOCHE]

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 !

 

[Jacky67]

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

Sub Bouton1_Clic()
  Rows("1:10").Delete
End Sub

 

[LEPATOCHE]

Bonsoir Jacky67 merci pour ta reponse je vais la tester et je te dirais quoi plus tard ! bonne soiree

 

[LEPATOCHE]

Rebonsoir a tous , et bien ca ne marche pas car ca me supprime des lignes moi c'est effacer les 10 lignes et ainsi de suite car j'ai des formules dans une autre feuilles qui font references a cette feuille la !

 

[job75]

Bonsoir LEPATOCHE, Jacky67,

Testez cette macro qui efface les contenus et les formats :

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+

 

[LEPATOCHE]

Job75 encore merci je l'ai tester vite fait ca a l'air de marcher je te tiens au courant demain soir si c'est bon ou pas definitivement bonne soiree a vous tous !

 

[job75]

Je pense que ceci est mieux pour effacer les formats :

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.

 

[Backhandshot]

Bonsoir à tous !
@LEPATOCHE

Les 10 premiers les plus percher de la colonne A​

• Initiateur de la discussionLEPATOCHE
• Date de débutHier à 17:18

Maintenant nous avons appris ce que veut dire les 10 numéros les plus perchés...
Bonne soirée !

 

[job75]

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 :

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+

 

[LEPATOCHE]

Bonsoir a tous je tien a remercier JOB75 ! confirmation ca marche a merveille et merci a
vous tous bonne soiree .