VBA Sélectionner controles pairs ou impairs

aeque · 15 Mai 2013

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

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 · 16 Mai 2013

Re : VBA Sélectionner controles pairs ou impairs

Bonsoir aeque, le forum,

voici une solution :

Code:

    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 · 16 Mai 2013

Re : VBA Sélectionner controles pairs ou impairs

Merci beaucoup cbea

C parfait!!!!

VBA Sélectionner controles pairs ou impairs

aeque

XLDnaute Occasionnel

cbea

XLDnaute Impliqué

aeque

XLDnaute Occasionnel

Discussions similaires