Est il possible de remplacer une cellule qui a un motif par une lettre ou un
chiffre ?
L'idéee est de remplacer dans un tableau toutes les cellules qui ont une
certaine couleur par une lettre ou un chiffre.
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
Jacky
Bonjour
Une piste..... Ceci remplace les cellules coloriées(sauf celles coloriées par une mfc) par leurs n° index de couleur et enlève la couleur du motif. Dans une plage, ici A1:F100, à adapter. '-------------- Sub jj() For Each c In Range("a1:f100") If c.Interior.ColorIndex <> xlNone Then c.Value = c.Interior.ColorIndex c.Interior.ColorIndex = xlNone End If Next End Sub '------------ Salutations JJ
"dudulo" a écrit dans le message de news:
Bonjour,
Est il possible de remplacer une cellule qui a un motif par une lettre ou un
chiffre ? L'idéee est de remplacer dans un tableau toutes les cellules qui ont une certaine couleur par une lettre ou un chiffre.
Merci par avance cordialement
Bonjour
Une piste.....
Ceci remplace les cellules coloriées(sauf celles coloriées par une mfc) par
leurs n° index de couleur et enlève la couleur du motif.
Dans une plage, ici A1:F100, à adapter.
'--------------
Sub jj()
For Each c In Range("a1:f100")
If c.Interior.ColorIndex <> xlNone Then
c.Value = c.Interior.ColorIndex
c.Interior.ColorIndex = xlNone
End If
Next
End Sub
'------------
Salutations
JJ
"dudulo" <dudulo@discussions.microsoft.com> a écrit dans le message de
news:D63BDF43-6394-403A-BA69-18A1399817C7@microsoft.com...
Bonjour,
Est il possible de remplacer une cellule qui a un motif par une lettre ou
un
chiffre ?
L'idéee est de remplacer dans un tableau toutes les cellules qui ont une
certaine couleur par une lettre ou un chiffre.
Une piste..... Ceci remplace les cellules coloriées(sauf celles coloriées par une mfc) par leurs n° index de couleur et enlève la couleur du motif. Dans une plage, ici A1:F100, à adapter. '-------------- Sub jj() For Each c In Range("a1:f100") If c.Interior.ColorIndex <> xlNone Then c.Value = c.Interior.ColorIndex c.Interior.ColorIndex = xlNone End If Next End Sub '------------ Salutations JJ
"dudulo" a écrit dans le message de news:
Bonjour,
Est il possible de remplacer une cellule qui a un motif par une lettre ou un
chiffre ? L'idéee est de remplacer dans un tableau toutes les cellules qui ont une certaine couleur par une lettre ou un chiffre.
Merci par avance cordialement
dudulo
Bonjour, Merci, je vais tester et je reviendrais vers vous. Cdt
Bonjour
Une piste..... Ceci remplace les cellules coloriées(sauf celles coloriées par une mfc) par leurs n° index de couleur et enlève la couleur du motif. Dans une plage, ici A1:F100, à adapter. '-------------- Sub jj() For Each c In Range("a1:f100") If c.Interior.ColorIndex <> xlNone Then c.Value = c.Interior.ColorIndex c.Interior.ColorIndex = xlNone End If Next End Sub '------------ Salutations JJ
"dudulo" a écrit dans le message de news:
Bonjour,
Est il possible de remplacer une cellule qui a un motif par une lettre ou un
chiffre ? L'idéee est de remplacer dans un tableau toutes les cellules qui ont une certaine couleur par une lettre ou un chiffre.
Merci par avance cordialement
Bonjour,
Merci, je vais tester et je reviendrais vers vous.
Cdt
Bonjour
Une piste.....
Ceci remplace les cellules coloriées(sauf celles coloriées par une mfc) par
leurs n° index de couleur et enlève la couleur du motif.
Dans une plage, ici A1:F100, à adapter.
'--------------
Sub jj()
For Each c In Range("a1:f100")
If c.Interior.ColorIndex <> xlNone Then
c.Value = c.Interior.ColorIndex
c.Interior.ColorIndex = xlNone
End If
Next
End Sub
'------------
Salutations
JJ
"dudulo" <dudulo@discussions.microsoft.com> a écrit dans le message de
news:D63BDF43-6394-403A-BA69-18A1399817C7@microsoft.com...
Bonjour,
Est il possible de remplacer une cellule qui a un motif par une lettre ou
un
chiffre ?
L'idéee est de remplacer dans un tableau toutes les cellules qui ont une
certaine couleur par une lettre ou un chiffre.
Bonjour, Merci, je vais tester et je reviendrais vers vous. Cdt
Bonjour
Une piste..... Ceci remplace les cellules coloriées(sauf celles coloriées par une mfc) par leurs n° index de couleur et enlève la couleur du motif. Dans une plage, ici A1:F100, à adapter. '-------------- Sub jj() For Each c In Range("a1:f100") If c.Interior.ColorIndex <> xlNone Then c.Value = c.Interior.ColorIndex c.Interior.ColorIndex = xlNone End If Next End Sub '------------ Salutations JJ
"dudulo" a écrit dans le message de news:
Bonjour,
Est il possible de remplacer une cellule qui a un motif par une lettre ou un
chiffre ? L'idéee est de remplacer dans un tableau toutes les cellules qui ont une certaine couleur par une lettre ou un chiffre.
