IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

VBA et formulaire


Sujet :

Macros et VBA Excel

Mode arborescent

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Nouveau candidat au Club
    Femme Profil pro
    Étudiant
    Inscrit en
    Décembre 2019
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Décembre 2019
    Messages : 2
    Par défaut VBA et formulaire
    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"
    Images attachées Images attachées

Discussions similaires

  1. [VBA-E]formulaire VBA ??
    Par plante.douce dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 01/04/2006, 20h24
  2. [VBA-E] formulaire type facture,devis
    Par benco dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 30/03/2006, 21h53
  3. [VBA-E]formulaire dans excel
    Par tarmin dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 20/02/2006, 10h30
  4. [VBA] visibilité formulaire
    Par Fredo02 dans le forum Access
    Réponses: 4
    Dernier message: 05/01/2006, 14h16
  5. Barre de progression VBA pour formulaire Access
    Par beegees dans le forum Access
    Réponses: 1
    Dernier message: 30/10/2005, 12h10

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo