Fonction LIREDONNEESTABCROISDYNAMIQUE KO vs des chaines de caractères quasi identique

[les_sonics]

Bonjour,
mon LIREDONNEESTABCROISDYNAMIQUE bute devant 2 champs dont les chaines de caarctères commencent de manière comparables :
. "Repas 1er âge"
. "Repas 2ème âge"

La fonction me ramène donc un N/A au lieu de me ramener la valeur correspondant à "Repas 1er âge" puis en dessous la valeur correspondant "Repas 2ème âge"

Quelqu'un peut-il m'aider svp ?
Un grand merci par avance
Nicolas

 

[JCGL]

Re : Fonction LIREDONNEESTABCROISDYNAMIQUE KO vs des chaines de caractères quasi iden

Bonjour à tous,

En évitant les espaces dans la base cela fonctionne :

REPAS_1ER_AGE

A+ à tous

 

[les_sonics]

Re : Fonction LIREDONNEESTABCROISDYNAMIQUE KO vs des chaines de caractères quasi iden

Merci infiniment !

 

[les_sonics]

Re : Fonction LIREDONNEESTABCROISDYNAMIQUE KO vs des chaines de caractères quasi iden

Bonjour JC,
que veut dire "Dans l'attente de la balise :

 Code [/highlight ] pour des codes plus agréables à lire" ? Faut-il que je modifie la présentation de mes questions ?

 

[JCGL]

Re : Fonction LIREDONNEESTABCROISDYNAMIQUE KO vs des chaines de caractères quasi iden

Bonjour à tous,

Non pas du tout... Cette mention fait partie de ma signature...

C'est une balise pour rendre plus lisible les codes :

Citation :

Function NumSem(DateJour As Date) As Long 'tototiti2008 sur XLD
'Calcule le numéro de semaine d'une année suivant cette norme :
'la semaine du 1er janvier n'est la semaine 1 que si elle contient au moins 4 jours
'la semaine commence le lundi
Dim PremJanv As Date, PremJanvSuiv As Date, DateSem1 As Date, DateSem1Suiv As Date
PremJanv = DateSerial(Year(DateJour), 1, 1)
PremJanvSuiv = DateSerial(Year(DateJour) + 1, 1, 1)
If Weekday(PremJanv, vbMonday) <= 4 Then
DateSem1 = PremJanv - Weekday(PremJanv, vbMonday) + 1
Else
DateSem1 = PremJanv + 8 - Weekday(PremJanv, vbMonday)
End If
If Weekday(PremJanvSuiv, vbMonday) <= 4 Then
DateSem1Suiv = PremJanvSuiv - Weekday(PremJanvSuiv, vbMonday) + 1
Else
DateSem1Suiv = PremJanvSuiv + 8 - Weekday(PremJanvSuiv, vbMonday)
End If
NumSem = 1 + (DateJour - DateSem1) \ 7
If DateSem1 > DateJour Then
NumSem = NumSem(PremJanv - 1)
ElseIf DateJour >= DateSem1Suiv Then
NumSem = NumSem(PremJanvSuiv)
End If
End Function

Code :

Function NumSem(DateJour As Date) As Long 'tototiti2008 sur XLD
'Calcule le numéro de semaine d'une année suivant cette norme :
'la semaine du 1er janvier n'est la semaine 1 que si elle contient au moins 4 jours
'la semaine commence le lundi
Dim PremJanv As Date, PremJanvSuiv As Date, DateSem1 As Date, DateSem1Suiv As Date
    PremJanv = DateSerial(Year(DateJour), 1, 1)
    PremJanvSuiv = DateSerial(Year(DateJour) + 1, 1, 1)
    If Weekday(PremJanv, vbMonday) <= 4 Then
        DateSem1 = PremJanv - Weekday(PremJanv, vbMonday) + 1
    Else
        DateSem1 = PremJanv + 8 - Weekday(PremJanv, vbMonday)
    End If
    If Weekday(PremJanvSuiv, vbMonday) <= 4 Then
        DateSem1Suiv = PremJanvSuiv - Weekday(PremJanvSuiv, vbMonday) + 1
    Else
        DateSem1Suiv = PremJanvSuiv + 8 - Weekday(PremJanvSuiv, vbMonday)
    End If
    NumSem = 1 + (DateJour - DateSem1) \ 7
    If DateSem1 > DateJour Then
        NumSem = NumSem(PremJanv - 1)
    ElseIf DateJour >= DateSem1Suiv Then
        NumSem = NumSem(PremJanvSuiv)
    End If
