1 pièce(s) jointe(s)
Afficher la valeur d'une cellule dans un TextBox
Bonjour à tous,
Voilà j'ai un petit problème sous VBA, j'ai créé un formulaire pour automatiser la saisie d'un volume horaire mensuel par projet. En effet, a l'ouverture du formulaire, chaque agent a la possibilité de pointer le nombre d'heure travaillé sur ce projet. Le problème c'est que mon formulaire va alimenter la feuille excel avec toutes les valeurs que l'agent aura saisi SAUF que, si l'agent ne veut modifier que certaine données, il est quand même obligé de recopier toutes les valeurs des cellules excel (correspondant au projet selectionné) dans les TextBox du formulaire.
Pour résoudre ce problème, je voudrais que dès que mon agent sélectionne un projet, il puisse voir le volume horaire déjà sélectionné dans la plage excel pour qu'il puisse (si il y a lieu) fair une mise à jour.
Voici mon code :
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
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
| Public numeroDeProjet As Integer
Private Sub ComboBoxChoixProjet_Change()
' se positionne sur la feuille suivi
Set f = Sheets("Tb suivi Projets + MCO + Act")
' récupère le numéro d'ordre du projet
numeroDeProjet = ComboBoxChoixProjet.ListIndex ' attention la numérotation commence à 0
' remplir les Labels noms des employés
remplirLabelsNoms
End Sub
Private Sub remplirLabelsNoms()
' remplir les des noms des employés en fonction de la saisie du projet
' se positionne sur la feuille suivi
Set f = Sheets("Tb suivi Projets + MCO + Act")
' teste l'ordre du projet sélectionné
If numeroDeProjet >= 0 Then
'recherche la ligne ou on trouve le premier acteur du projet
ligne = (numeroDeProjet * 8) + 3
' la colonne elle est égale à 2
colonne = 2
' range les noms des employés dans les bonnes étiquettes (labels)
' en changeant (incrémentant la ligne de recherche)
For rang = 1 To 6
Controls("LabelActeur" & rang).Caption = f.Cells(ligne, colonne)
ligne = ligne + 1
Next rang
End If
End Sub
'Private Sub remplirtextbox()
'
' ' se positionne sur la feuille suivi
' Set f = Sheets("Tb suivi Projets + MCO + Act")
' ' teste l'ordre du projet sélectionné
' If numeroDeProjet >= 0 Then
' 'recherche la ligne ou on trouve le premier acteur du projet
' ligne = (numeroDeProjet * 8) + 3
'
' For rang = 1 To 6
' Controls("TextBox" & rang).Value = f.Cells(ligne, colonne)
' ligne = ligne + 1
' colonne = colonne + 1
' Next rang
' End If
'
'
'End Sub
Private Sub CommandButtonQuitter_Click()
' se positionne sur la feuille suivi
Set f = Sheets("Tb suivi Projets + MCO + Act")
'Bouton de commande quitter, qui décharge le formulaire quand on clique
Unload Me
End Sub
Sub CommandEnregistrer_Click()
' se positionne sur la feuille suivi
Set f = Sheets("Tb suivi Projets + MCO + Act")
' teste l'ordre du projet sélectionné
If numeroDeProjet >= 0 Then
'initialise les lignes de début et de fin
'en fonction de l'ordre du projet dans le combo
'ligned = 3 puis 11 puis 19 puis 27 ...
'lignef = 8 puis 16 puis 24 puis 32
ligned = (numeroDeProjet * 8) + 3
lignef = ligned + 5
End If
' initialiser les box
boite = 0
' boucle sur les lignes de début à fin
For ligne = ligned To lignef
' boucle sur les colonnes C à N
For colonne = 3 To 14
' change de textbox à chaque tour
boite = boite + 1
' range dans la cellule pointée par la colonne et la ligne
' la valeur de la boite de texte pointée par le numéro de box
f.Cells(ligne, colonne) = Me.Controls("TextBox" & boite).Value
' va à la colonne suivante
Next colonne
' va à la ligne suivante
Next ligne
End Sub
Private Sub UserForm_Activate()
' se positionne sur la feuille suivi
Set f = Sheets("Tb suivi Projets + MCO + Act")
' teste l'ordre du projet sélectionné
If numeroDeProjet >= 0 Then
'recherche la ligne ou on trouve le premier acteur du projet
ligne = (numeroDeProjet * 8) + 3
For rang = 1 To 6
Controls("TextBox" & rang) = Range(f.Cells(ligne, colonne))
ligne = ligne + 1
colonne = colonne + 1
Next rang
End If
End Sub
Private Sub UserForm_Initialize()
' se positionne sur la feuille projet
Set f = Sheets("Projets")
'initialise les variables de projets
numeroDeProjet = -1
'Alimentation de la combobox avec le nom des différents projets
For projet = 2 To 4
ComboBoxChoixProjet.AddItem f.Cells(projet, 1)
Next projet
' se positionne sur la feuille suivi
Set f = Sheets("Tb suivi Projets + MCO + Act")
End Sub |
Le problème c'est que cela ne fonctionne pas, mes TextBox restent vides...
