1. Ce site utilise des "témoins de connexion" (cookies) conformes aux textes de l'Union Européenne. Continuer à naviguer sur nos pages vaut acceptation de notre règlement en la matière. En savoir plus.

Ajouter un paramètre dans la fonction couleur

Discussion dans 'Forum Excel' démarrée par MGLL76, 11 Février 2019.

  1. MGLL76

    MGLL76 XLDnaute Nouveau

    Inscrit depuis le :
    6 Février 2019
    Messages :
    12
    "J'aime" reçus :
    0
    Sexe :
    Masculin
    Bonsoir à tous / Toutes.
    La fonction ci-dessous me permet de trouver la couleur de fond d'une cellule dans ma feuil1.

    Function Couleur(CL As Range) As Long
    Couleur = CL.Interior.ColorIndex
    End Function

    dans la feuil1 , si la cellule en B10 est de couleur verte et que j'écris dans la cellule C10 la formule suivante "=couleur(B10)", j'obtiens la valeur 3..La fonction marche donc très bien .

    Ce que je souhaite c'est utiliser cette fonction dans la feuil1 mais qu'elle pointe vers une feuille que l'on choisi..Ainsi, on aurait la formule "=couleur("Indiquer la feuille à choisir"; B10)

    Cela est il possible, svp ?

    Cordialement
     
  2. Chargement...

    Discussions similaires - Ajouter paramètre fonction Forum Date
    Ajouter un paramètre valable pour toute la formule Forum Excel 8 Mars 2016
    XL 2016 Rajouter une plage de recherche dans fonction recherchev Forum Excel Lundi à 13:15
    XL 2016 VBA, ajouter 30 jours a aujourd'hui Forum Excel Dimanche à 16:27
    Ajouter un nombre de jour N à une date Forum Excel 13 Février 2019
    Ajouter une ligne excel si caractère trouvé Forum Excel 6 Février 2019

  3. Jacky67

    Jacky67 XLDnaute Accro

    Inscrit depuis le :
    12 Juin 2016
    Messages :
    1213
    "J'aime" reçus :
    178
    Utilise:
    Excel 2007 (PC)
    Bonjour,
    Une proposition avec 3 possibilités en Pj
     

    Pièces jointes:

    Dernière édition: 11 Février 2019
  4. MGLL76

    MGLL76 XLDnaute Nouveau

    Inscrit depuis le :
    6 Février 2019
    Messages :
    12
    "J'aime" reçus :
    0
    Sexe :
    Masculin
    Bonjour...merci pour tes propositions..Y en a une qui m’intéresse mais il faudrait la modifier, si possible bien sur..Dans ton exemple ci-dessous, la formule suivante (Avec le nom de la feuille et la cellule inscrit en dur =Couleur(Feuil2!B10) ) marche car B10 est écrit en dur..
    Si j'utilise ta formule dans mon projet ca ne marche car B10 est obtenu par une formule :

    Dans mon projet pour trouver B10, j'ai cette formule "B" &EQUIV(Valeur à trouver;Feuil2!$A$2:$A$5;0)+1
    J'obtiens ainsi je pense une chaîne de caractère..Si j'ai bien compris dans ta formule =Couleur(Feuil2!B10) , la valeur B10 est un "Range"
    est ce qu'il est possible de transformer le résultat de ma formule ("B" &EQUIV.........) en un range , stp ?

    Je te met en pièce jointe mon projet....
    Merci d'avance pour ton aide..
     

    Pièces jointes:

  5. Jacky67

    Jacky67 XLDnaute Accro

    Inscrit depuis le :
    12 Juin 2016
    Messages :
    1213
    "J'aime" reçus :
    178
    Utilise:
    Excel 2007 (PC)
    Re..
    Il n'y a ni formule ni fonction dans la Pj…
    Néanmoins essaye ceci
    Code (Text):
    =Couleur(INDIRECT("Feuil2!B" &EQUIV(A2;Feuil2!$A$2:$A$5;0)+1))
     
    Dernière édition: 11 Février 2019
  6. eriiiic

    eriiiic XLDnaute Barbatruc

    Inscrit depuis le :
    12 Juillet 2008
    Messages :
    2420
    "J'aime" reçus :
    166
    Utilise:
    Excel 2010 (PC)
    Bonjour,
    un essai pour tenter de réconcilier le meilleur des 2 mondes :
    Code (Visual Basic):
    Function Couleur(CL As Range, Optional ref) As Long
        Dim c As Range
        If Not IsMissing(ref) Then Set CL = CL.Parent.Range(ref)
        Couleur = CL.Interior.ColorIndex
    End Function
    Syntaxe 'normale' :
    =Couleur(A5)
    ou pour autre feuille :
    =Feuil2!A5

    Syntaxe forçage ref :
    =Couleur(Feuil2!A1;"A5")
    Si le 2nd argument optionnel Ref est présent, on prend cette ref et non celle du premier argument (sa cellule qui peut être quelconque, dans ce cas c'est juste récupérer la feuille qui nous intéresse).
    eric
     

Partager cette page