Simplification boucle ifRésolu

Question

Bonjour 

quelqu'un pourrait il m'aiguiller pour imbriquer et simplifier ces deux boucle si c'est possible:

 'charge la hauteur du deuxi&#232;me tiroir
Range("Tiroir2").Value = tiroir2.Text
    For Each tiroir_5 In zone2.Controls
        If tiroir_2.Visible = True Then
            Range("Tiroir2").Offset(0, -1).Value = tiroir_2.Caption
        Else
            Range("Tiroir2").Offset(0, -1).Value = ""
        End If
    Next
    
    'D&#233;termine si le tiroir2 et plac&#233; tout en bas du caisson
For Each tiroir_5 In zone2.Controls        If chb2.Visible True And chb2.Value True Then
            Range("Tiroir2").Offset(0, 1).Value = "Tout en bas"
        Else
            Range("Tiroir2").Offset(0, 1).Value = ""
        End If
    Next

Merci d'avance

cs_DARKSIDIOUS · Accepted Answer

Ben alors pourquoi faire une boucle pour faire x fois la m&#234;me chose, autant le faire qu'une seule fois, ca suffira !


Remarque : c'est la m&#234;me chose pour la premi&#232;re boucle en fait : tu
n'utilise pas ta variable de boucle, donc tu fait aussi x fois la m&#234;me
chose !



Donc ton code devient :

Range("Tiroir2").Offset(0, -1).Value = iif(tiroir_2.Visible, tiroir_2.Caption, "")

Range("Tiroir2").Offset(0, 1).Value = iif(chb2.Visible And chb2.Value, "Tout en bas", "")



Et tout de suite, c'est plus rapide !

_____________________________________________________________________
DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) tout en fran&#231;ais : www.ProgOtoP.com/popapi/

cs_DARKSIDIOUS · Answer

J'ai du mal &#224; comprendre ta deuxi&#232;me boucle : &#224; quoi te sert-elle puisque tu n'utilise jamais tiroir_5 ??? La je comprends pas !
_____________________________________________________________________
DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) tout en fran&#231;ais : www.ProgOtoP.com/popapi/

treza88 · Answer

Ok 

t'as question est pertinente c'est vrai que tiroir_5 n'est pas utilis&#233; mais si je met tiroir_2 se qui me parettrait plus logique &#231;a ne fonctionne pas comme je le veux alors j'ai pas encore trouv&#233; d'ou &#231;a venait mais &#231;a fonctionne comme &#231;a, mais j'ai encore beaucoup de choses &#224; apprendre en VBA et je suis certainement pass&#233; &#224; cot&#233; de quelque chose.


Voila pour te repondre DarK Sidious

treza88 · Answer

Ok DarK Sidious

Je viens de le tester et c'est pas que je doutais de ton code mais je l'avais jamais vu jusque l&#224;, le iif &#233;tait completement unconnu de ma part.


Entout cas je remercie car &#231;a simplifie enorm&#233;ment mon code et c'est sur en voyant &#231;a j'ai encore du boulot en programmation

Simplification boucle if

4 réponses

Discussions similaires