Fonction création
Bonjour,
j'essaie de créer cette fonction mais j'ai un bug et je ne comprends pas d'ou ça vient : en gros je veux que ma multiplication se fait si les 2 optionbotton = true (donc ca sera surface x exploit) sinon je veux un messagebox qui apparait pour que la personne qui utilise l'outil puisse mettre un chiffre)
Function diane(exploit As Integer, surface As Integer)
Dim CI As Worksheet
Dim RC As Worksheet
Set CI = Worksheets("Carte d'identité")
Set RC = Worksheets("Réference CI")
If OptionButton4.Value = True And OptionButton7.Value = True Then
diane = exploit * surface
Else
MsgBox ("Entrez votre chiffre")
End If
End Function
Merci pour votre aide
Bonjour,
Merci de joindre le fichier qui va avec. Une question, que fais-tu les 2 paramètres de la fonction ? Je ne vois pas d'utilisation dans ton
code. Pourquoi alors créer une fonction avec paramètres ?
Pour faire simple je vous ai attacher un fichier dans lequel l'option du choix de la fonction soit claire:
si l'utilisateur répond au 2 cases C3 et C4 par un "non" => d'où le if OptionButton4.Value = True And OptionButton7.Value = True Then
"diane = exploit * surface"
(je veux que le calcul soit fait automatiquement en multipliant 2 autres cellules présentent dans le workbook qui sont bien : le b2 de la feuil1! et le B3feuil!)
sinon je veux qu"un message box s'affiche pour l'utilisateur pour qu'il puisse entrer la valeur dans la cellule C6
Merci