Discussion :

[arnest]

Bonjour.
Comment supprimer tous les textes ou caractères barrés de plusieurs cellules dans Excel? J’ai un texte sur 3 ou plus lignes dans des cellules de la colonne À que je veux récupérer dans la colonne B en supprimant les lignes que je barre , svp avez-vous une idée ?
Cordialement

[Valtrase]

Salut
La propriété Strikethrough te donne cela:

Code :

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

ActiveCell.Characters(1, 6).Font.Strikethrough = True

Ici les caractères de 1 à 6 seront barrés, il ne te reste plus qu'a faire un test est supprimer si nécessaire.

[Philippe Tulliez]

Bonjour,
Je ne comprends pas très bien.
Vous voulez supprimer les lignes où l'on trouve un texte barré en colonne A après avoir préalablement sauvé ce texte en colonne B
Il est évident que si l'on supprime la ligne, le contenu de la colonne B sera également supprimée comme d'ailleurs toutes autres colonnes de cette ligne.

[jurassic pork]

Hello,
Pour enlever les caractères et textes barrés sur une sélection de cellules à essayer et à optimiser ( ex : désactiver l'affichage) :

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
20
21
22
23
Sub SupSelCellsTexteB()
   'Supprimer le texte barré dans les cellules sélectionnées
   Dim cell    As Range
   For Each cell In Selection
      SupTexteB cell
   Next cell
End Sub
 
 
Sub SupTexteB(cell As Range)
   'supprime tout le texte barré dans une cellule
   Dim NewText    As String
   Dim iCh        As Integer
   For iCh = 1 To Len(cell)
      With cell.Characters(iCh, 1)
         If .Font.Strikethrough = False Then
            NewText = NewText & .Text
         End If
      End With
   Next iCh
   cell.value = NewText
   cell.Characters.Font.Strikethrough = False
End Sub

Cela risque de ne pas être très rapide.



ami calmant, J.P