MAUVAISE FORMULE

[CEDRIC]

Bonsoir,

Pouvez vous corriger ma formule, cela fait plusieurs heures que j'essaye.

Merci

Private Sub Workbook_Open()

IF(MOIS(A1=MOIS(MAINTENANT())) >= Range('feuil1!A1').Value Then
'a faire
MsgBox 'Faire le courrier', vbInformation, 'Mes contrats'
End If

End Sub

 

[dom's]

As tu essayé de décomposer la formule sur 2 lignes

range('feuil1!A1').select
if(mois(a1=mois(maintenant())>= activecell.value then
....

 

[dom's]

As tu essayé de décomposer la formule sur 2 lignes

range('feuil1!A1').select
if(mois(a1=mois(maintenant())>= activecell.value then
....

 

[ziopizza]

Bonsoir cedric,

Regarde ce petit code à adapter,

Sub Macro1()


Range('b2').Value = Month(Now())
If Range('b2').Value >= Range('a2').Value Then
MsgBox 'Faire le courrier', vbInformation, 'Mes contrats'
Else
Range('b2').Value = 'Bonjour'
End If
End Sub

Yves

 

[ziopizza]

re bonsoir cedric,

un peu plus réfléchie


Sub Macro1()
Dim mois As Date, mois1 As Date
mois1 = Month(Now())
mois = Format(Range('a1').Value, 'MM')
If mois >= mois1 Then
MsgBox 'Faire le courrier', vbInformation, 'Mes contrats'
Else
Range('b2').Value = 'Bonjour'
End If
End Sub

Yves

 

[cedric]

bonjour

merci

bonne journee