Bonjour MichD,
Merci pour la solution.
J'ai adapté la fonction Convertir(), pour le "de" avec apostrophe ou pas selon le mois :
'---------------------------------------------
Function Convertir(Rg As Range)
Dim A As Long, D As Long, Mois As String
Dim aps As String
A = Year(Rg): D = Day(Rg): Mois = Format(Rg, "MMMM")
moisTab = Array("avril", "août", "octobre")
p = Application.Match(Mois, moisTab, 0)
If IsError(p) Then
aps = "de "
Else: aps = "d'"
End If
Convertir = "L'an " & NumText(A) & _
", le " & NumText(D) & _
"du mois " & aps & Mois
End Function
'------------------------------------------------
Merci encore
Bonjour MichD,
Merci pour la solution.
J'ai adapté la fonction Convertir(), pour le "de" avec apostrophe ou pas selon le mois :
'---------------------------------------------
Function Convertir(Rg As Range)
Dim A As Long, D As Long, Mois As String
Dim aps As String
A = Year(Rg): D = Day(Rg): Mois = Format(Rg, "MMMM")
moisTab = Array("avril", "août", "octobre")
p = Application.Match(Mois, moisTab, 0)
If IsError(p) Then
aps = "de "
Else: aps = "d'"
End If
Convertir = "L'an " & NumText(A) & _
", le " & NumText(D) & _
"du mois " & aps & Mois
End Function
'------------------------------------------------
Merci encore
Bonjour MichD,
Merci pour la solution.
J'ai adapté la fonction Convertir(), pour le "de" avec apostrophe ou pas selon le mois :
'---------------------------------------------
Function Convertir(Rg As Range)
Dim A As Long, D As Long, Mois As String
Dim aps As String
A = Year(Rg): D = Day(Rg): Mois = Format(Rg, "MMMM")
moisTab = Array("avril", "août", "octobre")
p = Application.Match(Mois, moisTab, 0)
If IsError(p) Then
aps = "de "
Else: aps = "d'"
End If
Convertir = "L'an " & NumText(A) & _
", le " & NumText(D) & _
"du mois " & aps & Mois
End Function
'------------------------------------------------
Merci encore
Bonjour MichD,
Merci pour la solution.
J'ai adapté la fonction Convertir(), pour le "de" avec apostrophe ou pas selon le mois :
'---------------------------------------------
Function Convertir(Rg As Range)
Dim A As Long, D As Long, Mois As String
Dim aps As String
A = Year(Rg): D = Day(Rg): Mois = Format(Rg, "MMMM")
moisTab = Array("avril", "août", "octobre")
p = Application.Match(Mois, moisTab, 0)
If IsError(p) Then
aps = "de "
Else: aps = "d'"
End If
Convertir = "L'an " & NumText(A) & _
", le " & NumText(D) & _
"du mois " & aps & Mois
End Function
'------------------------------------------------
Merci encore
Bonjour MichD,
Merci pour la solution.
J'ai adapté la fonction Convertir(), pour le "de" avec apostrophe ou pas selon le mois :
'---------------------------------------------
Function Convertir(Rg As Range)
Dim A As Long, D As Long, Mois As String
Dim aps As String
A = Year(Rg): D = Day(Rg): Mois = Format(Rg, "MMMM")
moisTab = Array("avril", "août", "octobre")
p = Application.Match(Mois, moisTab, 0)
If IsError(p) Then
aps = "de "
Else: aps = "d'"
End If
Convertir = "L'an " & NumText(A) & _
", le " & NumText(D) & _
"du mois " & aps & Mois
End Function
'------------------------------------------------
Merci encore
Bonjour MichD,
Merci pour la solution.
J'ai adapté la fonction Convertir(), pour le "de" avec apostrophe ou pas selon le mois :
'---------------------------------------------
Function Convertir(Rg As Range)
Dim A As Long, D As Long, Mois As String
Dim aps As String
A = Year(Rg): D = Day(Rg): Mois = Format(Rg, "MMMM")
moisTab = Array("avril", "août", "octobre")
p = Application.Match(Mois, moisTab, 0)
If IsError(p) Then
aps = "de "
Else: aps = "d'"
End If
Convertir = "L'an " & NumText(A) & _
", le " & NumText(D) & _
"du mois " & aps & Mois
End Function
'------------------------------------------------
Merci encore
Bonjour MichD,
Merci pour la solution.
J'ai adapté la fonction Convertir(), pour le "de" avec apostrophe ou pas
selon le mois :
'---------------------------------------------
Function Convertir(Rg As Range)
Dim A As Long, D As Long, Mois As String
Dim aps As String
A = Year(Rg): D = Day(Rg): Mois = Format(Rg, "MMMM")
moisTab = Array("avril", "août", "octobre")
p = Application.Match(Mois, moisTab, 0)
If IsError(p) Then
aps = "de "
Else: aps = "d'"
End If
Convertir = "L'an " & NumText(A) & _
", le " & NumText(D) & _
"du mois " & aps & Mois
End Function
'------------------------------------------------
Merci encore
Bonjour MichD,
Merci pour la solution.
J'ai adapté la fonction Convertir(), pour le "de" avec apostrophe ou pas
selon le mois :
'---------------------------------------------
Function Convertir(Rg As Range)
Dim A As Long, D As Long, Mois As String
Dim aps As String
A = Year(Rg): D = Day(Rg): Mois = Format(Rg, "MMMM")
moisTab = Array("avril", "août", "octobre")
p = Application.Match(Mois, moisTab, 0)
If IsError(p) Then
aps = "de "
Else: aps = "d'"
End If
Convertir = "L'an " & NumText(A) & _
", le " & NumText(D) & _
"du mois " & aps & Mois
End Function
'------------------------------------------------
Merci encore
Bonjour MichD,
Merci pour la solution.
J'ai adapté la fonction Convertir(), pour le "de" avec apostrophe ou pas
selon le mois :
'---------------------------------------------
Function Convertir(Rg As Range)
Dim A As Long, D As Long, Mois As String
Dim aps As String
A = Year(Rg): D = Day(Rg): Mois = Format(Rg, "MMMM")
moisTab = Array("avril", "août", "octobre")
p = Application.Match(Mois, moisTab, 0)
If IsError(p) Then
aps = "de "
Else: aps = "d'"
End If
Convertir = "L'an " & NumText(A) & _
", le " & NumText(D) & _
"du mois " & aps & Mois
End Function
'------------------------------------------------
Merci encore