UserForm et TextBox

**Arios91270** · 10/09/2013, 22h17

Bonjour ou Bonsoir,

Je suis débutant en VBA.
Et je suis actuellement en train de faire un calendrier avec pour objectif de rentrer des données pour certaines dates au choix.
En pièce jointe je vous transmets mon travail.

Je veux que lorsque j'utilise l'UserForm1 que les données inscrites dans "TextBox_note" et "TexteBox_initiale" restent uniquement pour la cellule où les données sont entrées.

Et que lorsque je change l'année les données restent présentes.

J'ai essayé quelques solution avec "SaveSetting" et j'ai beaucoup chercher mais là je suis à bout.

Je ne sais pas si je suis très clair, j'espère que mon fichier vous sera utile pour m'aider.

Merci d'avance.

**casefayere** · 11/09/2013, 09h15

Bonjour,
ci-dessous, une proposition qui ne prend pas en compte les notes (je ne sais pas ou tu les mets) mais toutes les initiales, à toi d'adapter (ça vaut ce que ça vaut)

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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
Sub generer_calendrier()
Dim tb(), Plg As Range, cel As Range, i As Integer
Dim Cmois, Cjour, Cvaleur, Ccouleur
Set Plg = Range("A3:X33") 'si ta plage reste fixe
i = 0
'ci-desous, un tableau qui reprend toutes les cellules non vide en B, D, E, etc.
'******************************
For Each cel In Plg
  If WorksheetFunction.IsEven(cel.Column) And cel <> "" Then
    i = i + 1: ReDim Preserve tb(1 To i)
    tb(i) = Month(CDate(cel(1, 0))) & "|" & Day(CDate(cel(1, 0))) & "|" & cel & "|" & cel.Interior.Color
  End If
Next cel
'***********************************
'ton programme que je ne touche pas
     'ACCELERATION DU PROGRAMME
     Application.ScreenUpdating = False
 
    'INITIALISATION DU TABLEAU
    Range("A3:X33").ClearContents
    Range("A3:X33").ClearFormats
 
    annee = TextBox_annee
 
    'FORMAT DATE CELLULES
    Range("E25,A:A,C:C,E:E,G:G,I:I,K:K,M:M,O:O,Q:Q,S:S,U:U,W:W").NumberFormat = "ddd dd"
 
    'FORMAT DATE AUJOURD'HUI
    Cells(1, 13).NumberFormat = "[$-F800]dddd, mmmm dd, yyyy"
 
    'Boucle MOIS
    For mois = 1 To 12
 
         'NOMBRES DE JOURS CALCULER DANS LE MOIS
         nb_jours = Day(DateSerial(annee, mois + 1, 1) - 1)
 
         'SAUT DE COLONNES
         colonne = mois * 2 - 1
 
 
        'BOUCLE JOURS
        For jour = 1 To nb_jours
            date_du_jour = DateSerial(annee, mois, jour)
            Cells(jour + 2, colonne) = date_du_jour
 
            'TEST WEEKEND ET COULEURS
            If Weekday(date_du_jour) = 1 Or Weekday(date_du_jour) = 7 Then
                Cells(jour + 2, colonne).Interior.Color = RGB(150, 200, 240)
                Cells(jour + 2, colonne + 1).Interior.Color = RGB(150, 200, 240)
            Else
                Cells(jour + 2, colonne).Interior.Color = RGB(255, 255, 255)
                Cells(jour + 2, colonne + 1).Interior.Color = RGB(255, 255, 255)
            End If
 
 
 
'--------------------------------------BORDURES------------------------------------------------------
 
            'GAUCHES
 
            With Cells(jour + 2, colonne).Borders(xlEdgeBottom)
             .LineStyle = xlContinuous
             .Weight = xlHairline
            End With
 
 
            With Cells(jour + 2, colonne).Borders(xlEdgeRight)
             .LineStyle = xlContinuous
             .Weight = xlHairline
            End With
 
 
            With Cells(jour + 2, colonne).Borders(xlEdgeLeft)
             .LineStyle = xlContinuous
             .Weight = xlThin
            End With
 
            If Weekday(date_du_jour) = 1 Then ' si dimanche
                With Cells(jour + 2, colonne).Borders(xlEdgeBottom)
                        .LineStyle = xlContinuous
                        .Weight = xlMedium
                End With
            Else
                With Cells(jour + 2, colonne).Borders(xlEdgeBottom)
                        .LineStyle = xlContinuous
                        .Weight = xlHairline
                End With
            End If
 
            If jour = nb_jours Then
                  With Cells(jour + 2, colonne).Borders(xlEdgeBottom)
                 .LineStyle = xlContinuous
                 .Weight = xlThin
                 End With
            End If
 
