Bonjour,
Je viens de nouveau demander un petit coup de pouce. J'aimerais
sélectionnner les cellules sans formules d'une feuille et ajouter à cette
sélection des cellules avec formules sans couleur de fond dans le but d'en
changer le format.
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 Claire,
voici un exemple qui ne répond surement pas tout à fait à ce que tu demande, il faudra adapter.
Sub Macro30() For Each c In Range("A1:B10") If IsNumeric(c) And c > 0 And c.Interior.ColorIndex = -4142 Then plg plg & c.Address & ", " If Left(c.Formula, 1) = "=" And c.Interior.ColorIndex = -4142 Then plg plg & c.Address & ", " Next plg = Left(plg, Len(plg) - 2) Range(plg).Select End Sub
isabelle
Bonjour, Je viens de nouveau demander un petit coup de pouce. J'aimerais sélectionnner les cellules sans formules d'une feuille et ajouter à cette sélection des cellules avec formules sans couleur de fond dans le but d'en changer le format.
Merci
Claire
bonjour Claire,
voici un exemple qui ne répond surement pas tout à fait à ce que tu
demande, il faudra adapter.
Sub Macro30()
For Each c In Range("A1:B10")
If IsNumeric(c) And c > 0 And c.Interior.ColorIndex = -4142 Then plg plg & c.Address & ", "
If Left(c.Formula, 1) = "=" And c.Interior.ColorIndex = -4142 Then plg plg & c.Address & ", "
Next
plg = Left(plg, Len(plg) - 2)
Range(plg).Select
End Sub
isabelle
Bonjour,
Je viens de nouveau demander un petit coup de pouce. J'aimerais
sélectionnner les cellules sans formules d'une feuille et ajouter à cette
sélection des cellules avec formules sans couleur de fond dans le but d'en
changer le format.
voici un exemple qui ne répond surement pas tout à fait à ce que tu demande, il faudra adapter.
Sub Macro30() For Each c In Range("A1:B10") If IsNumeric(c) And c > 0 And c.Interior.ColorIndex = -4142 Then plg plg & c.Address & ", " If Left(c.Formula, 1) = "=" And c.Interior.ColorIndex = -4142 Then plg plg & c.Address & ", " Next plg = Left(plg, Len(plg) - 2) Range(plg).Select End Sub
isabelle
Bonjour, Je viens de nouveau demander un petit coup de pouce. J'aimerais sélectionnner les cellules sans formules d'une feuille et ajouter à cette sélection des cellules avec formules sans couleur de fond dans le but d'en changer le format.
Merci
Claire
Claire
Merci de ton aide, j'essaie cela.
Claire
"Claire" a écrit dans le message de news:
Bonjour, Je viens de nouveau demander un petit coup de pouce. J'aimerais sélectionnner les cellules sans formules d'une feuille et ajouter à cette sélection des cellules avec formules sans couleur de fond dans le but d'en changer le format.
Merci
Claire
Merci de ton aide, j'essaie cela.
Claire
"Claire" <smdaoust@videotron.ca> a écrit dans le message de news:
eMeVG2S2DHA.1736@TK2MSFTNGP09.phx.gbl...
Bonjour,
Je viens de nouveau demander un petit coup de pouce. J'aimerais
sélectionnner les cellules sans formules d'une feuille et ajouter à cette
sélection des cellules avec formules sans couleur de fond dans le but d'en
changer le format.
Bonjour, Je viens de nouveau demander un petit coup de pouce. J'aimerais sélectionnner les cellules sans formules d'une feuille et ajouter à cette sélection des cellules avec formules sans couleur de fond dans le but d'en changer le format.