Userform initialisé en fonction de la ligne selectionée

Version imprimable

Bonjour à tous,

J'ai créer un userform avec des checkbox et qui incrémente les cellules de toute une colonne (la colonne X)

Toutefois, j'aimerais que lorsque je doubleclique sur X234 (ou une autre cellule de la colonne X) pour initialiser mon userform, la ligne de la celulle ou j'ai cliquer soit prise en compte et prise pour cible pour les modifications apportées par les checkbox.

Quelqu'un peut-il m'aider?

Voici le code de la feuille :
Code:

1 2 3 4 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column <> 23 Then UserForm1.Show End Sub
Voici le code d'initialisation du userform :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 Private Sub UserForm_Initialize() Dim i As Integer ' Initialise le tableau et la première ligne ReDim tabl(1000) As String ligne = Range("X" & i).Row ' vide la colonne X For i = ligne To Range("X65536").End(xlUp).Row Range("x" & i).Clear Next Label1.Caption = ligne Label3.Caption = Range("g" & ligne).Value Label4.Caption = Range("h" & ligne).Value Label5.Caption = Range("i" & ligne).Value UserForm1.Caption = Range("d" & ligne).Value & " - " & Range("x" & ligne).Value End Sub
Pour vous donner toutes les infos dont vous pourriez avoir besoin, voilà le code en haut du userform :
Code:

1 2 3 4 Option Explicit Dim tabl() As String Dim ligne As Integer
Et celui d'une checkbox :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 Private Sub CheckBox1_Change() Dim i As Integer Dim variable As String Range("X" & ligne).Clear If CheckBox1.Value = True Then tabl(1) = "2339, " Else tabl(1) = "" End If For i = 1 To 1000 variable = variable & tabl(i) Next Range("X" & ligne).Value = variable UserForm1.Caption = Range("d" & ligne).Value & " - " & Range("x" & ligne).Value End Sub
Merci d'avance !
David

04/07/2012, 13h59
jfontaine
Bonjour,

Si c'est la recherche de la ligne qui te pose problème

Code:

ligne = Activecell.Row
Citation:
Code:

1 2 3 4 ' vide la colonne X For i = ligne To Range("X65536").End(xlUp).Row Range("x" & i).Clear Next
Tu vides la colonne ou a partir de la ligne de la cellule double cliquer?

pour vider à partir de la ligne de la cellule en évitant une boucle :P

Code:

Rows(ligne & ":" & Range("X" & Rows.Count).End(xlUp).Row).Clear

NB : pour les lignes, utilises le type de donnée Long plutôt qu'Integer (limité à 32768)
04/07/2012, 14h22
pyronb69
Merci beaucoup c'est éxactement ce que je cherchais !

J'aurais une question supplémentaire à propos de mes checkbox si cela ne te dérange pas :

Étant donné que
-chacune de mes checkbox incrémente une valeur qui lui est propre
-plusieurs checkbox peuvent incrémenter la même cellule

Comment puis-je faire pour qu'à l'ouverture de mon userform, je puisse obtenir que mes checkbox dont les valeurs sont déjà contenues dans la cellule "visée" soient cochées?

J'ai essayer de rajouter ça dans mes codes de checkbox, mais sans succès :
Code:

1 2 3 4 5 If Range("X" & ligne).Value = "2339, " Then CheckBox1.Value = True Else CheckBox1.Value = False End If
Merci !
04/07/2012, 15h52
jfontaine

As tu essayé de mettre ton code dans Initialize

Yep, ça marche pas plus.

Tu veux jeter un coup d’œil à l’ensemble de mon code userform?

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
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
Option Explicit
 
Dim tabl() As String
Dim ligne As Integer
 
 
Private Sub CheckBox1_Change()
Dim i As Integer
Dim variable As String
 
 
Range("X" & ligne).Clear
 
If CheckBox1.Value = True Then
    tabl(1) = "2339, "
Else
    tabl(1) = ""
End If
 
For i = 1 To 1000
    variable = variable & tabl(i)
Next
 
Range("X" & ligne).Value = variable
 
UserForm1.Caption = Range("d" & ligne).Value & " - " & Range("x" & ligne).Value
 
End Sub
 
Private Sub CheckBox2_Change()
Dim i As Integer
Dim variable As String
 
Range("X" & ligne).Clear
 
If CheckBox2.Value = True Then
    tabl(2) = "2340, "
Else
    tabl(2) = ""
End If
 
For i = 1 To 1000
    variable = variable & tabl(i)
Next
 
Range("X" & ligne).Value = variable
 
UserForm1.Caption = Range("d" & ligne).Value & " - " & Range("x" & ligne).Value
 
End Sub
 
Private Sub Label1_Click()
Label1.Caption = ligne
 
End Sub
 
Private Sub Label2_Click()
 
End Sub
 
Private Sub Label3_Click()
 
End Sub
 
Private Sub Label4_Click()
 
End Sub
 
Private Sub passeralaligne_Click()
 
' incrémente la ligne
ligne = ligne + 1
 
' vide le tableau
ReDim tabl(1000) As String
 
' vide l'ensemble des CheckBox
Dim nouveau As Control
For Each nouveau In Controls
   Select Case TypeName(nouveau)
   Case "CheckBox":
      nouveau.Value = False
   End Select
 
Label1.Caption = ligne
 
Next
 
Label3.Caption = Range("g" & ligne).Value
 
Label4.Caption = Range("h" & ligne).Value
 
Label5.Caption = Range("i" & ligne).Value
 
UserForm1.Caption = Range("d" & ligne).Value & " - " & Range("x" & ligne).Value
 
End Sub
 
Private Sub remonterlaligne_Click()
 
 
' incrémente la ligne
ligne = ligne - 1
 
' vide le tableau
ReDim tabl(1000) As String
 
' vide l'ensemble des CheckBox
Dim nouveau As Control
For Each nouveau In Controls
   Select Case TypeName(nouveau)
   Case "CheckBox":
      nouveau.Value = False
   End Select
 
Label1.Caption = ligne
 
Next
 
Label3.Caption = Range("g" & ligne).Value
 
Label4.Caption = Range("h" & ligne).Value
 
Label5.Caption = Range("i" & ligne).Value
 
UserForm1.Caption = Range("d" & ligne).Value & " - " & Range("x" & ligne).Value
 
End Sub
 
Private Sub sortie_Click()
 
' ferme le formulaire
Unload UserForm1
 
End Sub
 
 
 
Private Sub UserForm_Initialize()
Dim i As Integer
 
' Initialise le tableau et la première ligne
ReDim tabl(1000) As String
ligne = ActiveCell.Row
 
Label1.Caption = ligne
 
Label3.Caption = Range("g" & ligne).Value
 
Label4.Caption = Range("h" & ligne).Value
 
Label5.Caption = Range("i" & ligne).Value
 
UserForm1.Caption = Range("d" & ligne).Value & " - " & Range("x" & ligne).Value
 
End Sub

Merci !