Discussion :

[isodoro]

Salut,

Dans un tableau, j'ai créé une macro associée à un bouton qui me permet de supprimer des lignes vide.

je cherche par le biais d'une autre macro d'annuler l'action de ma première macro, c'est à dire de remettre les lignes supprimer.

quelqu'un peut m'aider

merci

[Menhir]

Code :

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

Application.Undo

Ou bien

Code :

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

Rows(ActiveCell.Row).Insert(xlShiftDown)

[isodoro]

Merci Menhir pour ton aide

j'ai appliqué la seconde formule Rows(ActiveCell.Row).Insert(xlShiftDown) qui fonctionne.

mais peut-on remettre toutes les lignes supprimer en une seule fois, car là, je suis obliger de cliquer plusieurs fois sur le bouton qui est affecté à ma macro.

[Menhir]

Le code que je t'ai donné ne "remet" pas les lignes. Il insère juste une ligne.

Tu peux essayer ça :

Code :

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

1
2
3
4
5
6
Dim i As Integer
i = Val(InputBox("Combien de lignes ?"))
While i > 0
   Rows(ActiveCell.Row).Insert (xlShiftDown)
   i = i - 1
Wend

[isodoro]

ta commande fonctionne, mais c'est pas ce que je cherche.
je me demande si c'est possible

si tu veux dans mon tableau, j'ai certaine lignes vide (ex: lignes : 5, 10, 15, 30, 32...)

donc j'ai créer cette macro que j'ai associé à un bouton :

Code :

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

1
2
3
4
5
6
7
Sub erreur()
Dim i As Integer
 
For i = 200 To 1 Step -1
    If Worksheets("impressions").Cells(i, 2) = "" Then Worksheets("impressions").Rows(i).Delete
Next i
End Sub

moi je cherche un moyen d'annuler la suppression de ces lignes par une autre macro

[Menhir]

A part l'usage de Undo (décrit dans mon message précédent), je ne vois pas de solution.
Et il est inutile de créer un bouton pour mettre juste Undo dedans, il existe déjà en standard dans ta barre d'outils à accès rapide

[isodoro]

je me doutais un peu, mais quand je clique sur le bouton pour annuler les lignes, le undo de la barre d'outils devient gris et non opérationel.

Où alors, connais-tu un code VBA qui permettrait de masquer les lignes vides, plutôt que de les supprimer.

[Menhir]

Dans ton code, tu remplaces Delete par Hidden = True
L'affichage se faisant bien sûr par Hidden = False

Mais l'enregistreur automatique de macro aurait pu t'apprendre ça.

[isodoro]

encore merci Menhir, cela fonctionne.

je débute en macro.