XL 2019 bouton qui efface 10 lignes

Jacky67

XLDnaute Barbatruc

• 17 Février 2022

• #2

LEPATOCHE à dit:

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 !

Cliquez pour agrandir...

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: 8

Vote positif 0 Vote négatif

L

LEPATOCHE

XLDnaute Occasionnel

• 17 Février 2022

• #3

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

 

Vote positif 0 Vote négatif

L

LEPATOCHE

XLDnaute Occasionnel

• 17 Février 2022

• #4

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 !

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 17 Février 2022

• #5

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+

 

Vote positif 0 Vote négatif

L

LEPATOCHE

XLDnaute Occasionnel

• 17 Février 2022

• #6

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 !

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 18 Février 2022

• #7

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.

 

Vote positif 0 Vote négatif

B

Backhandshot

XLDnaute Occasionnel

• 18 Février 2022

• #8

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 !

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 18 Février 2022

• #9

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+

 

Vote positif 0 Vote négatif

L

LEPATOCHE

XLDnaute Occasionnel

• 18 Février 2022

• #10

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

 

Vote positif 0 Vote négatif