condition "if" ( demande )

[mikepers]

Bonjour le forum, merci pour votre travail.
Je doit réaliser un module important qui doit contenir 25 conditions ' if '. Il s'agit de déplacement de plages selons une conditionnelle ( en fonction d'un nombre dans une cellule )Avant de l'écrire, j'aimerais connaitre la meilleure façon d'y arriver:
soit avec : 'if' - 'end' if ( 25 fois )sans 'then'
ou bien avec : 'Elself'
dois utiliser aussi 'Else', au cas ou le nombre dans la cellule de référence ne correspond à aucune référence?

puis je avoir un avis ?
Merci.

 

[ERIC S]

Bonjour

pourquoi pas

select case range('A1').value
case 1
...
case 2
....
case else 'si non connu
msgbox 'code non reconnu'
end select

Il y a plein d'autres possibilités sans utiliser ifmais cela dépend du pb réel...

A+

 

[porcinet82]

Re:condition \"if\" ( demande )

Salut mikepers,

Et tant donné le nombre de condition, je te conseillerai plutot des Select Case qui évite de tester toutes les conditions.
Mais sans voir ton fichier ca va être difficile de rentrer plus dans le détails.

Tiens nous au courant.

@+

Edition : C'est pas vrai ca, je vais pas réussir à donner une réponse en premier aujourd'hui??? 😱 Salut Eric 😉

Message édité par: porcinet82, à: 17/06/2006 13:29

 

[mikepers]

merci ERIC.
Je ne connaissais pas, c'est très interressant.
Tu veux dire que entre case1 et case2, il suffit de mettre les code d'exécution macro?

 

[ERIC S]

Re:condition \"if\" ( demande )

re

va sous fenêtre vba (alt F11)

recherche 'select case'

tu auras même un exemple dans l'aide

sinon, oui tu peux faire des actions différentes, appeler des macros différentes...

A+

Message édité par: ERIC S, à: 17/06/2006 13:38

 

[porcinet82]

re,

Un petit exemple dans le fichier joint d'un Select Case dans une macro évènementielle.

[file name=mikepers_20060617133859.zip size=6959]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/mikepers_20060617133859.zip[/file]

Si tu as des questions n'hesite pas.

@+

 

[mikepers]

merci 1000 fois à tous les deux, pour la rapidité de votre réponse!!
j'ai récupéré le fichier et je met en place tout ca ce soir au boulot.
Merci pour votre aide précieuse !!!
( je reviens sur le forum après le boulot, ce soir ). Vous me permettez d'aborder le truc sérieusement, thanks..A+

 

[mikepers]

un très très grand merci, le 'sélect case' résoud une quantité de problèmes que je m'était posé jusqu'ici. Bravo et merci à tous les deux.