Des si ok mais y a t il plus simple ? formule ou vba

[Evelynetfrancois]

Bonjour
je joins un classeur "exemple" pour êtres bien plus clair ....

j'obtiens bien le résultat escompté , (mais limité a 8 "=SI")
Auriez vous sous le coude, une approche plus performante
Merci pour tout
bonne journée à tous !!
E et F

 

[Int0x]

Re : Des si ok mais y a t il plus simple ? formule ou vba

Bonjour,

La question est probablèment bête, mais je ne comprends pas pourquoi vous n'utilisez pas la fonction Recherchev ?
Exemple en B16 : =RECHERCHEV(A16;$D$2:$E$9;2;0)

Int0x

 

[VDAVID]

Re : Des si ok mais y a t il plus simple ? formule ou vba

Bonjour EvelyneFrançois;

En passant par un simple recherchev comme en P.J,

Bonne journée

EDIT : Bonjour Intox, je n'ai pas été assez rapide 😱 !

 

[Evelynetfrancois]

Re : Des si ok mais y a t il plus simple ? formule ou vba

merci intox , vdavid
ca me semble tres bien tout ca ..nikel meme .
un tres grand MERCI !! à vous
j etais completement perché ailleurs avec mes "SI" arf !
bon week end à vous
E et F

 

[Evelynetfrancois]

Re : Des si ok mais y a t il plus simple ? formule ou vba + couleur ?

re bonsoir

Recherchev proposé par VDAVID et INTOX est une merveille , encore un très grand merci !!
Est il possible de ramener également la couleur correspondante?
Comme j ai essayé de montrer sur le fichier joint ?
merci pour tout
bonne soirée
EetF

 

[JCGL]

Re : Des si ok mais y a t il plus simple ? formule ou vba

Bonjour à tous,

Peux-tu essayer ceci dans le module de la feuille :

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim C As Range
    For Each C In Range("C16:C40")
        Select Case C.Value
            Case Is = "": C.Interior.ColorIndex = -4142
            Case Is = "François": C.Interior.ColorIndex = 36
            Case Is = "Paul": C.Interior.ColorIndex = 34
            Case Is = "Jacques": C.Interior.ColorIndex = 44
            Case Is = "Diana": C.Interior.ColorIndex = 38
            Case Is = "Christophe": C.Interior.ColorIndex = 39
            Case Is = "Martine": C.Interior.ColorIndex = 42
            Case Is = "Sophie": C.Interior.ColorIndex = 45
            Case Is = "Hélène": C.Interior.ColorIndex = 15
        End Select
    Next
End Sub

A + à tous

 

[laurent950]

Re : Des si ok mais y a t il plus simple ? formule ou vba

Bonsoir EvelyneFrancois,

un lien internet avec l'explication de RecherchV

Fonction "RECHERCHEV - (1)"

laurent

 

[JCGL]

Re : Des si ok mais y a t il plus simple ? formule ou vba

Bonjour à tous,

Sans le RECHERCHEV() :

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim C As Range
    For Each C In Range("A2:A30")
        Select Case C.Value
            Case Is = "": C.Offset(, 2).Interior.ColorIndex = -4142: C.Offset(, 2) = ""
            Case Is = "A": C.Offset(, 2).Interior.ColorIndex = 36: C.Offset(, 2) = "François"
            Case Is = "B": C.Offset(, 2).Interior.ColorIndex = 34: C.Offset(, 2) = "Paul"
            Case Is = "C": C.Offset(, 2).Interior.ColorIndex = 44: C.Offset(, 2) = "Jacques"
            Case Is = "D": C.Offset(, 2).Interior.ColorIndex = 38: C.Offset(, 2) = "Diana"
            Case Is = "E": C.Offset(, 2).Interior.ColorIndex = 39: C.Offset(, 2) = "Christophe"
            Case Is = "F": C.Offset(, 2).Interior.ColorIndex = 42: C.Offset(, 2) = "Martine"
            Case Is = "G": C.Offset(, 2).Interior.ColorIndex = 45: C.Offset(, 2) = "Sophie"
            Case Is = "H": C.Offset(, 2).Interior.ColorIndex = 15: C.Offset(, 2) = "Hélène"
        End Select
    Next
End Sub

A + à tous

 

[Evelynetfrancois]

Re : Des si ok mais y a t il plus simple ? formule ou vba

Merci JCGL C'est carrement genial
un grand merci
installé sur mon programme ça permet une vue d'ensemble beaucoup plus limpide!!
chaque agents se localise vraiment mieux !!
bonne soirée
au plaisir de te lire
E et F