Fontion IIf - optimisation ?

Bonjour,

Par souci d'optimisation (!), j'ai remplacé :

Code:

---

1 2 3 4 5 6 7 8 9

If Target.Offset(0, 0).Value = "" Then Target.Offset(0, 0).Value = "o" Else If Target.Offset(0, 0).Value = "o" Then Target.Offset(0, 0).Value = "x" Else Target.Offset(0, 0).Value = "" End If End If

---

Par :

Code:

---

Target.Offset(0, 0).Value = IIf(Target.Offset(0, 0).Value = "", "o", IIf(Target.Offset(0, 0).Value = "o", "x", ""))

---

Ça fonctionne mais j'ai un doute sur le fait qu'on ne puisse pas faire mieux.

Merci pour vos lumières,
Cdt

Bonjour,
Comme ceci ?

Code:

---

1 2 3 4 5

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) With Target .Value = IIf(.Value = "", "o", IIf(.Value = "o", "x", "")) End With End Sub

---

Pourquoi utiliser Offset(0,0) ?

Bonjour Philippe,

Merci !! C'est parfait, comme d'habitude.

Après avoir envoyé ma question, je me suis rendu-compte que l'Offset était effectivement inutile.

Cordialement,

Citation:

---

Envoyé par Philippe Tulliez

Pourquoi utiliser Offset(0,0) ?

---

mode HS on
Ben c'est comme dans les boites a vitesses des voitures, y'a la première pour aller doucement à un endroit, la 2ème plus vite, la 3ème etc., ... et le point mort pour aller nulle part :D:D:D
mode HS off

Hello,

L'instruction IIF n'est absolument pas une version optimisée de l'instruction IF, ce n'est que du sucre syntaxique.
A utiliser avec des instructions courtes, et minimiser les niveaux d'imbrication, faute de quoi, ton code source peut rapidement devenir illisible.
Hors, le but premier d'un code source est d'être lisible.

A utiliser avec prudence.

Bonjour à tous
juste en passant comme ça

depuis quand les doubles conditions ("IIF" )sont des arguments d'optimisation?

pour répondre a cette question si vous ne l'avez pas

imaginez simplement que les conditions aillent de "A" à "Z"

comment pourriez vous l’écrire avec des "IIF"

là ça doit déjà percuter

surtout qu'en vba avec "IIF" le code va passer les deux conditions en revue contrairement à un if else ou if elseif

des questions se posent alors
qu'est ce que vous entendez par optimisation ?

1. un code plus court
2. un code plus rapide
3. un code plus intelligible
4. un peu des trois

juste comme ça
avez vous penser à
select case /case /end select --> décisif sur occurrence 1 code propre et clair
switch ---> décisif sur occurrence 1(un peu moins rapide contre indiqué si plus de 4/5 test [code indigeste] )
choose ---> décisif sur occurrence testée par argumentée (un peu moins rapide contre indiqué si plus de 4/5 test [code indigeste] )

l'optimisation n'est jamais passé par une simplification expressive du code (ou très rarement quand c'est justifié) mais par la méthode

à méditer;)
Patrick

Bonjour,

Sans parler de la proposition de Philippe,

Si :

Code:

---

1 2 3 4 5 6 7 8 9

If Target.Offset(0, 0).Value = "" Then Target.Offset(0, 0).Value = "o" Else If Target.Offset(0, 0).Value = "o" Then Target.Offset(0, 0).Value = "x" Else Target.Offset(0, 0).Value = "" End If End If

---

Peut être remplacé par :

Code:

---

Target.Value = IIf(Target.Value = "", "o", IIf(Target.Value = "o", "x", ""))

---

9 lignes de code remplacées par une seule, c'est à mes yeux de néophyte de l'optimisation même si je crois avoir compris que IIf n'est pas une solution parfaite.

Cdt

Bonjour
non seulement elle n'est pas parfaite( si tant est que l'on puisse mesurer le niveau de perfection en terme d'optimisation )
mais la méthode en elle même n'optimise en rien
elle ne peut que satisfaire en terme de longueur de code
on parle alors donc plus d'optimisation mais de lecture
et là encore il y aurait encore à dire mais bon visiblement ça convient on ne va donc pas épiloguer
je trouve simplement dommage de mettre dans la tête d'un néophyte que cette pratique est une optimisation (ce qui est faux bien évidemment)
à méditer;)