End Function

Code HTML

Function NumSem(DateJour As Date) As Long 'tototiti2008 sur XLD
'Calcule le numéro de semaine d'une année suivant cette norme :
'la semaine du 1er janvier n'est la semaine 1 que si elle contient au moins 4 jours
'la semaine commence le lundi
Dim PremJanv As Date, PremJanvSuiv As Date, DateSem1 As Date, DateSem1Suiv As Date
    PremJanv = DateSerial(Year(DateJour), 1, 1)
    PremJanvSuiv = DateSerial(Year(DateJour) + 1, 1, 1)
    If Weekday(PremJanv, vbMonday) <= 4 Then
        DateSem1 = PremJanv - Weekday(PremJanv, vbMonday) + 1
    Else
        DateSem1 = PremJanv + 8 - Weekday(PremJanv, vbMonday)
    End If
    If Weekday(PremJanvSuiv, vbMonday) <= 4 Then
        DateSem1Suiv = PremJanvSuiv - Weekday(PremJanvSuiv, vbMonday) + 1
    Else
        DateSem1Suiv = PremJanvSuiv + 8 - Weekday(PremJanvSuiv, vbMonday)
    End If
    NumSem = 1 + (DateJour - DateSem1) \ 7
    If DateSem1 > DateJour Then
        NumSem = NumSem(PremJanv - 1)
    ElseIf DateJour >= DateSem1Suiv Then
        NumSem = NumSem(PremJanvSuiv)
    End If
End Function

Code PHP

Function NumSem(DateJour As Date) As Long 'tototiti2008 sur XLD
'Calcule le numéro de semaine d'une année suivant cette norme :
'la semaine du 1er janvier n'est la semaine 1 que si elle contient au moins 4 jours
'la semaine commence le lundi
Dim PremJanv As Date, PremJanvSuiv As Date, DateSem1 As Date, DateSem1Suiv As Date
    PremJanv = DateSerial(Year(DateJour), 1, 1)
    PremJanvSuiv = DateSerial(Year(DateJour) + 1, 1, 1)
    If Weekday(PremJanv, vbMonday) <= 4 Then
        DateSem1 = PremJanv - Weekday(PremJanv, vbMonday) + 1
    Else
        DateSem1 = PremJanv + 8 - Weekday(PremJanv, vbMonday)
    End If
    If Weekday(PremJanvSuiv, vbMonday) <= 4 Then
        DateSem1Suiv = PremJanvSuiv - Weekday(PremJanvSuiv, vbMonday) + 1
    Else
        DateSem1Suiv = PremJanvSuiv + 8 - Weekday(PremJanvSuiv, vbMonday)
    End If
    NumSem = 1 + (DateJour - DateSem1) \ 7
    If DateSem1 > DateJour Then
        NumSem = NumSem(PremJanv - 1)
    ElseIf DateJour >= DateSem1Suiv Then
        NumSem = NumSem(PremJanvSuiv)
    End If
End Function

Code HighLight

Function NumSem(DateJour As Date) As Long 'tototiti2008 sur XLD
'Calcule le numéro de semaine d'une année suivant cette norme :
'la semaine du 1er janvier n'est la semaine 1 que si elle contient au moins 4 jours
'la semaine commence le lundi
Dim PremJanv As Date, PremJanvSuiv As Date, DateSem1 As Date, DateSem1Suiv As Date
PremJanv = DateSerial(Year(DateJour), 1, 1)
PremJanvSuiv = DateSerial(Year(DateJour) + 1, 1, 1)
If Weekday(PremJanv, vbMonday) <= 4 Then
DateSem1 = PremJanv - Weekday(PremJanv, vbMonday) + 1
Else
DateSem1 = PremJanv + 8 - Weekday(PremJanv, vbMonday)
End If
If Weekday(PremJanvSuiv, vbMonday) <= 4 Then
DateSem1Suiv = PremJanvSuiv - Weekday(PremJanvSuiv, vbMonday) + 1
Else
DateSem1Suiv = PremJanvSuiv + 8 - Weekday(PremJanvSuiv, vbMonday)
End If
NumSem = 1 + (DateJour - DateSem1) \ 7
If DateSem1 > DateJour Then
NumSem = NumSem(PremJanv - 1)
ElseIf DateJour >= DateSem1Suiv Then
NumSem = NumSem(PremJanvSuiv)
End If
End Function

A+ à tous