Discussion :

[lylyly]

Bonjour,
Débutante sur Vba, j'ai besoin d'aide.
J'ai créé un formulaire que vous pouvez voir en pièce jointe.
J'essaie de le programmer pour qu'en fonction des choix que l'utilisateur fait, il calcule un devis quand je clique sur le bouton effectuer.
Or, il n'arrête pas de m'envoyer des messages d'erreur. J'ai essayé un premier code (voir le pdf) pour lequel il m'écrit erreur de compilation: qualificateur incorrect et au autre pour lequel il m'écrit: "membre de méthode ou de données introuvable".
Pour le 1er code, j'ai déclaré une variable intermédiaire prix qui n'apparaît donc pas dans le formulaire.
Dans le 2eme, je l'enlève et la substitue directement par le nom que porte mon label "prix final" dans lequel doit s'écrire la réponse du prix final.

Autre point, j'essaie de faire disparaître mon combobox 2 si je fais le 1er choix dans le comobobox1 que j'ai appelé service mais mon code ne marche pas…(c'est mon 2eme code en pdf)

Si quelqu'un pourrait m'aider, je lui en serai grandement reconnaissante!
code
"Private Sub userform_initialize()
Dim VarDerLigne As Integer
Dim VarPlage As String
VarDerLigne = Sheets("params").Range("A65536").End(xlUp).Row
VarPlage = Sheets("params").Range("A2:A" & VarDerLigne).Address
service.RowSource = "params!" & VarPlage
service.ColumnHeads = False
service.ListIndex = 0

End Sub
Private Sub service_Change()
If service.Value = Ensilage Then
ComboBox2.Visible = False
End If
End Sub

Private Sub effectuer_Click()
Dim prix As Double
If service.Value = Ensilage Then
If (IsNumeric(hectares.Value)) Then
hectares = CDbl(hectares.Value)
If (hectares < 7 And hectares > 0) Then
If Oui.Value = True Then
If (IsNumeric(remorques.Value)) Then
remorques = CDbl(remorques.Value)
If (remorques < 10) Then
prix = 200 * hectares + (hectares * 30) / 60 * remorques * 50
prixfinal.Caption = CStr(prix)
MsgBox prixfinal.Caption
Else
MsgBox "l'entreprise dispose de 10 remorques maximum"
End If
End If
Else
prix = 200 * hectares
prixfinal.Caption = CStr(prix)
MsgBox prixfinal.Caption
End If
Else
MsgBox "pas pos"
End If
Else
MsgBox "pas num"
End If
End If
End Sub"

[TonyNiort79]

Bonjour et bienvenue,
Bonjour à tous,

il faudrait mettre le code sous les balises (voir en bas à droite de la page), et les images en capture écran comme ci-dessous



ce sera plus facile pour tout le monde

[lylyly]

Je n'ai pas trouvé ce que sont les balises donc je ne sais pas trop comment insérer mes copies d'ecran en dehors du pdf... et je ne peux pas nob plis modifier mon messafe initial.

[MarcelG]

Bonsoir,

Je n'ai pas trouvé ce que sont les balises

- Tu effectues un copier/coller de ta procédure VBA vers la discussion.
- Dans celle-ci, tu en sélectionnes l'intégralité avec ta souris.
- Tu cliques sur le symbole # placé en haut et tout à droite de ton post

Le code devrait être borné par la mention "[CODE]"

Pour contrôle, tu peux activer le bouton de commande placé en bas à droite de ton post "Prévisualisation du message".

Bonne soirée à toi. Bonne soirée au Forum.

[tototiti2008]

Bonjour à tous,

concernant l'erreur, prix est une variable de type Double, elle n'a donc pas de propriété Formula

Essaye de remplacer "prix.Formula" par "prix" (les 2 occurrences)