Discussion :

[lovely2604]

bonjour

je cherche juste comment faire une petite macro qui supprimerait mes lignes 'pas en gras' d'un tableau importé, et que je ne garde que les lignes en gras

Merci d'avance

[parmi]

Bonjour,

Si tu peux te fier aux cellules de la colonne A, par exemple, tu boucles chaque cellule de la colonne, de bas en haut et tu vérifies que

Code :

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

Range("A" & I).Font.Bold = False

Si = False

Code :

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

Rows(I).Delete

[lovely2604]

c gentil de me répondre
par contre" tu boucle"s je comprends pas ce que ca signifie !

[parmi]

par exemple

Code :

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

1
2
3
4
5
6
7
8
Dim I as Long, nbLignes As Long
 
nbLignes = Cells(Rows.count, "A").end(xlup).row
for i = nbLignes to 2 step - 1
   If Range("A" & I).Font.Bold = False then
      Rows(I).Delete
   End if
Next

NB: spécifier le nom de la feuille si elle n'est pas celle active

[lovely2604]

Merci beaucoup