Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

afficher une valeur en fonction de 2 autres cellules


Sujet :

Macros et VBA Excel

  1. #1
    Nouveau membre du Club
    afficher une valeur en fonction de 2 autres cellules
    Bonjour à tous,
    Fichier excel
    je suis à la recherche d'une formule de calcul depuis ce matin et je ne m'en sort pas et je ne sais si cela est applicable.
    Je m'explique:
    j'ai une cellule de référence en G1
    j'ai 4 cellule ( tour1, tour2, tour3 et tour4)avec cellule correspondant B2,C2,D2 et E2.
    je souhaiterais avoir en K2:
    que si B2<>G1==>K2=1
    que si B2=G1==> K2=2
    que si C2=G1==> k2=3
    que si D2=G1==>K2=4
    que si E2=G1==>K2=""
    Cela fonctionne pour les 2 premières formule et pas pour les autres.
    Je joint un fichier d'exemple et en attendant vos réponse, je continue ma recherche.
    Merci à tous

  2. #2
    Expert éminent sénior
    Citation Envoyé par jaquot14 Voir le message

    Bonjour,

    Si le VBA vous est permis, essayez cette fonction :
    J'ai renommé vos cellules B2 à E2 en Tour1 à Tour4 et Reference pour G1

    Code :Sélectionner tout -Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
     
    Function CalculK2() As Variant
     
         Application.Volatile
     
        CalculK2 = ""
     
        With Sheets("Feuil1")
     
            If .Range("Tour4") = .Range("Reference") Then CalculK2 = "": Exit Function
            If .Range("Tour3") = .Range("Reference") Then CalculK2 = 4: Exit Function
            If .Range("Tour2") = .Range("Reference") Then CalculK2 = 3: Exit Function
            If .Range("Tour1") = .Range("Reference") Then CalculK2 = 2: Exit Function
     
            If .Range("Tour1") <> .Range("Reference") Then CalculK2 = 1
     
        End With
     
    End Function
    Eric KERGRESSE
    https://sites.google.com/site/erickergresseeirl/
    Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer sur et si celle-ci est pertinente pensez à voter

  3. #3
    Nouveau membre du Club
    Code VBA Excel
    Bonsoir Eric KERGRESSE,

    Je te remercie pour ta réponse très rapide.
    J'ai essayé ton code et il fonctionne à merveille et je viens de l'adapter à ma base excel, c'est super, c'est exactement ce qu'i me Faller.
    Encore un grand merci à vous
    Bonne soirée
    jaquot14

###raw>template_hook.ano_emploi###