supprimer dans une cellule des caracteres qui sont barrés...
1 réponse
franck
bonjour,
sous XL2000 avec windows2000, je cherche à supprimer dans une cellule des
caractères barrés qui sont généralement précéder de caractères non barrés.
par exemple dans une cellule il apparait "05 03" et le "03" est barré.
j'ai déjà essayé la ligne de commande suivante:
If Worksheets("sheets1").Cells(i, 8).Characters(i, 8).Font.Strikethrough =
True Then
Worksheets("sheets2").Cells(i, 2).Value = ""
mais cette commande ne m'efface les caractères que si toute la cellule est
barrée.
bonjour, sous XL2000 avec windows2000, je cherche à supprimer dans une cellule des caractères barrés qui sont généralement précéder de caractères non barrés.
par exemple dans une cellule il apparait "05 03" et le "03" est barré.
j'ai déjà essayé la ligne de commande suivante:
If Worksheets("sheets1").Cells(i, 8).Characters(i, 8).Font.Strikethrough > True Then Worksheets("sheets2").Cells(i, 2).Value = ""
mais cette commande ne m'efface les caractères que si toute la cellule est barrée.
@+
Xav
"franck" <franck@discussions.microsoft.com> a écrit dans le message de
news:93014AE9-4F2C-49A0-B27C-F185EAFF2FC3@microsoft.com...
bonjour,
sous XL2000 avec windows2000, je cherche à supprimer dans une cellule des
caractères barrés qui sont généralement précéder de caractères non barrés.
par exemple dans une cellule il apparait "05 03" et le "03" est barré.
j'ai déjà essayé la ligne de commande suivante:
If Worksheets("sheets1").Cells(i, 8).Characters(i, 8).Font.Strikethrough > True Then
Worksheets("sheets2").Cells(i, 2).Value = ""
mais cette commande ne m'efface les caractères que si toute la cellule est
barrée.
bonjour, sous XL2000 avec windows2000, je cherche à supprimer dans une cellule des caractères barrés qui sont généralement précéder de caractères non barrés.
par exemple dans une cellule il apparait "05 03" et le "03" est barré.
j'ai déjà essayé la ligne de commande suivante:
If Worksheets("sheets1").Cells(i, 8).Characters(i, 8).Font.Strikethrough > True Then Worksheets("sheets2").Cells(i, 2).Value = ""
mais cette commande ne m'efface les caractères que si toute la cellule est barrée.