Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
gregb
Bonjour,
Fait une fonction en VBA.. !!
Function Trimestre(ddate) If Month(ddate) < 4 Then Trimestre = "T1 " & Year(ddate) Exit Function End If If Month(ddate) < 7 Then Trimestre = "T2 " & Year(ddate) Exit Function End If If Month(ddate) < 10 Then Trimestre = "T3 " & Year(ddate) Exit Function End If Trimestre = "T4 " & Year(ddate) End Function
Tu la retrouveras dans coller une fonction fonction personnalisée
Bon courage
Greg
"chesterfield" wrote in message news:40dc4c65$0$317$
Bonsoir, je souhaite convertir des dates en trimestre dans 3 cellules (B7, B8 et B11).
Par exemple, 03/2004 = T1 04 (04 étant l'année récupérée dans la cellule
en
question et T1 étant le premier trimestre)
autre exemple : 06/2005 = T2 05
Si vous pouvez me mettre le code correspondant, çà serait sympa :o)
Merci d'avance.
Bonjour,
Fait une fonction en VBA.. !!
Function Trimestre(ddate)
If Month(ddate) < 4 Then
Trimestre = "T1 " & Year(ddate)
Exit Function
End If
If Month(ddate) < 7 Then
Trimestre = "T2 " & Year(ddate)
Exit Function
End If
If Month(ddate) < 10 Then
Trimestre = "T3 " & Year(ddate)
Exit Function
End If
Trimestre = "T4 " & Year(ddate)
End Function
Tu la retrouveras dans coller une fonction fonction personnalisée
Bon courage
Greg
"chesterfield" <victor.stephane@club-internet.fr> wrote in message
news:40dc4c65$0$317$7a628cd7@news.club-internet.fr...
Bonsoir, je souhaite convertir des dates en trimestre dans 3 cellules (B7,
B8 et B11).
Par exemple, 03/2004 = T1 04 (04 étant l'année récupérée dans la cellule
en
question et T1 étant le premier trimestre)
autre exemple : 06/2005 = T2 05
Si vous pouvez me mettre le code correspondant, çà serait sympa :o)
Function Trimestre(ddate) If Month(ddate) < 4 Then Trimestre = "T1 " & Year(ddate) Exit Function End If If Month(ddate) < 7 Then Trimestre = "T2 " & Year(ddate) Exit Function End If If Month(ddate) < 10 Then Trimestre = "T3 " & Year(ddate) Exit Function End If Trimestre = "T4 " & Year(ddate) End Function
Tu la retrouveras dans coller une fonction fonction personnalisée
Bon courage
Greg
"chesterfield" wrote in message news:40dc4c65$0$317$
Bonsoir, je souhaite convertir des dates en trimestre dans 3 cellules (B7, B8 et B11).
Par exemple, 03/2004 = T1 04 (04 étant l'année récupérée dans la cellule
en
question et T1 étant le premier trimestre)
autre exemple : 06/2005 = T2 05
Si vous pouvez me mettre le code correspondant, çà serait sympa :o)
Merci d'avance.
ng
Salut,
Pourquoi ne pas plutot utiliser un select case dans ce cas ?
Function Trimestre(dDate As Date) As String Select Case Month(dDate) Case Is < 4: Trimestre = "T1 " Case Is < 7: Trimestre = "T2 " Case Is < 10: Trimestre = "T3 " Case Else: Trimestre = "T4 " End Select Trimestre = Trimestre & Year(dDate) End Function
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/ http://apisvb.europe.webmatrixhosting.net/
gregb a écrit :
Bonjour,
Fait une fonction en VBA.. !!
Function Trimestre(ddate) If Month(ddate) < 4 Then Trimestre = "T1 " & Year(ddate) Exit Function End If If Month(ddate) < 7 Then Trimestre = "T2 " & Year(ddate) Exit Function End If If Month(ddate) < 10 Then Trimestre = "T3 " & Year(ddate) Exit Function End If Trimestre = "T4 " & Year(ddate) End Function
Tu la retrouveras dans coller une fonction fonction personnalisée
Bon courage
Greg
"chesterfield" wrote in message news:40dc4c65$0$317$
Bonsoir, je souhaite convertir des dates en trimestre dans 3 cellules (B7, B8 et B11).
Par exemple, 03/2004 = T1 04 (04 étant l'année récupérée dans la cellule en question et T1 étant le premier trimestre)
autre exemple : 06/2005 = T2 05
Si vous pouvez me mettre le code correspondant, çà serait sympa :o)
Merci d'avance.
Salut,
Pourquoi ne pas plutot utiliser un select case dans ce cas ?
Function Trimestre(dDate As Date) As String
Select Case Month(dDate)
Case Is < 4: Trimestre = "T1 "
Case Is < 7: Trimestre = "T2 "
Case Is < 10: Trimestre = "T3 "
Case Else: Trimestre = "T4 "
End Select
Trimestre = Trimestre & Year(dDate)
End Function
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/
gregb <gregb@challengecommunication.com> a écrit :
Bonjour,
Fait une fonction en VBA.. !!
Function Trimestre(ddate)
If Month(ddate) < 4 Then
Trimestre = "T1 " & Year(ddate)
Exit Function
End If
If Month(ddate) < 7 Then
Trimestre = "T2 " & Year(ddate)
Exit Function
End If
If Month(ddate) < 10 Then
Trimestre = "T3 " & Year(ddate)
Exit Function
End If
Trimestre = "T4 " & Year(ddate)
End Function
Tu la retrouveras dans coller une fonction fonction personnalisée
Bon courage
Greg
"chesterfield" <victor.stephane@club-internet.fr> wrote in message
news:40dc4c65$0$317$7a628cd7@news.club-internet.fr...
Bonsoir, je souhaite convertir des dates en trimestre dans 3
cellules (B7, B8 et B11).
Par exemple, 03/2004 = T1 04 (04 étant l'année récupérée dans la
cellule en question et T1 étant le premier trimestre)
autre exemple : 06/2005 = T2 05
Si vous pouvez me mettre le code correspondant, çà serait sympa :o)
Pourquoi ne pas plutot utiliser un select case dans ce cas ?
Function Trimestre(dDate As Date) As String Select Case Month(dDate) Case Is < 4: Trimestre = "T1 " Case Is < 7: Trimestre = "T2 " Case Is < 10: Trimestre = "T3 " Case Else: Trimestre = "T4 " End Select Trimestre = Trimestre & Year(dDate) End Function
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/ http://apisvb.europe.webmatrixhosting.net/
gregb a écrit :
Bonjour,
Fait une fonction en VBA.. !!
Function Trimestre(ddate) If Month(ddate) < 4 Then Trimestre = "T1 " & Year(ddate) Exit Function End If If Month(ddate) < 7 Then Trimestre = "T2 " & Year(ddate) Exit Function End If If Month(ddate) < 10 Then Trimestre = "T3 " & Year(ddate) Exit Function End If Trimestre = "T4 " & Year(ddate) End Function
Tu la retrouveras dans coller une fonction fonction personnalisée
Bon courage
Greg
"chesterfield" wrote in message news:40dc4c65$0$317$
Bonsoir, je souhaite convertir des dates en trimestre dans 3 cellules (B7, B8 et B11).
Par exemple, 03/2004 = T1 04 (04 étant l'année récupérée dans la cellule en question et T1 étant le premier trimestre)
autre exemple : 06/2005 = T2 05
Si vous pouvez me mettre le code correspondant, çà serait sympa :o)
Merci d'avance.
gregb
Oui aussi !! mais hélas pas habituer de l'utiliser !! :-)
"ng" wrote in message news:uUq%
Salut,
Pourquoi ne pas plutot utiliser un select case dans ce cas ?
Function Trimestre(dDate As Date) As String Select Case Month(dDate) Case Is < 4: Trimestre = "T1 " Case Is < 7: Trimestre = "T2 " Case Is < 10: Trimestre = "T3 " Case Else: Trimestre = "T4 " End Select Trimestre = Trimestre & Year(dDate) End Function
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/ http://apisvb.europe.webmatrixhosting.net/
gregb a écrit :
> Bonjour, > > Fait une fonction en VBA.. !! > > Function Trimestre(ddate) > If Month(ddate) < 4 Then > Trimestre = "T1 " & Year(ddate) > Exit Function > End If > If Month(ddate) < 7 Then > Trimestre = "T2 " & Year(ddate) > Exit Function > End If > If Month(ddate) < 10 Then > Trimestre = "T3 " & Year(ddate) > Exit Function > End If > Trimestre = "T4 " & Year(ddate) > End Function > > Tu la retrouveras dans coller une fonction fonction personnalisée > > Bon courage > > Greg > > > "chesterfield" wrote in message > news:40dc4c65$0$317$ >> Bonsoir, je souhaite convertir des dates en trimestre dans 3 >> cellules (B7, B8 et B11). >> >> Par exemple, 03/2004 = T1 04 (04 étant l'année récupérée dans la >> cellule en question et T1 étant le premier trimestre) >> >> autre exemple : 06/2005 = T2 05 >> >> Si vous pouvez me mettre le code correspondant, çà serait sympa :o) >> >> Merci d'avance.
Oui aussi !!
mais hélas pas habituer de l'utiliser !! :-)
"ng" <ng@ngsoft-fr.com> wrote in message
news:uUq%2379tWEHA.3972@TK2MSFTNGP12.phx.gbl...
Salut,
Pourquoi ne pas plutot utiliser un select case dans ce cas ?
Function Trimestre(dDate As Date) As String
Select Case Month(dDate)
Case Is < 4: Trimestre = "T1 "
Case Is < 7: Trimestre = "T2 "
Case Is < 10: Trimestre = "T3 "
Case Else: Trimestre = "T4 "
End Select
Trimestre = Trimestre & Year(dDate)
End Function
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/
gregb <gregb@challengecommunication.com> a écrit :
> Bonjour,
>
> Fait une fonction en VBA.. !!
>
> Function Trimestre(ddate)
> If Month(ddate) < 4 Then
> Trimestre = "T1 " & Year(ddate)
> Exit Function
> End If
> If Month(ddate) < 7 Then
> Trimestre = "T2 " & Year(ddate)
> Exit Function
> End If
> If Month(ddate) < 10 Then
> Trimestre = "T3 " & Year(ddate)
> Exit Function
> End If
> Trimestre = "T4 " & Year(ddate)
> End Function
>
> Tu la retrouveras dans coller une fonction fonction personnalisée
>
> Bon courage
>
> Greg
>
>
> "chesterfield" <victor.stephane@club-internet.fr> wrote in message
> news:40dc4c65$0$317$7a628cd7@news.club-internet.fr...
>> Bonsoir, je souhaite convertir des dates en trimestre dans 3
>> cellules (B7, B8 et B11).
>>
>> Par exemple, 03/2004 = T1 04 (04 étant l'année récupérée dans la
>> cellule en question et T1 étant le premier trimestre)
>>
>> autre exemple : 06/2005 = T2 05
>>
>> Si vous pouvez me mettre le code correspondant, çà serait sympa :o)
>>
>> Merci d'avance.
Oui aussi !! mais hélas pas habituer de l'utiliser !! :-)
"ng" wrote in message news:uUq%
Salut,
Pourquoi ne pas plutot utiliser un select case dans ce cas ?
Function Trimestre(dDate As Date) As String Select Case Month(dDate) Case Is < 4: Trimestre = "T1 " Case Is < 7: Trimestre = "T2 " Case Is < 10: Trimestre = "T3 " Case Else: Trimestre = "T4 " End Select Trimestre = Trimestre & Year(dDate) End Function
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/ http://apisvb.europe.webmatrixhosting.net/
gregb a écrit :
> Bonjour, > > Fait une fonction en VBA.. !! > > Function Trimestre(ddate) > If Month(ddate) < 4 Then > Trimestre = "T1 " & Year(ddate) > Exit Function > End If > If Month(ddate) < 7 Then > Trimestre = "T2 " & Year(ddate) > Exit Function > End If > If Month(ddate) < 10 Then > Trimestre = "T3 " & Year(ddate) > Exit Function > End If > Trimestre = "T4 " & Year(ddate) > End Function > > Tu la retrouveras dans coller une fonction fonction personnalisée > > Bon courage > > Greg > > > "chesterfield" wrote in message > news:40dc4c65$0$317$ >> Bonsoir, je souhaite convertir des dates en trimestre dans 3 >> cellules (B7, B8 et B11). >> >> Par exemple, 03/2004 = T1 04 (04 étant l'année récupérée dans la >> cellule en question et T1 étant le premier trimestre) >> >> autre exemple : 06/2005 = T2 05 >> >> Si vous pouvez me mettre le code correspondant, çà serait sympa :o) >> >> Merci d'avance.
François Picalausa
Hello,
Pourquoi ne pas diviser comme je l'avais fait (lire lamentablement raté) dans ma première tentative?
Trimestre = "T" & Cstr((Month(dDate)-1)3+1) Ce qui peut être fait en excel directement par (si je ne me trompe pas): =CONCATENER("T"; (ENT((MOIS(B7)-1)/3)+1); " "; ANNEE(B7))
-- François Picalausa (MVP VB) http://faq.vb.free.fr --- http://msdn.microsoft.com http://apisvb.europe.webmatrixhosting.net
"ng" a écrit dans le message de news:uUq%
Salut,
Pourquoi ne pas plutot utiliser un select case dans ce cas ?
Function Trimestre(dDate As Date) As String Select Case Month(dDate) Case Is < 4: Trimestre = "T1 " Case Is < 7: Trimestre = "T2 " Case Is < 10: Trimestre = "T3 " Case Else: Trimestre = "T4 " End Select Trimestre = Trimestre & Year(dDate) End Function
Bonjour,
Fait une fonction en VBA.. !!
Function Trimestre(ddate) If Month(ddate) < 4 Then Trimestre = "T1 " & Year(ddate) Exit Function End If If Month(ddate) < 7 Then Trimestre = "T2 " & Year(ddate) Exit Function End If If Month(ddate) < 10 Then Trimestre = "T3 " & Year(ddate) Exit Function End If Trimestre = "T4 " & Year(ddate) End Function
Tu la retrouveras dans coller une fonction fonction personnalisée
Bon courage
Greg
"chesterfield" wrote in message news:40dc4c65$0$317$
Bonsoir, je souhaite convertir des dates en trimestre dans 3 cellules (B7, B8 et B11).
Par exemple, 03/2004 = T1 04 (04 étant l'année récupérée dans la cellule en question et T1 étant le premier trimestre)
autre exemple : 06/2005 = T2 05
Si vous pouvez me mettre le code correspondant, çà serait sympa :o)
Merci d'avance.
Hello,
Pourquoi ne pas diviser comme je l'avais fait (lire lamentablement raté)
dans ma première tentative?
Trimestre = "T" & Cstr((Month(dDate)-1)3+1)
Ce qui peut être fait en excel directement par (si je ne me trompe pas):
=CONCATENER("T"; (ENT((MOIS(B7)-1)/3)+1); " "; ANNEE(B7))
--
François Picalausa (MVP VB)
http://faq.vb.free.fr --- http://msdn.microsoft.com
http://apisvb.europe.webmatrixhosting.net
"ng" <ng@ngsoft-fr.com> a écrit dans le message de
news:uUq%2379tWEHA.3972@TK2MSFTNGP12.phx.gbl
Salut,
Pourquoi ne pas plutot utiliser un select case dans ce cas ?
Function Trimestre(dDate As Date) As String
Select Case Month(dDate)
Case Is < 4: Trimestre = "T1 "
Case Is < 7: Trimestre = "T2 "
Case Is < 10: Trimestre = "T3 "
Case Else: Trimestre = "T4 "
End Select
Trimestre = Trimestre & Year(dDate)
End Function
Bonjour,
Fait une fonction en VBA.. !!
Function Trimestre(ddate)
If Month(ddate) < 4 Then
Trimestre = "T1 " & Year(ddate)
Exit Function
End If
If Month(ddate) < 7 Then
Trimestre = "T2 " & Year(ddate)
Exit Function
End If
If Month(ddate) < 10 Then
Trimestre = "T3 " & Year(ddate)
Exit Function
End If
Trimestre = "T4 " & Year(ddate)
End Function
Tu la retrouveras dans coller une fonction fonction personnalisée
Bon courage
Greg
"chesterfield" <victor.stephane@club-internet.fr> wrote in message
news:40dc4c65$0$317$7a628cd7@news.club-internet.fr...
Bonsoir, je souhaite convertir des dates en trimestre dans 3
cellules (B7, B8 et B11).
Par exemple, 03/2004 = T1 04 (04 étant l'année récupérée dans la
cellule en question et T1 étant le premier trimestre)
autre exemple : 06/2005 = T2 05
Si vous pouvez me mettre le code correspondant, çà serait sympa :o)
Pourquoi ne pas diviser comme je l'avais fait (lire lamentablement raté) dans ma première tentative?
Trimestre = "T" & Cstr((Month(dDate)-1)3+1) Ce qui peut être fait en excel directement par (si je ne me trompe pas): =CONCATENER("T"; (ENT((MOIS(B7)-1)/3)+1); " "; ANNEE(B7))
-- François Picalausa (MVP VB) http://faq.vb.free.fr --- http://msdn.microsoft.com http://apisvb.europe.webmatrixhosting.net
"ng" a écrit dans le message de news:uUq%
Salut,
Pourquoi ne pas plutot utiliser un select case dans ce cas ?
Function Trimestre(dDate As Date) As String Select Case Month(dDate) Case Is < 4: Trimestre = "T1 " Case Is < 7: Trimestre = "T2 " Case Is < 10: Trimestre = "T3 " Case Else: Trimestre = "T4 " End Select Trimestre = Trimestre & Year(dDate) End Function
Bonjour,
Fait une fonction en VBA.. !!
Function Trimestre(ddate) If Month(ddate) < 4 Then Trimestre = "T1 " & Year(ddate) Exit Function End If If Month(ddate) < 7 Then Trimestre = "T2 " & Year(ddate) Exit Function End If If Month(ddate) < 10 Then Trimestre = "T3 " & Year(ddate) Exit Function End If Trimestre = "T4 " & Year(ddate) End Function
Tu la retrouveras dans coller une fonction fonction personnalisée
Bon courage
Greg
"chesterfield" wrote in message news:40dc4c65$0$317$
Bonsoir, je souhaite convertir des dates en trimestre dans 3 cellules (B7, B8 et B11).
Par exemple, 03/2004 = T1 04 (04 étant l'année récupérée dans la cellule en question et T1 étant le premier trimestre)
autre exemple : 06/2005 = T2 05
Si vous pouvez me mettre le code correspondant, çà serait sympa :o)
