Discussion :

[bart13300]

Bonjour,
Je voudrai savoir s'il est possible de supprimer seulement la partie barée d'une cellule? Pour l'instant je suis arrivé à supprimer une ligne si la cellule était totalement barrée à la'ide du code ci dessous:

Code :

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

1
2
3
4
5
6
For i = 2 To 1500
    If Cells(i, 6).Font.Strikethrough = True Then
    Rows(i).Delete
    i = i - 1
    End If
     Next i

[Minick]

Salut,

Tu peux essayer quelque chose de ce genre:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Option Explicit
 
Sub Supprime()
 
    Dim CptCaractere As Integer
    Dim i As Integer
 
    Application.ScreenUpdating = False
    For i = 2 To 1500
        For CptCaractere = 1 To Len(Cells(i, 6).Value)
            If Cells(i, 6).Characters(CptCaractere, 1).Font.Strikethrough Then
                Rows(i).Delete
                i = i - 1
                Exit For
            End If
        Next CptCaractere
    Next i
    Application.ScreenUpdating = True
End Sub

(J'ai considéré que des qu'il y a un caractere barré on efface)

++
Minick