Récupérer, calculer et découper une cellule

Version imprimable

22/08/2008, 10h12
lolipop65

Récupérer, calculer et découper une cellule

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
22/08/2008, 10h19
ouskel'n'or

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

Citation:

Donnee = Cells(NoLigne, NoColonne).Text

Bonne journée

Code:

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

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:

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 ;)

22/08/2008, 12h50
lolipop65

merci infiniment

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

(desolee pour les fautes d anglais...:oops:)
22/08/2008, 12h56
ouskel'n'or

Placée dans un module dans VBA-Access, pas de problème.
22/08/2008, 13h18
lolipop65

:mouarf::mouarf:

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

Et voila la reponse...

Code:

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

22/08/2008, 13h39
ouskel'n'or
Tu as modifié le tableau comme je l'ai fait ?

Citation:

Envoyé par ousk'... il a dit

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, :oops: corrige ça
Code:

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