XL 2016 Fonction SI en VBA

vgendron

XLDnaute Barbatruc

• 19 Juillet 2016

• #2

hello

un si avec beaucoup de possibilités, je m'oriente généralement vers un select case

Code:

Sub test()

Select Case [A2]

Case "A"
    result = 1
Case "B"
    result = 2
Case "C"
    result = 3
'---
'---
   
End Select
MsgBox result

End Sub

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 19 Juillet 2016

• #3

dans le cas de ton fichier exemple:

une fonction personnalisée serait parfaite:
ouvrir editeur vba: Alt+F11
dans un module standard
tu colles le code suivant

Code:

Function corresp(val)

Select Case val

Case "A"
    corresp = 1
Case "B"
    corresp = 2
Case "C"
    corresp = 3
Case "D"
    corresp = 4
Case "E"
    corresp = 5
Case "F"
    corresp = 6
Case "G"
    corresp = 7
End Select


End Function

puis dans ta feuille excel: en L2 tu tapes
=corresp(A2)
et tu tires vers le bas

 

Vote positif 0 Vote négatif

ExcelDow

XLDnaute Occasionnel

• 19 Juillet 2016

• #4

Bonjour vgendron,
Alors, impeccable, je te remercie beaucoup, c'est vraiment plus simple et facile pour corriger ou ajouter d'autres lignes
Un grand merci
A+++++++

 

Vote positif 0 Vote négatif

gosselien

XLDnaute Barbatruc

• 19 Juillet 2016

• #5

Bonjour le forum, vgendron,excedow,

avec une table, ça permet un immense choix 🙂

P.

 

Pièces jointes

• Fonction SI_VBA.xlsm

  11.4 KB · Affichages: 53

Vote positif 0 Vote négatif

Paf

XLDnaute Barbatruc

• 19 Juillet 2016

• #6

Bonjour ExcelDow, vgendron 🙂, gosselien 🙂,

pour une fois pas de proposition VBA, une simple formule en L2, à tirer vers le bas, si en colonne A on ne trouve que les lettres de l'alphabet, en majuscule.

=CODE(A2)-64

A+

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 20 Juillet 2016

• #7

Paf à dit:

Bonjour ExcelDow, vgendron 🙂, gosselien 🙂,

pour une fois pas de proposition VBA, une simple formule en L2, à tirer vers le bas, si en colonne A on ne trouve que les lettres de l'alphabet, en majuscule.

=CODE(A2)-64

A+

Cliquez pour agrandir...

Hello Paf, All
effectivement. j'y avais bien pensé . mais je me suis dit que des fournisseurs qui s'appellent A B C.... c'était juste pour l'exemple.. ;-)

 

Vote positif 0 Vote négatif

Paf

XLDnaute Barbatruc

• 20 Juillet 2016

• #8

bonjour vgendron,

c'est sûr que pour ce cas l'utilisation de VBA est plus souple. Mais pour une fois que je pouvais placer une formule ....

A+

 

Vote positif 0 Vote négatif

ExcelDow

XLDnaute Occasionnel

• 21 Juillet 2016

• #9

Bonjour Paf,
OUI, effectivement, vgendron à raison. A B C D n'est pas les vais fournisseurs, seulement pour l'exemple, et merci à vous tous.
J'aimerais juste vous demander, j'ai fais la fonction inverse, la case avec un nom, et le résultat avec une lettre, mais ça ne marche pas, cela serais aussi intéressant non ??

Merci Paf pour ton exemple: =CODE(A2)-64

Function corresp(val)
Select Case val

Case "Action"
corresp = A
Case "Promo"
corresp = B

End Select
End Function

 

Vote positif 0 Vote négatif

mutzik

XLDnaute Barbatruc

• 21 Juillet 2016

• #10

bonjour,

dans ce cas, A est pris comme une variable (qui n'existe pas) et donc ne te renvoie rien
sinon : corresp = "A"

 

Vote positif 0 Vote négatif

ExcelDow

XLDnaute Occasionnel

• 23 Juillet 2016

• #11

Re bonjour, à vous, et merci pour l'explication
Dite-moi s'il vous plaît, pourquoi, cette fonction ne fonctionne pas, Merci

'=SI(L2="1";"GV";SI(L2="2";"GV";SI(L2="3";"RI";SI(L2="4";"RI";SI(L2="5";"RI-A";SI(L2="6";"RI-A";SI(L2="7";"GV";SI(L2="8";"GV";SI(L2="9";"GV";SI(L2="10";"GV";""))))))))))

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 23 Juillet 2016

• #12

Bonjour à tous,

Enlève les " qui entourent les chiffres.

A+ à tous

 

Vote positif 0 Vote négatif

ExcelDow

XLDnaute Occasionnel

• 23 Juillet 2016

• #13

OK, c'est bon, merci beaucoup JCGL

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 23 Juillet 2016

• #14

Bonjour.
On aurait peut être plutôt intérêt à faire comme ça :

Code:

=INDEX({"GV";"RI";"RI-A";"GV";"GV"};ENT((L2+1)/2))

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 23 Juillet 2016

• #15

Bonjour à tous,

Si cela convient : plus court.

Code:

=SI(OU(L2=1;L2=2;L2=8;L2=7;L2=9;L2=10);"GV";SI(OU(L2=3;L2=4);"RI";SI(OU(L2=5;L2=6);"RI-A";"")))

A+ à tous

 

Vote positif 0 Vote négatif