Calendrier

bonjour,

Tu peux essayer comme ça :

Private Sub Image2_Click()
Dim i%
'An = Format(Date, "yy")
If IsDate(TextBox1) = False Then
   MsgBox "Date incorrecte.", 16
   TextBox1.SetFocus 'place le curseur dans la TextBox1
   TextBox1.SelStart = 0 'début de la sélection
   TextBox1.SelLength = Len(Me.TextBox1.Value) 'longueur de la sélection
    Exit Sub
End If
dte = CDate(TextBox1)
N°Sem = DatePart("ww", DateSerial(Year(dte), Month(dte), Day(dte)), 2, 2)
'Flag = 0
For Each f In Worksheets
    If f.Name = Format(N°Sem, "00-") & Format(dte, "yy") Then
        Sheets(Format(N°Sem, "00-") & Format(dte, "yy")).Select
i = DateSerial(Year(dte), Month(dte), Day(dte)) - DateSerial(Year([B2]), Month([B2]), Day([B2]))
        Range("h1") = ""
        Range("h1") = TextBox1
        Range(Cells(2, i + 2), Cells(61, i + 2)).Select
        Exit For
            'End
    End If
Next f

'If flag = 0 Then
'        Sheets("Modele").Visible = True
'        Sheets("Modele").Copy After:=Sheets(Sheets.Count)
'        'ActiveSheet.Name = Format(N°Sem, "00-") & An
'        ActiveSheet.Name = Format(N°Sem, "00-") & Format(dte, "yy")
'        Sheets("Modele").Visible = False
'        If Weekday(dte) = 1 Then Range("E1") = CDate(dte) - 6
'        If Weekday(dte) > 1 Then Range("E1") = CDate(dte) - Weekday(CDate(dte)) + 2

Unload Me
End Sub

A+

Re

Ça y es tu as pu ouvrir le fichier?

Je vais tenter d'essayer ce bout de code et je te tiens informé.

Amicalement

Noel


Re,

Oui c'est bon mais comment utiliser un "calendar" à la place de l'USF "ChoixDte" et sélectionner l'année et la date sur le "Calendar" et me donner le même résultat "ChoixDte" C'est possible je pense mais je ne saurai pas comment mettre en place le code pour ça.

Merci de ton aide Amicalement

Noel

"Toussa" est bien compliqué...

De plus pas grand chose ne fonctionne correctement chez moi (problème d'ocx et de dll.

Tu sais déjà que galopin est pas du genre à se fatiguer pour rien !

Je t'ai concocté un truc (très) simplifié...

Supprime ton USF ChoixDate

Ouvre le classeur joint.

Sous VBA (dans l'explorateur de projet) fait glisser les 3 modules et le USF ChoixDte

Func

Main

Classe1

...de mon classeur vers le tien.

YAPUKA tester à partir de ton menu Choix Date...

A+

23pourcfn.xlsm (25.97 Ko)

Re Galopin,

Merci pour tes codes que je comprends pas grand chose dedans. Qui plu est avec le module CLASSE1 dont je suis complètement ignare

C'est extra cela fonctionne comme il se doit.

Je te le revaudrai.

Merci encore pour tout

Amicalement

Noel

Bonjour à tous,

Bonjour Galopin

Voulant m'approfondir un peu plus, je souhaiterai savoir ces quoi ces codes couleurs long que je découvre.

Exp : Case "LUNDI": k = 13037551

Pourrais-tu me donner un lien pour avoir ces codes couleurs

Merci d'avance

amicalement

Noel

bonjour,

Euh... C'est un petit bricolage pour GROZU des palettes... :

Soit tu convertis des valeurs hex que tu as récupérées dans une palette standard des couleurs, soit tu te fais une palette de référence (à partir de la palette VBA p.e.) ou/et tu cliques sur une couleur écran (en cliquant au préalable sur la case à cocher en bas à droite du USF)

A+

Re,

Ok merci pour l'info.

Je vais tester tout ça

Amicalement

Noel

Bonjour,

Une manière très simple de récupérer une valeur de couleur :

Colorer une cellule puis appliquer cette macro :

Sub test()
ActiveCell.Value = ActiveCell.Interior.Color
End Sub

Le classeur joint propose un nuancier.

16nuances.xlsx (12.24 Ko)

Re,

Merci Galopin. J'ai de quoi à m'éclater

@+

Amicalement

Noel

Rechercher des sujets similaires à "calendrier"