Checkbox passer des paramètres

Bonjour,

dans un useform j'ai une checkbox et je voudrais que quand elle soit cochée elle modifie une variable et passe ça valeur en paramètre

Mêêêêêêêêêêêêêêe je n'y arrive pas !!!! un p'tit coup de main ?

ci dessous le code de test

Private Sub CheckBoxKa(ByRef ValeurKa As Integer)

If CheckBoxKa.Value <> 0 Then

ValeurKa = 1.5

Else

ValeurKa = 0

End If

End Sub

Private Sub TestCaseCocher_Click()

MsgBox ValeurKa

End Sub

merci d'avance

Bonjour

Tu dois déclarer ta variable en dehors des procédures :

Dim ValeurKa
Private Sub CheckBoxKa_Click()
    If CheckBoxKa.Value <> 0 Then
        ValeurKa = 1.5
    Else
        ValeurKa = 0
    End If
    Exit Sub
End Sub

Bye !

Bonjour gmb

et merci pour ta réponse, mais cela ne fonctionne pas .

quand je clique sur le boutons le message me renvoie la variable vide

ou alors il me manque une info ?

Merci

TaigaLupus a écrit :

cela ne fonctionne pas .

Joins ton fichier et on regardera ça de plus près.

Bye !

c'est le bouton test case à cocher et la première checkbox (Ka)

Merci d'avance

Cordialement

Bonjour

une proposition, si j'ai bien compris, avec modif test checkbox

Cordialement

FINDRH

salut FINDRH et merci

mais je ne vois pas ce que tu as modifié, car si je coche la première checkbox (Ka) et que je clique sur le bouton test case à cocher

le message qui s'affiche et vide car le paramètre ne ce transmet pas !

merci quand même

Bonjour

quand je lance le formulaire et coche la première checkbox un message avec la valeur apparaît sur mon écran avec le fichier que je t'ai envoyé..

pour tester j'ai modifié ce private sub et mis true à la place de différent de 0

Private Sub CheckBoxKa_Click()

If CheckBoxKa = True Then

ValeurKa = 1.5

MsgBox "coché " & ValeurKa

Else

ValeurKa = 0

MsgBox "pas cocher"

End If

Exit Sub

End Sub

Cordialement

FINDRH

re bonjour à tous les deux,

finalement j'ai fini par trouver :

le code du bouton

Sub TestCaseCocher_Click()

Dim ValeurKa As Single

ValeurKa = 0 'La valeur initiale de la variable "ValeurKa" est 0

Test_CheckBoxKa ValeurKa 'appel La sous procédure, qui est lancée avec la variable "ValeurKa" en argument

MsgBox ValeurKa ' affiche la valeur de ValeurKa, (qui plus tard sera un calcul)

End Sub

le code de la "procedure"

Private Sub Test_CheckBoxKa(ByRef ValeurKa As Single) 'Il n'est pas nécessaire de préciser ByRef (puisque par défaut)

'La variable "ValeurKa" est modifiée et passée en paramètre

'(il n'est pas nécessaire de les nommer de façon identique)

If CheckBoxKa = True Then 'test si la CheckBoxKa est cochée

ValeurKa = 1.5 ' si oui la variable ValeurKa prend la valeur 1.5 sinon elle reste à 0

End If

End Sub

en tous cas merci beaucoup du temps que vous m'avez consacré, bonne fin de journée

Bonjour à tous

Un essai à tester.

Bye !

re Bonjour

version a tester avec recup des infos des checkbox renommées

Cordialement

FINDRH