Supprimer des éléments non gras [EXCEL]

Résolu
hovanes Messages postés 9 Statut Membre -  
chossette9 Messages postés 6855 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

J'ai une longue liste de 1000 éléments sur excel, sur une seule colonne (la colonne A).
Certains sont en gras et d'autre non. Il faut que je garde uniquement les éléments gras. Mais le faire à la main est vraiment long.
Il y aurait-il une fonction ou un outil qui permettrait d'automatiser cette tache?

Merci d'avance!

2 réponses

  1. AudreyD21 Messages postés 38 Statut Membre 2
     
    bonjour,
    sauf erreur de ma part tu ne peux pas filtrer sur du "gras" tu peux sur les couleurs de police ou couleur de cellule...
    j'espère que quelqu'un aura une meilleure réponse...
    0
  2. chossette9 Messages postés 6855 Date d'inscription   Statut Contributeur Dernière intervention   1 313
     
    Bonjour,

    le meilleur moyen serait de passer par une macro VBA.

    J'essaie de vous chercher quelque chose si j'ai un peu de temps devant moi aujourd'hui.

    Cordialement,

    Chossette9.
    0
    1. chossette9 Messages postés 6855 Date d'inscription   Statut Contributeur Dernière intervention   1 313
       
      Voici une macro VBA qui va supprimer tous les éléments de la colonne A qui ne sont pas en gras :

      Sub SuppNonGras()
      '
      ' Suppression d'éléments qui ne sont pas en gras
      '
      
      '
      Dim i As Integer
      
      i = Range("A1048576").End(xlUp).Row
      
      Do While i > 0
          
          Cells(i, 1).Select
          If Selection.Font.Bold = False Then
              Selection.Delete
          End If
          i = i - 1
      Loop
      End Sub


      Cordialement,

      Chossette9.
      0
    2. hovanes Messages postés 9 Statut Membre
       
      Merci beaucoup!!! Sa marche ^^
      0
    3. chossette9 Messages postés 6855 Date d'inscription   Statut Contributeur Dernière intervention   1 313
       
      Je n'ai pas vraiment commenté mon code, mais si tu veux un peu plus d'explications n'hésite pas à demander.

      Cordialement.
      0