passage de valeur userform par variable

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:

---

Public Val_question As String

---

Dans mon userform j'ai :

Code:

---

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

dans ton userform

Code:

---

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:

---

1 2 3

Sub test() Val_question = UserForm_Nrecep_double.RetourneQuestion End Sub

---

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:

---

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:

---

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:

---

Val_question = UserForm_Nrecep_double.RetourneQuestion

---

ca me renvoie sur

Code:

---

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

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:

---

Val_question = UserForm_Nrecep_double.RetourneQuestion

---

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:

---

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 ?

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:

---

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

Bonjour,

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

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

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é.