Pb VBA excel

Question

Bonjour,
j'ai un exercice qui consiste à lire un fichier .csv, et à l'enregistrer dans un tableau. J'ai donc crée un type tache et un tableau TTache comme suit:

'======définition des taches
Type tache
    Id_tache As String
    Technicien As String
    Composant As String
    Atelier As String
    Date_debut As Variant
    Date_fin As Variant
    Satellites_concernés() As String
End Type

Public TTache() As tache

j'enregistre ensuite mon fichier dans le tableau, ce qui marche très bien.
C'est ensuite que j'ai un problème:
la colonne date_début (ou date_fin) est remplit d'un "nombre" comme suit:
ex: 110, 1=lundi 10=10h
   318,3=mercredi, 18=18h
Pour que mon programme final ne beug pas, il faut donc que je vérifie que chaque valeur du tableau TTache.Date_début vérifie cela:
1er chiffre compris entre 1 et 5 (car ca va du lundi au vendredi)
2eme et 3eme compris entre 08 et 18 step 2 (8h,10h,12h,14h,16h,18h)

Je ne vois vraiment pas comment faire, si quelqu'un trouve une piste, ca m'aiderais beaucoup!!
merci!!

cs_MPi · Answer

Tu pourrais tecréer une Function dans laquelle tu passes la "date" en paramètre et qui retourne une valeur Booléenne (True/False)

Function VerifDate(Valeur As Variant) As Boolean
    If Left(Valeur, 1) >= 1 And Left(Valeur, 1) <= 5 Then
        Select Case Right(Valeur, 2)
            Case "08", "10", "12", "14", "16", "18"
                VerifDate = True
        End Select
    End If
End Function

Pour l'appeler,
    If VerifDate(TTache.Date_début) Then
        MsgBox "OK"
    Else
        MsgBox "Incorrecte"
    End If

MPi²

bbnoukakakoukou · Answer

merci bocou!ca marche

Pb VBA excel

2 réponses

Votre réponse

Discussions similaires