XL 2016 Fonction SI en VBA

[ExcelDow]

Bonjour à vous tous,
J'aurais juste une question à vous chère membres,

J'utilise beaucoup la fonction =SI, avec 7 ou 8 si, et j'aimerais savoir, si c'était possible de le faire en VBA, ce que je ne connais absolument pas.
Voilà, merci et A +++++

 

[vgendron]

hello

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

Sub test()

Select Case [A2]

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

End Sub

 

[vgendron]

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

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

 

[ExcelDow]

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+++++++

 

[gosselien]

Bonjour le forum, vgendron,excedow,

avec une table, ça permet un immense choix

P.

 

[Paf]

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+

 

[vgendron]

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+

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.. ;-)

 

[Paf]

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+

 

[ExcelDow]

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

 

[mutzik]

bonjour,

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

 

[ExcelDow]

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";""))))))))))

 

[JCGL]

Bonjour à tous,

Enlève les " qui entourent les chiffres.

A+ à tous

 

[ExcelDow]

OK, c'est bon, merci beaucoup JCGL

 

[Dranreb]

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

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

 

[JCGL]

Bonjour à tous,

Si cela convient : plus court.

=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