J'ai un doc xls dans lequel de nombreuses cellules contiennent du texte en
noir et en rouge (à l'interieur de la même cellule)
J'aimerai supprimer dans toute la colonne le texte en rouge
Auriez-vous un tuyau ???
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
isabelle
bonjour Michel,
Sub Macro1() For Each c In Range("A1:A4") For i = Len(c) To 1 Step -1 If Range(c.Address).Characters(Start:=i, Length:=1).Font.ColorIndex = 3 Then Range(c.Address).Characters(Start:=i, Length:=1).Delete End If Next Next End Sub
isabelle
Bonjour à tous.
J'ai un doc xls dans lequel de nombreuses cellules contiennent du texte en noir et en rouge (à l'interieur de la même cellule) J'aimerai supprimer dans toute la colonne le texte en rouge Auriez-vous un tuyau ???
En vous remerciant tous
Michel
bonjour Michel,
Sub Macro1()
For Each c In Range("A1:A4")
For i = Len(c) To 1 Step -1
If Range(c.Address).Characters(Start:=i, Length:=1).Font.ColorIndex = 3 Then
Range(c.Address).Characters(Start:=i, Length:=1).Delete
End If
Next
Next
End Sub
isabelle
Bonjour à tous.
J'ai un doc xls dans lequel de nombreuses cellules contiennent du texte en
noir et en rouge (à l'interieur de la même cellule)
J'aimerai supprimer dans toute la colonne le texte en rouge
Auriez-vous un tuyau ???
Sub Macro1() For Each c In Range("A1:A4") For i = Len(c) To 1 Step -1 If Range(c.Address).Characters(Start:=i, Length:=1).Font.ColorIndex = 3 Then Range(c.Address).Characters(Start:=i, Length:=1).Delete End If Next Next End Sub
isabelle
Bonjour à tous.
J'ai un doc xls dans lequel de nombreuses cellules contiennent du texte en noir et en rouge (à l'interieur de la même cellule) J'aimerai supprimer dans toute la colonne le texte en rouge Auriez-vous un tuyau ???
En vous remerciant tous
Michel
michdenis
Bonjour Isabelle,
Personnellement, j'aurais utilisé la propriété Color avec la constante VBRed ... car les ColorIndex ne sont pas "Fiables" d'un classeur à l'autre ....!
If Range(c.Address).Characters(Start:=i, Length:=1).Font.Color = vbRed Then
;-)))
Salutations!
"isabelle" a écrit dans le message de news: bonjour Michel,
Sub Macro1() For Each c In Range("A1:A4") For i = Len(c) To 1 Step -1 If Range(c.Address).Characters(Start:=i, Length:=1).Font.ColorIndex = 3 Then Range(c.Address).Characters(Start:=i, Length:=1).Delete End If Next Next End Sub
isabelle
Bonjour à tous.
J'ai un doc xls dans lequel de nombreuses cellules contiennent du texte en noir et en rouge (à l'interieur de la même cellule) J'aimerai supprimer dans toute la colonne le texte en rouge Auriez-vous un tuyau ???
En vous remerciant tous
Michel
Bonjour Isabelle,
Personnellement, j'aurais utilisé la propriété Color avec la constante VBRed ... car les ColorIndex ne sont pas
"Fiables" d'un classeur à l'autre ....!
If Range(c.Address).Characters(Start:=i, Length:=1).Font.Color = vbRed Then
;-)))
Salutations!
"isabelle" <as.isabellevIE@videotron.ca> a écrit dans le message de news: 41AC8843.8DEAC872@videotron.ca...
bonjour Michel,
Sub Macro1()
For Each c In Range("A1:A4")
For i = Len(c) To 1 Step -1
If Range(c.Address).Characters(Start:=i, Length:=1).Font.ColorIndex = 3 Then
Range(c.Address).Characters(Start:=i, Length:=1).Delete
End If
Next
Next
End Sub
isabelle
Bonjour à tous.
J'ai un doc xls dans lequel de nombreuses cellules contiennent du texte en
noir et en rouge (à l'interieur de la même cellule)
J'aimerai supprimer dans toute la colonne le texte en rouge
Auriez-vous un tuyau ???
Personnellement, j'aurais utilisé la propriété Color avec la constante VBRed ... car les ColorIndex ne sont pas "Fiables" d'un classeur à l'autre ....!
If Range(c.Address).Characters(Start:=i, Length:=1).Font.Color = vbRed Then
;-)))
Salutations!
"isabelle" a écrit dans le message de news: bonjour Michel,
Sub Macro1() For Each c In Range("A1:A4") For i = Len(c) To 1 Step -1 If Range(c.Address).Characters(Start:=i, Length:=1).Font.ColorIndex = 3 Then Range(c.Address).Characters(Start:=i, Length:=1).Delete End If Next Next End Sub
isabelle
Bonjour à tous.
J'ai un doc xls dans lequel de nombreuses cellules contiennent du texte en noir et en rouge (à l'interieur de la même cellule) J'aimerai supprimer dans toute la colonne le texte en rouge Auriez-vous un tuyau ???
En vous remerciant tous
Michel
Help Me
merci à tous
Michel "michdenis" a écrit dans le message de news:
Bonjour Isabelle,
Personnellement, j'aurais utilisé la propriété Color avec la constante VBRed ... car les ColorIndex ne sont pas "Fiables" d'un classeur à l'autre ....!
If Range(c.Address).Characters(Start:=i, Length:=1).Font.Color = vbRed Then
;-)))
Salutations!
"isabelle" a écrit dans le message de news:
bonjour Michel,
Sub Macro1() For Each c In Range("A1:A4") For i = Len(c) To 1 Step -1 If Range(c.Address).Characters(Start:=i, Length:=1).Font.ColorIndex = 3 Then Range(c.Address).Characters(Start:=i, Length:=1).Delete End If Next Next End Sub
isabelle
Bonjour à tous.
J'ai un doc xls dans lequel de nombreuses cellules contiennent du texte en noir et en rouge (à l'interieur de la même cellule) J'aimerai supprimer dans toute la colonne le texte en rouge Auriez-vous un tuyau ???
En vous remerciant tous
Michel
merci à tous
Michel
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
uIw6X0u1EHA.3596@TK2MSFTNGP12.phx.gbl...
Bonjour Isabelle,
Personnellement, j'aurais utilisé la propriété Color avec la constante
VBRed ... car les ColorIndex ne sont pas
"Fiables" d'un classeur à l'autre ....!
If Range(c.Address).Characters(Start:=i, Length:=1).Font.Color = vbRed
Then
;-)))
Salutations!
"isabelle" <as.isabellevIE@videotron.ca> a écrit dans le message de news:
41AC8843.8DEAC872@videotron.ca...
bonjour Michel,
Sub Macro1()
For Each c In Range("A1:A4")
For i = Len(c) To 1 Step -1
If Range(c.Address).Characters(Start:=i, Length:=1).Font.ColorIndex = 3
Then
Range(c.Address).Characters(Start:=i, Length:=1).Delete
End If
Next
Next
End Sub
isabelle
Bonjour à tous.
J'ai un doc xls dans lequel de nombreuses cellules contiennent du texte
en
noir et en rouge (à l'interieur de la même cellule)
J'aimerai supprimer dans toute la colonne le texte en rouge
Auriez-vous un tuyau ???
Michel "michdenis" a écrit dans le message de news:
Bonjour Isabelle,
Personnellement, j'aurais utilisé la propriété Color avec la constante VBRed ... car les ColorIndex ne sont pas "Fiables" d'un classeur à l'autre ....!
If Range(c.Address).Characters(Start:=i, Length:=1).Font.Color = vbRed Then
;-)))
Salutations!
"isabelle" a écrit dans le message de news:
bonjour Michel,
Sub Macro1() For Each c In Range("A1:A4") For i = Len(c) To 1 Step -1 If Range(c.Address).Characters(Start:=i, Length:=1).Font.ColorIndex = 3 Then Range(c.Address).Characters(Start:=i, Length:=1).Delete End If Next Next End Sub
isabelle
Bonjour à tous.
J'ai un doc xls dans lequel de nombreuses cellules contiennent du texte en noir et en rouge (à l'interieur de la même cellule) J'aimerai supprimer dans toute la colonne le texte en rouge Auriez-vous un tuyau ???