Citation:

---

Envoyé par patmeziere

Bonjour
non seulement elle n'est pas parfaite( si tant est que l'on puisse mesurer le niveau de perfection en terme d'optimisation )
mais la méthode en elle même n'optimise en rien
elle ne peut que satisfaire en terme de longueur de code
on parle alors donc plus d'optimisation mais de lecture
et là encore il y aurait encore à dire mais bon visiblement ça convient on ne va donc pas épiloguer
je trouve simplement dommage de mettre dans la tête d'un néophyte que cette pratique est une optimisation (ce qui est faux bien évidemment)
à méditer;)

---

Juste par curiosité, vous proposeriez quoi comme optimisation ?

Utiliser plutôt des chiffres 0 1 2 qui peuvent être utilisés pour créer un nouveau format cellule et les associer aux noms qu on souhaite afficher

Code:

---

Target.Value = (Target.Value + 1) Mod 3

---

Bonjour le tout petit n'importe quoi;)

comme je l'ai dit tout à l'heure
un select case qui est décisif ( à first occurrence) et re modulable à souhait et donc plus perenne
une fois le case trouvé le reste du select case est zapé (mettre des msgbox dans les case simplement pour s'en rendre compte)

va rajouter une ou deux voir plus condition(s) dans un IIF toi on va bien rigoler ;)

je le redit l'optimisation passe d'abords par la méthode et non des jolis code bien courts qui sont par la force des codes obsolètes dès l'ors qu'une choses dans les conditions doivent changer
c'est juste une question de bon sens
et je ne parle même pas des pièges de la fonction ("IIF")(me semble t il un certain unparia l'avais clairement exposé il y a plusieurs années )
j'ai fait le test tout a l'heure en colonne A 30000 lignes
sans bloquer le screenupdating bien sur

je change le "" pour "o"
je change le "o" pour "x"
et enfin le "x" pour ""

dans un simple select case
résultat 12.xxx secondes pour le IIF
et 4.XXX sec pour le case
allez hop circulez ;)
pas compliqué de tester ;)

et pour info le if else de départ quasiment pareil que le case un poil de puce du patchanka de plus si tant est que l'on puisse considérer 2 résultat opérer a un moment différent ou le pc ne fait pas forcement la même chose

on peut considérer alors que le demandeur est parti a la chasse au DAHU

son truc de départ était très bien

allez histoire d'en rajouter un peu ; peut être l'indentation du code afin que les blocs if/else ou case soit lisible MEME POUR UN NEOPHYTE

re
je plussoie aussi rMIst qui utilise mod
ce qui fait qu'une seule opération au lieu de 3 dans iif(zzzz,qqqq ,iif(nnn,xxx,yyyy)
mais là on est plus chez les neophyte on est bien d'accords

re
pour vous donner un exemple de code superfétatoire
et dieu sait que même là je suis déjà mieux que le IIF (puisque je peux ajouter, modifier l'ordre des occurrences)
mais que les choses soient claires ; c'est tu m'a tu vu , tape à l'oeil et tout le toutim
ici le principe est simple on prend l'index du match +1
on peut donc ajouter "a","b","c","d" etc... dans l'array

Code:

---

1 2 3 4 5 6

Sub test() With ActiveCell nochar = vbNullString .Value = Array(, nochar, "o", "x", nochar)(Application.Match(CStr(.Text), Array(nochar, "o", "x", nochar), 0) + 1) End With End Sub

---

ou bien encore
encore plus drole(et même là on peut ajouter des lettres

Code:

---

1 2 3 4 5 6

Sub test2() With ActiveCell nochar = vbNullString .Value = Mid(nochar & "ox" & nochar, InStr(1, nochar & "ox" & nochar, .Text) + 1, 1) End With End Sub

---

ils fonctionnent très bien
on peut même mixer plusieurs réponses(ce que l'on peut pas faire avec un ou des IIf imbriqué sans rendre le code imbuvable
mais c'est du m'a tu vu

je suis d'humeur joueur ce matin ;)