Bonjour à tous,
Je crée une nouvelle colonne mitoyenne à une existante contenant
diverses couleurs de fond de cellule.
Comment faire pour inscrire un texte dans mes nouvelles cellules, avec
fonction ou macro, suivant la couleur de fond des cellules de la
colonne existante.
Merci de votre aide,
Jean-Louis
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
Daniel
Bonjour. A adapter suivant tes couleurs :
Function EcrireSelonCouleur(c As Range) Select Case c.Interior.ColorIndex Case 1 EcrireSelonCouleur = "toto" Case 2 EcrireSelonCouleur = "titi" Case 3 EcrireSelonCouleur = "tata" Case Else EcrireSelonCouleur = "tutu" End Select End Function
ou
Function EcrireSelonCouleur(c As Range) Dim Tabl Tabl = Array("", "toto", "titi", "tata") On Error Resume Next EcrireSelonCouleur = Tabl(c.Interior.ColorIndex) If Err.Number <> 0 Then EcrireSelonCouleur2 = "tutu" End Function
Cordialement. Daniel "genloui" a écrit dans le message de news:
Bonjour à tous, Je crée une nouvelle colonne mitoyenne à une existante contenant diverses couleurs de fond de cellule. Comment faire pour inscrire un texte dans mes nouvelles cellules, avec fonction ou macro, suivant la couleur de fond des cellules de la colonne existante. Merci de votre aide, Jean-Louis
Bonjour.
A adapter suivant tes couleurs :
Function EcrireSelonCouleur(c As Range)
Select Case c.Interior.ColorIndex
Case 1
EcrireSelonCouleur = "toto"
Case 2
EcrireSelonCouleur = "titi"
Case 3
EcrireSelonCouleur = "tata"
Case Else
EcrireSelonCouleur = "tutu"
End Select
End Function
ou
Function EcrireSelonCouleur(c As Range)
Dim Tabl
Tabl = Array("", "toto", "titi", "tata")
On Error Resume Next
EcrireSelonCouleur = Tabl(c.Interior.ColorIndex)
If Err.Number <> 0 Then EcrireSelonCouleur2 = "tutu"
End Function
Cordialement.
Daniel
"genloui" <nospam@nospam.fr> a écrit dans le message de news:
mn.eb397d611e8c838c.28471@nospam.fr...
Bonjour à tous,
Je crée une nouvelle colonne mitoyenne à une existante contenant diverses
couleurs de fond de cellule.
Comment faire pour inscrire un texte dans mes nouvelles cellules, avec
fonction ou macro, suivant la couleur de fond des cellules de la colonne
existante.
Merci de votre aide,
Jean-Louis
Function EcrireSelonCouleur(c As Range) Select Case c.Interior.ColorIndex Case 1 EcrireSelonCouleur = "toto" Case 2 EcrireSelonCouleur = "titi" Case 3 EcrireSelonCouleur = "tata" Case Else EcrireSelonCouleur = "tutu" End Select End Function
ou
Function EcrireSelonCouleur(c As Range) Dim Tabl Tabl = Array("", "toto", "titi", "tata") On Error Resume Next EcrireSelonCouleur = Tabl(c.Interior.ColorIndex) If Err.Number <> 0 Then EcrireSelonCouleur2 = "tutu" End Function
Cordialement. Daniel "genloui" a écrit dans le message de news:
Bonjour à tous, Je crée une nouvelle colonne mitoyenne à une existante contenant diverses couleurs de fond de cellule. Comment faire pour inscrire un texte dans mes nouvelles cellules, avec fonction ou macro, suivant la couleur de fond des cellules de la colonne existante. Merci de votre aide, Jean-Louis
