Discussion :

[sharox]

Bonjour a tous, j'ai un petit problème,

Dans un userform il se passe des truc( inintéressant pour le code)
il y a un Checkbox, et quand la checkbox est validé ca envoie une valeur a une variable et sinon il envoie une autre valeur
et je voudrais récupéré cette valeur mais je ne peux pas et ne sais pas comment y remédier.

Voici mon code:
Dans mon module j'ai :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Public Val_question As String

Dans mon userform j'ai :

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
Private Sub CB_Valid_Click()
 
If CB_remplacer.Value = True Then
Val_question = 1
Else
    If CB_Arreter.Value = True Then
    Val_question = 0
    Else
    Val_question = 2
    End If
End If
 
UserForm_Nrecep_double.Hide
 
End Sub

et quand je retourne dans mon module la variable ne prend pas en compte les changements qu'il y a eu sur ce boue de code

je ne comprend pas

Merci beaucoup

[Invité]

dans ton userform

Code UserForm :

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
Public Function RetourneQuestion() As String
Me.Show vbModal
On Error Resume Next
retourquestion = Trim("" & Me.Tag)
Unload Me
End Function
Private Sub CB_Valid_Click()
 
If CB_remplacer.Value = True Then
Me.Tag = 1
Else
    If CB_Arreter.Value = True Then
    Me.Tag = 0
    Else
    Me.Tag = 2
    End If
End If
 
Me.Hide
 
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub test()
Val_question = UserForm_Nrecep_double.RetourneQuestion
End Sub

[sharox]

Merci beaucoup de ta réponse, dans ton code il y a quelque chose qui ne fonctionne pas.

tout d'abord,

donc dans mon programme je passe d'abord par ici

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
Private Sub CB_Valid_Click()
 
If CB_remplacer.Value = True Then
Me.Tag = 1
Else
    If CB_Arreter.Value = True Then
    Me.Tag = 0
    Else
    Me.Tag = 2
    End If
End If
 
Me.Hide
 
End Sub

Ensuite par la

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Public Function RetourneQuestion() As String
'Me.Show vbModal
On Error Resume Next
retourquestion = Trim("" & Me.Tag)
Unload Me
End Function

Puis je reviens dans mon code module puis quand j'arrive a :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Val_question = UserForm_Nrecep_double.RetourneQuestion

ca me renvoie sur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Public Function RetourneQuestion() As String
'Me.Show vbModal
On Error Resume Next
retourquestion = Trim("" & Me.Tag)
Unload Me
End Function

et ca me réouvre l'userform et a la fin ma valeur na toujours pas bougé..

je fait quelque test mais ce n'est pas concluant pour l'instant

[Invité]

quand tu a modifié ton UserForm cmme je te l'ai indiqué, dan ton programme la seule chose qui t’intéresse, c'est:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Val_question = UserForm_Nrecep_double.RetourneQuestion

[sharox]

Oui je comprend mais quand je passe dessus, ca me renvoie vers la fonction que j'ai mis dans l'userform

En fait je suis débile -_-

pourquoi ne pas faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
If UserForm_Nrecep_double.CB_remplacer.Value = True Then
Val_question = 1
Else
    If UserForm_Nrecep_double.CB_Arreter.Value = True Then
    Val_question = 0
    Else
    Val_question = 2
    End If
End If

Directement dans mon code du module..
pourquoi je veux m'embêter la vie ?

[sharox]

Bonjour, j'ai un dernier petit soucis (enfin j'espère)

Sur internet j'ai regarder comment quand je clic sur une cellule, celle-ci se voit mettre un X dedans( comme si elle était coché)

mais tout les codes que je prend ne servent a rien.. je ne comprend pas pourquoi
voici le code que j'ai pris

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("A8:R8")) Is Nothing Then: Exit Sub
 If ActiveCell = "" Then
 ActiveCell = "X"
 ActiveCell.Font.Bold = True
 With Selection
 .HorizontalAlignment = xlCenter
 .VerticalAlignment = xlCenter
 End With
 Else
 ActiveCell = ""
 End If
End Sub

Merci

[Theze]

Bonjour,

Le code n'est exécuté que quand tu double-clique dans les cellules A8 à R8 :

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
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 
    If Intersect(Target, Range("A8:R8")) Is Nothing Then: Exit Sub '<--adapter ici la zone voulue !
 
    With Target
 
        If .Value = "" Then
 
            .Value = "X"
            .Font.Bold = True
 
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
 
        Else
 
            .Value = ""
            .Font.Bold = False
            .HorizontalAlignment = 1
            .VerticalAlignment = 1
 
        End If
 
    End With
 
End Sub

Hervé.