modif code textbox

[Marc_du_78]

Bonjour le Forum,
Je ne suis pas arrivé à me loguer alors tant pis.

Une grande question pour moi. Que faut-il modifier dans cette partie de code pour que la date saisie dans le TextBox1 se reporte dans la cellule B2 au format date (Ex. Lundi 6) et que la première lettre du jour soit en majuscule si possible.

With WSNew
.Cells(1, 2) = 'Semaine : ' & Format(MyWeek, '00')
.Cells(1, 3) = 'Du ' & Format(MyMonday, 'DDDD DD MMMM') & ' au ' & Format(MyMonday + 6, 'DDDD DD MMMM YYYY')
For i = 0 To 6
.Cells(1, 3).Cells(2, i) = Format(MyMonday, 'DDDD DD')
MyMonday = MyMonday + 1
Next
End With

En vous remerciant de votre aide.

 

[Abel]

Bonjour Marc_du_78, le forum,

Essaie voir ceci :

For i = 0 To 6
MyMonday = Format(MyMonday, 'DDDD DD')
bouzu = UCase(Left(MyMonday, 1)) & Right(MyMonday, Len(MyMonday) - 1)
Cells(1, 3).Cells(2, i) = bouzu
MyMonday = Date + 1
Next


C'est 'synthétisable'.

A+

Abel.

ps : je ne savais pas que cells.cells se comportait comme un offset.

 

[Marc_du_78]

Bonjour Abel, le Forum,

Encore une foix, mauvaise explication de ma part.
Ce que je souhaite c'est pouvoir récupérer la date de la TexBox1 d'un Usf et coller cette date en B2. ne connaissant rien en vb je n'ose trop modifier le code car j'ai besoin de cette partie de code :

With WSNew
.Cells(1, 2) = 'Semaine : ' & Format(MyWeek, '00')
.Cells(1, 3) = 'Du ' & Format(MyMonday, 'DDDD DD MMMM') & ' au ' & Format(MyMonday + 6, 'DDDD DD MMMM YYYY')
For i = 0 To 6
.Cells(2, 2) = CDate(TextBox1.Value)
.Cells(2, 2).Cells(2, i) = Format(MyMonday, 'DDDD DD')
MyMonday = MyMonday + 1
Next
End With
Je pense que c'est seulement le final qui doit être modifié, mais je ne sais comment. De plus toute modifs que j'essaie j'ai un msg d'erreur qui me dit variable non déclarée.

 

[Abel]

Re,

Est-ce quelque chose dans le genre, qu'il te faut ?

Abel. [file name=ExempleMarc_20060207152938.zip size=11403]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ExempleMarc_20060207152938.zip[/file]

 

[Marc_du_78]

Bonsoir Abel,
Très sincèrement, je ne sais pas. J'ai essayé mais sans succès d'où je me suis permis de t'adresser un msg en privé
Merci de ton aide

 

[Abel]

Bonjour le fil, le forum,

Je pense que ce qui est recherché est ceci :

    With WSNew   'à l'Origine
        .Cells(1, 2) = 'Semaine : ' & Format(MyWeek, '00')
        .Cells(1, 3) = 'Du ' & Format(MyMonday, 'DDDD DD MMMM') & ' au ' & Format(MyMonday + 6, 'DDDD DD MMMM YYYY')
        For i = 0 To 6
            .Cells(2, 2).Offset(0, i) = _
                UCase(Left(Format(MyMonday, 'DDDD DD'), 1)) & _
                Right(Format(MyMonday, 'DDDD DD'), Len(Format(MyMonday, 'DDDD DD')) - 1)
            MyMonday = MyMonday + 1
        Next
    End With

Abel.