Discussion :

[lolipop65]

Bonjour,

J ai une cellule qui contient des chiffres (jusqu a 7 chiffres differents):chaque chiffre correspond a une jour de la semaine.

1 pour lundi
2 pour mardi
3 pour mercredi
...
etc
(par exemple, si j ai 1234567 cela veut dire tous les jours de la semaine)


J ai besoin de recuperer le contenu de cette cellule puis d en calculer la taille.
Enfin, je dois decouper ce contenu caractere par caractere...

Tout ceci ne m est pas tres familier...
pourriez vous m aider svp ??

merci d avance

[ouskel'n'or]

Tu as essayé quelque chose ? Si ça ne fonctionne pas, montre nous, aie pas de complexe, on a tout vu !
Pour la taille utilise Len -> F1
Pour découper utilises Mid -> F1
Pour lire la cellule

Donnee = Cells(NoLigne, NoColonne).Text

Bonne journée

[lolipop65]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Sub decoupage()

        Dim MyDate As Date
        Dim MyDay(7) As String
        Dim Donnee As String
        
        MyDay(1) = "Monday"
        MyDay(2) = "Tuesday"
        MyDay(3) = "Wednesday"
        MyDay(4) = "Thrusday"
        MyDay(5) = "Friday"
        MyDay(6) = "Saturday"
        MyDay(7) = "Sunday"
               
        Donnee = Cells(24, 22).Text  'Donnee=123457        
            MyLen = Len(Donnee)   'MyLen=6
            
        For i = 1 To MyLen
        
            If Mid(Donnee, i, 1) = "1" Then
                Mid(Donnee, i, 1) = MyDay(1)
            End If
            If Mid(Donnee, i, 1) = "2" Then
                Mid(Donnee, i, 1) = MyDay(2)
            End If
            If Mid(Donnee, i, 1) = "3" Then
                Mid(Donnee, i, 1) = MyDay(3)
            End If
            If Mid(Donnee, i, 1) = "4" Then
                Mid(Donnee, i, 1) = MyDay(4)
            End If
            If Mid(Donnee, i, 1) = "5" Then
                Mid(Donnee, i, 1) = MyDay(5)
            End If
            If Mid(Donnee, i, 1) = "6" Then
                Mid(Donnee, i, 1) = MyDay(6)
            End If
            If Mid(Donnee, i, 1) = "7" Then
                Mid(Donnee, i, 1) = MyDay(7)
            End If
            
        Next i
            
End Sub

J obtient Donnee=MTWTFS...

et je veux une liste
Monday
Tuesday
Wednesday
Thrusday
Friday
Sunday
...

Le but est de comparer la date d aujourd hui avec les donnees de cette cellule...

Merci pour votre aide

[ouskel'n'or]

Déjà, il faut savoir que par défaut, le premier jour de la semaine est le Dimanche. Après, ça coule de source

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
        MyDay(1) = "Sunday"
        MyDay(2) = "Monday"
        MyDay(3) = "Tuesday"
        MyDay(4) = "Wednesday"
        MyDay(5) = "Thrusday"
        MyDay(6) = "Friday"
        MyDay(7) = "Saturday"
        d = Weekday(Now)
        'Donnee = Cells(24, 22).Text  '
        Donnee = 124567
        For i = 1 To Len(Donnee)
            If d = i Then 
                MsgBox MyDay(i)
                exit for 'pas impératif mais comme il est inutile de poursuivre la boucle, j'aime mieux sortir
            endif
        Next

Bon app

PS - Si tu travailles sur une version anglaise d'Excel, ton tableau n'est pas utile.
Tu dis

Re : Corrige Thrusday

[lolipop65]

merci infiniment

est ce que ce code est aussi valide sur Access ???

(desolee pour les fautes d anglais...)

[ouskel'n'or]

Placée dans un module dans VBA-Access, pas de problème.

[lolipop65]

ca me dit que nous sommes "Saturday"...heuuuuuuuuuuu c est bien samedi ca !!!
lol
je cherche....c est le "If d=i" qui pose probleme je pense

[lolipop65]

Et voila la reponse...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
 
Dim MyDay(7) As String
Dim MyMid As String
 
MyDay(1) = "Sunday"
MyDay(2) = "Monday"
MyDay(3) = "Tuesday"
MyDay(4) = "Wednesday"
MyDay(5) = "Thrusday"
MyDay(6) = "Friday"
MyDay(7) = "Saturday"
 
d = Weekday(Now)
'Donnee = Cells(24, 22).Text '
 
Donnee = 124567
 
For i = 1 To Len(Donnee)
MyMid = Mid(Donnee, i, 1)
If d = MyMid Then
MsgBox MyDay(MyMid)
End If
Next i
 
End Sub

[ouskel'n'or]

Tu as modifié le tableau comme je l'ai fait ?

Déjà, il faut savoir que par défaut, le premier jour de la semaine est le Dimanche. Après, ça coule de source

Autant pour moi, corrige ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
            If d = i Then MsgBox MyDay(i)
        Next