'----------------------------------------------------------------------------------------------------
 
            'DROITE
 
 
            With Cells(jour + 2, colonne + 1).Borders(xlEdgeBottom)
             .LineStyle = xlContinuous
             .Weight = xlHairline
            End With
 
 
            With Cells(jour + 2, colonne + 1).Borders(xlEdgeRight)
             .LineStyle = xlContinuous
             .Weight = xlHairline
            End With
 
 
            With Cells(jour + 2, colonne + 1).Borders(xlEdgeLeft)
             .LineStyle = xlContinuous
             .Weight = xlThin
            End With
 
            If Weekday(date_du_jour) = 1 Then ' si dimanche
                With Cells(jour + 2, colonne + 1).Borders(xlEdgeBottom)
                        .LineStyle = xlContinuous
                        .Weight = xlMedium
                End With
            Else
                With Cells(jour + 2, colonne + 1).Borders(xlEdgeBottom)
                        .LineStyle = xlContinuous
                        .Weight = xlHairline
                End With
            End If
 
            If jour = nb_jours Then
                  With Cells(jour + 2, colonne + 1).Borders(xlEdgeBottom)
                 .LineStyle = xlContinuous
                 .Weight = xlThin
                 End With
            End If
 
            If mois = 12 Or jour > 28 Then
                With Cells(jour + 2, colonne + 1).Borders(xlEdgeRight)
                 .LineStyle = xlContinuous
                 .Weight = xlThin
                End With
            End If
 
'-----------------------------------------------------------------------------------------------------
 
 
        Next
 
  Next
  'ci-dessous, réintégration des données
  '**************************
'i = 1
For i = 1 To UBound(tb)
  Cmois = Split(tb(i), "|")(0): Cjour = Split(tb(i), "|")(1): Cvaleur = Split(tb(i), "|")(2)
  Ccouleur = Split(tb(i), "|")(3)
  For Each cel In Plg
    If WorksheetFunction.IsEven(cel.Column) = False Then
      If Month(CDate(cel)) = Val(Cmois) And Day(CDate(cel)) = Val(Cjour) Then
        cel(1, 2) = Cvaleur: cel(1, 2).Interior.Color = Ccouleur
        'i = i + 1
      End If
    End If
  Next cel
Next i
'***************************************
 
End Sub

**Arios91270** · 11/09/2013, 11h34

Merci M'sieur !

ça marche uniquement pour les initiales effectivement.
Pour les Notes je vais essayer d'adapter ce code pour Textbox_note dans l'UserForm.

Il me faut encore le temps pour que je comprenne vos parties de code.

J'ai commencé il y a 2 semaine et j'ai appris avec les cours et tutoriels Excel : http://excel.developpez.com/cours/

J'ai aussi ceci :
http://livre.fnac.com/a5268663/Frede...et-langage-VBA
Mais en réalité il n'est pas très utile puisque je trouve la plupart des codes sur google.

Par contre j'ai du mal expliquer je voulais que lorsque je change d'année les données inscrites restent sur l'année 2013. Mais ne s'affichent pas en 2014. Et quand je reviens en 2013 les données sont bien présentes.

**casefayere** · 11/09/2013, 11h40

Par contre j'ai du mal expliquer je voulais que lorsque je change d'année les données inscrites restent sur l'année 2013. Mais ne s'affichent pas en 2014. Et quand je reviens en 2013 les données sont bien présentes.

Alors ma proposition aurait été plus simple. Avant de changer ma proposition, j'attends de savoir à ce sujet :

Pour les Notes je vais essayer d'adapter ce code pour Textbox_note dans l'UserForm.

**Arios91270** · 11/09/2013, 11h41

J'ai essayé avec ça :

http://silkyroad.developpez.com/VBA/UserForm/#LV-F

Ça marche mais le problème c'est que le texte présent dans le "Textbox_notes" n'appartient pas à la cellule en question.

**Arios91270** · 11/09/2013, 17h15

Envoyé par Arios91270

Pour les Notes je vais essayer d'adapter ce code pour Textbox_note dans l'UserForm.

J'ai passé ma journée pour tester la solution mais sans succès.

**casefayere** · 11/09/2013, 17h18

Mais qu'est-ce que sont tes notes ?, des commentaires de cellule ? quand je saurai, je regarderai (plus avant ce soir)

**Arios91270** · 11/09/2013, 18h16

Quand je clique sur une cellule un "UserForm1" apparaît.
Je remplis alors les différents champs.
Initiale, Couleurs, et Notes.

Quand je valide la cellule prend alors les valeurs "Interior.color" choisi et affiche l'initiale dans la cellule. Jusque là c'est bon.

Le texte écrit dans la zone note dois rester visible uniquement dans l'userform et doit être présent uniquement dans la cellule choisis.

Je veux que lorsque je re-clique sur cette cellule le texte personnalisé écrit dans le "textbox_note" s'affiche.

**casefayere** · 11/09/2013, 18h35

Le texte écrit dans la zone note dois rester visible uniquement dans l'userform et doit être présent uniquement dans la cellule choisis

Je ne comprends toujours pas, dans la cellule choisie, comme tu dis, il y a déjà les initiales,

**Arios91270** · 11/09/2013, 18h54

Envoyé par casefayere

Je ne comprends toujours pas, dans la cellule choisie, comme tu dis, il y a déjà les initiales,

oui mais ce ne sont que des initiales moi je veux ajouter des détails supplémentaire par le biais de la zone texte.

**casefayere** · 11/09/2013, 19h09

N'as-tu pas aussi court de tout mettre soit dans ton textbox, soit dans ta zone de texte, ça m'a l'air tarabiscoté ton histoire.

UserForm et TextBox

Macros et VBA Excel

Discussions similaires

Partager

Partager