Discussion :

[jpma75]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe Tulliez]

Bonjour,
Comme ceci ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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) ?

[jpma75]

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,

[Nain porte koi]

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
mode HS off

[deedolith]

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.

[patmeziere]

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

[jpma75]

Bonjour,

Sans parler de la proposition de Philippe,

Si :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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