Discussion :

[judoka0209]

bonjour à tous
je voudrais quand la variante "<<dateC0>> est un mois pair il me remplisse que la variable de 1 à 29 et pour les mois impair de 1 à 30 et fevrier de 1 à 28 ou 29 si année bisexstile
merci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Sub doms8()
'
' doms8 Macro
' Macro créée le 03/09/2004 par Dom's
'
Dim buf As Variant
Dim dateDR As Date
Dim i As Integer
Dim var1 As Variant
Dim var2 As Variant
Dim var3 As Variant
 
'*******************
'**** DATE DE DR ***
'*******************
 
Do
buf = InputBox("Entrez la Date", _
"Date de début", Date, 10, 10)
If buf = "" Then Exit Sub
If IsDate(buf) Then
dateDR = buf
Exit Do
Else
Beep
End If
Loop
 
 
 
Remplacer "<<datea0>>", Format(dateDR, "dddd")
Remplacer "<<dateb0>>", Format(dateDR, "dd mmmm yyyy")
Remplacer "<<dateC0>>", Format(dateDR, "mmmm yyyy")
' boucle permettant de remplacer toutes les dates dans le documents
'variable i de 1 à 30
For i = 1 To 30
'on initialise la variable var1 => recherche dans le documents
var1 = "datea" & i
var2 = "dateb" & i
'on calcule la date d'affichage
var3 = DateAdd("w", i, dateDR)
 
' appel à la fonction remplacer !
Remplacer "<<" & var1 & ">>", Format(var3, "dddd")
Remplacer "<<" & var2 & ">>", Format(var3, "dd mmmm yyyy")
'on incremente i
Next i

[Heureux-oli]

Salut,

Pour savoir si ton mois est pair, deux choses.
Soit il est en lettre et il faut faire une comparaison.
Si il est en chiffre, il faut utiliser la fonction Modulo (Mod) sur le mois divisé par 2 qui renvoie le reste d'une division.
Si c'est 0, c'est que le mois est pair, impair pour les autres cas.

Code :

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

1
2
 
Debug.Print Month(Now()) Mod 2

Devrait aujourdhui renvoyer 0 et demain 5

Pour février, il suffit de faire un test sur le mois.

[judoka0209]

Te bonjour
Le mois est en lettre comment j'écris cela
Je suis très novice en prog
Merci

[Heureux-oli]

Salut,

Jepense qu'un Case Select est une bonne option.

Code :

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

1
2
3
4
5
6
7
8
Select Case myMonth
Case "Janvier"
.....
Case "Février"
.....
.....
 
End Select