VBA Sélectionner controles pairs ou impairs

[aeque]

bonsoir le fofo

aujourd'hui encore j'ai besoin de vos lumières.

Voilà dans une usf j'ai 32 DTPickers. la date qui s'affiche à l'ouverture est la date du jour. Voici mon code

For x = 1 To 32
Me.Controls("DTPicker" & x).Value = Now()
Next x

Maintenant j'aimerai savoir comment il est possible de faire la différence entre les Pickers pairs et impairs pour leur affecter une date différente

Les impairs la date du jour

les pairs la date du jour + 7 jours


Merci beaucoup

 

[cbea]

Re : VBA Sélectionner controles pairs ou impairs

Bonsoir aeque, le forum,

voici une solution :

    For X = 1 To 32
        If X Mod 2 = 0 Then     ' Pair
            Me.Controls("TextBox" & X).Value = DateAdd("d", 7, Now())
        Else                    ' Impair
            Me.Controls("TextBox" & X).Value = Now()
        End If
    Next X

 

[aeque]

Re : VBA Sélectionner controles pairs ou impairs

Merci beaucoup cbea

C parfait!!!!