Macro VBA comment supprimer les lignes cachées

Pourquoi pliez-vous les lignes? Certes, pour avoir une meilleure vue d’ensemble d’une table, ou aussi pour ne pas afficher d’informations sans importance. Une autre raison est que vous  voulez eventuellement transmettez le tableau aux clients ou aux collègues et ne voulez pas forcément révéler toutes les informations au premier coup d’œil. Dans ce dernier cas, cependant, il est conseillé de supprimer au préalable les lignes cachées. Bien sûr, cela ne fonctionne que si les cellules encore visibles ne sont pas liées aux cellules masquées.

Pour supprimer toutes les lignes masquées, démarrez la macro.

Sub supprimer_toutes_les_lignes_masquees()

Dim line as range

For Each Line In ActiveSheet.UsedRange.Rows

     If line.Hidden Then

         Line.Hidden = False

         Line.Delete

     End if

Next line

End Sub

Dans une boucle For Each, vous interrogez toutes les lignes de la zone de votre table utilisée. Si des lignes masquées sont trouvées, la propriété Hidden renvoie la valeur True. Si tel est le cas, développez la ligne en définissant la propriété Hidden sur False. Utilisez ensuite la méthode Delete pour supprimer la ligne qui vient d’être affichée.

Si vous voulez décider à l’avance si vous voulez supprimer une certaine ligne ou non, ajoutez quelques lignes à la macro suivante.

Sub Lignes_cachees_apres_consultation _supprimer ()

Dim line as range

Dim i As Integer

For Each Line In ActiveSheet.UsedRange.Rows

   If line.Hidden Then

      Line.Hidden = False

    i = MsgBox (prompt: = " Devrait la ligne " & line.Row & _

      " être vraiment supprimé?", buttons: = vbYesNo)

      If i = 7 then _

      Else line.Delete

   End if

Next line

End Sub

Dans la figure suivante, vous pouvez voir que l’utilisateur doit maintenant décider si la ligne doit être supprimée ou non. En pratique, cela pourrait signifier que les ensembles d’articles ne peuvent pas être supprimés s’ils sont encore en stock. Avec l’aide d’une fenêtre de message, vous pouvez faire cette requête effectuer. Si la fonction Msgbox signale la valeur 7, l’utilisateur a appuyé sur le bouton NON. Dans ce cas, la ligne suivante est activée et vérifiée.

S’abonner
Notifier de
0 Commentaires
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x
()
x