Discussion :

[Abdel_koum]

Bonjour à tous,

Avant toutes choses je vous informes que je suis novice, je n'ai que de vagues notions de POO et je découvre le VB c'est pourquoi je suis dans l'obligation de solliciter votre aide bienveillante

Voilà j'ai réalisé un formulaire de saisie sur lequel les utilisateurs doivent répondre à une série de question, en cochant des CheckBox.

J'ai essayé de faire une fonction

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
Function cko(l As Byte, m As Byte, n As Byte, checkbox As Boolean)
 
' Verif si cases cochées
    If Control.Item("checkbox" & l).Value = "" And Control.Item("checkbox" & m).Value = "" Then
    MsgBox "Veuillez remplir les cases pour indiquer votre couleur préférée"
'un choix à préciser dans une TextBox
    ElseIf Control.Item("checkbox" & m).Value = True And Control.Item("textbox" & n).Value = "" Then
    MsgBox "Veuillez préciser votre choix " 
' Si plusieurs cases sont cochées
    ElseIf Control.Item("CheckBox" & l).Value = True And Control.Item("CheckBox" & m).Value = True Then
    MsgBox "Veuillez cocher une seule case"
'Si orange renvoie la valeur O dans excel
    ElseIf Control.Item("CheckBox" & l).Value = True Then
    cko = "O"
'Si bleu renvoie la valeur B dans excel
    ElseIf Control.Item("CheckBox" & m).Value = True Then
    cko = "B"
    End If
 
End Function

Que j'utilise de cette manière

Code :

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

1
2
3
4
5
6
Private Sub CommandButton1_Click()
 
'Les valeurs 1,2 et 5 étant les numéros des CheckBox et de la TextBox (pour la précision)
    Range("f65536").End(xlUp).Offset(1, 0).Value = cko(1, 2, 5)
 
End Sub

J'ai une multitude de question, j'ai donc abandonné l'utilisation de Frame, en effet ces derniers alourdissaient considérablement mon document.

Voilà comme vous pouvez vous en douter, suite à la lecture de mon "code", ça ne marche pas je suis actuellement dans une impasse et je compte sur vous pour m'aider

Merci d'avance

[mayekeul]

bonjour,

essaye ça!

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
 
Function cko(l As Byte, m As Byte, n As Byte) as string
 
' Verif si cases cochées
If not Control.Item("checkbox" & l) And not Control.Item("checkbox" & m) Then
MsgBox "Veuillez remplir les cases pour indiquer votre couleur préférée"
'un choix à préciser dans une TextBox
ElseIf Control.Item("checkbox" & m) And Control.Item("textbox" & n).Value = "" Then
MsgBox "Veuillez préciser votre choix "
' Si plusieurs cases sont cochées
ElseIf Control.Item("CheckBox" & l) And Control.Item("CheckBox" & m) Then
MsgBox "Veuillez cocher une seule case"
'Si orange renvoie la valeur O dans excel
ElseIf Control.Item("CheckBox" & l) Then
cko = "O"
'Si bleu renvoie la valeur B dans excel
ElseIf Control.Item("CheckBox" & m) Then
cko = "B"
End If
 
End Function

[Abdel_koum]

bonjour,
essaye ça!

Tout d'abord merci pour ton aide

J'ai donc essayé mais ça ne marche pas, l'erreur indiquée est :

Argument non facultatif

Sur la ligne de code :

Code :

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

Range("f65536").End(xlUp).Offset(1, 0).Value = cko(1, 2, 5) 

Je pense que je n'ai pas déclaré ou appelé la fonction comme il conviendrait et je ne vois pas comment faire.
J'ai beau lire des tutoriaux je ne trouves pas de solutions.
Je comprends le code mais quand il s'agit de créer mon propre code, associé à des contraintes et des besoins particuliers, je m'y perd

[mayekeul]

j'ai fait un edit du code que j'ai posté avant que tu ne réponde

c'est bien celui là que tu as pris?

[Abdel_koum]

Yep non désolé, par contre ce coup ci ça m'indique :

Objet requis

Et le focus du débogage est sur la ligne :

Code :

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

If Not Control.Item("checkbox" & l) And Not Control.Item("checkbox" & m) Then

En tous cas c'est cool de m'aider

[mayekeul]

de rien,

est-tu sur que les deux item existe bel et bien.

que tu a donc bien une checkbox l et m?