Coder une multitude de si en VBA

[rimbaut]

Bonjour,
Voila pas mal de temps que je ne suis plus venu sur le forum compte tenu des contraintes de temps. Aujourd'hui je suis confronté dans mon travail à un problème.
En effet, je dois réaliser un petit outil qui consite à attribuer un certain nombre de points en fonction de l'amplitude du risque.
Exemple :
- si risque faible alors 10 points
- si risque faible + alors 20 points
- si risque modéré alors 30 points
- si risque modéré + alors 40 points
....
- si risque très élevé alors 100 points.

Je pourrais faire cela sous excel avec des conditions mais compte tenu que les conditions sont multiples cela ferait une fonction interminable.

Il est donc plus sage de faire cela avec VBA sachant que les conditions se trouvent sur la feuille 1 et que le résultat (c'est à dire le nombre de points) vont aller sur une cellule se trouvant sur la feuille 2.

Le problème est que je ne sais pas trop comment faire ce code avec VBA. Si quelqu'un veut bien m'aider, il m'enlèverait une épine du pied.

Je l'en remercie par avance.

Bon dimanche

 

[Victor21]

Re : Coder une multitude de si en VBA

Bonjour rimbaut.

Regardez l'aide vba sur select case.

 

[R@chid]

Re : Coder une multitude de si en VBA

Bonjour @ tous,
Salut Patrick,

Je pourrais faire cela sous excel avec des conditions mais compte tenu que les conditions sont multiples cela ferait une fonction interminable.

Un fichier exemple explicite on peut le faire sans VBA peut-être..

@ + +

 

[néné06]

Re : Coder une multitude de si en VBA

Bonjour Rimbaut,Bien le bonjour Victor

Comme le dit Victor, "Select Case" est la solution qui semblerait idéale, mais il serait intéressant d'avoir une pièce-jointe pour coder en VBA !

A te relire

René

Edit:

Salut R@chid

 

[rimbaut]

Re : Coder une multitude de si en VBA

Je voudrais joindrele fichier qui en est à son tout début mais je ne sais pas comment l'on fait ?

 

[néné06]

Re : Coder une multitude de si en VBA

@ Rimbaut,

Click sur "Aller en mode avancé"
Click sur le "Trombone"
click sur "Parcourir" etc..
.

A+

 

[rimbaut]

Re : Coder une multitude de si en VBA

Voici le fichier

 

[néné06]

Re : Coder une multitude de si en VBA

re,

Où ca ???

 

[néné06]

Re : Coder une multitude de si en VBA

Re,
Ton fichier est peut être " trop gros".

Donnes le en "Xlsm" ou en zip.

A+

 

[Si...]

Re : Coder une multitude de si en VBA

salut

en attendant
Un tableau d'équivalence ? Si... oui, 2 exemples avec ou sans VBA.

 

[rimbaut]

Re : Coder une multitude de si en VBA

Mille excuses, pourtant le fichier était joint !!! Je vous ferai passer le fichier dés demain car la je suis sur un autre PC. Toutefois, je vais essayer également la formule de Si....

Vous remerciant pour votre aide

 

[rimbaut]

Re : Coder une multitude de si en VBA

Bonsoir,
Je n'ai pu poursuivre la discussion car occupé par ailleurs et je m'en excuse. Voici le fichier en question. Celui ci comporte une liste déroulante sur la feuille Score à la cellule c4. Le problème est de rentrer le nombre de point dans la cellule D4 selon le texte affichée dans la cellule C4.

Merci pour votre aide

 

[Victor21]

Re : Coder une multitude de si en VBA

Bonsoir.

Essayez en D4 :

=DECALER(Critère!$C$3;EQUIV(Score!C4;Critère!$B$4:$B$21;0);0)

ou

=INDEX(Critère!C3:C20;EQUIV(Score!C4;Critère!B3:B20;0))

ou ...

 

[Victor21]

Re : Coder une multitude de si en VBA

Bonsoir.

Essayez en D4 :

=DECALER(Critère!$C$3;EQUIV(Score!C4;Critère!$B$4:$B$21;0);0)

ou

=INDEX(Critère!C$3:C$20;EQUIV(Score!C4;Critère!$B$3:$B$20;0))

ou ...

 

[rimbaut]

Re : Coder une multitude de si en VBA

Merci beaucoup victor21 pour ton aide. Mon problème est résolu

Bon dimanche