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 :

Traduction en code vba


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Profil pro
    Inscrit en
    Juin 2009
    Messages
    108
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2009
    Messages : 108
    Par défaut Traduction en code vba
    Bonjour,

    je voudrais le code correspondant au fichier ci-joint en vba Excel ? es-ce possible svp ?

    Je ne sais pas comment faire et avec quel fonction, j'y connais vraiment rien. j'apprends de jour en jour. L'utilisateur aura la possibilité de cocher les cases qu'il veut et 7 cas probable ont été identifiés et dependamment des cases cochées on affiche le userform correspondant.

    Pouvez-vous m'écrire le code correspondant svp ?

    Merci par avance
    Images attachées Images attachées  

  2. #2
    Expert confirmé
    Homme Profil pro
    Inscrit en
    Août 2010
    Messages
    3 453
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Août 2010
    Messages : 3 453
    Par défaut
    Bonsoir,

    Ici, les case à cocher sont des contrôles ActiveX incorporés dans une feuille et se nomment "Chk_3G", "Chk_3GS" et "Chk_4G". Mets ce code dans le module de la feuille où sont placées les cases à cocher et teste :
    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
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
     
    Sub OuvrirForm()
     
        Dim Sel As String
     
        If Chk_3G.Value = True Then Sel = Sel & 1
        If Chk_3GS.Value = True Then Sel = Sel & 2
        If Chk_4G.Value = True Then Sel = Sel & 3
     
        Select Case Sel
     
            Case "123"
                UserForm1.Show
            Case "23"
                UserForm2.Show
            Case "12"
                UserForm3.Show
            Case "1"
                UserForm6.Show
            Case "2"
                UserForm5.Show
            Case "3"
                UserForm4.Show
            Case "13"
                UserForm7.Show
            Case Else
                MsgBox "Vous devez faire un choix !"
     
        End Select
     
    End Sub

    Petite correction, écrire la première ligne de cette façon :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
    If Chk_3G.Value = True Then Sel = 1
    et non :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
    If Chk_3G.Value = True Then Sel = Sel & 1
    Hervé.

  3. #3
    Membre confirmé
    Profil pro
    Inscrit en
    Juin 2009
    Messages
    108
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2009
    Messages : 108
    Par défaut
    Merci



    Par contre des lors que l'utilisateur coche des cases je voudrais que le userform qui s'ouvre soit consultable et modifiable ultérieurement dans un bouton sans cette fois ci passer par les case a cocher.

    Avez vous une idée ?

    Merci par avance.

  4. #4
    Expert confirmé Avatar de casefayere
    Homme Profil pro
    RETRAITE
    Inscrit en
    Décembre 2006
    Messages
    5 138
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 71
    Localisation : France, Ardennes (Champagne Ardenne)

    Informations professionnelles :
    Activité : RETRAITE
    Secteur : Agroalimentaire - Agriculture

    Informations forums :
    Inscription : Décembre 2006
    Messages : 5 138
    Par défaut
    Bonjour,
    D'après ce que je comprends, tu mets la propriété ShowModal de ton USF à false, tu peux ensuite lui ajouter un bouon qui exécutera tes instructions.
    Cordialement,
    Dom
    _____________________________________________
    Vous êtes nouveau ? pour baliser votre code, cliquer sur cet exemple : Anomaly
    pensez à cliquer sur :resolu: si votre problème l'est
    Par contre, il est désagréable de voir une discussion résolue sans message final du demandeur (satisfaction, désarroi, remerciement, conclusion...)

  5. #5
    Membre confirmé
    Profil pro
    Inscrit en
    Juin 2009
    Messages
    108
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2009
    Messages : 108
    Par défaut
    Mais ensuite comment je récupère mon userform correspondant au case cochés dans mon bouton ? quel est le code à écrire ?

    merci

  6. #6
    Expert confirmé Avatar de casefayere
    Homme Profil pro
    RETRAITE
    Inscrit en
    Décembre 2006
    Messages
    5 138
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 71
    Localisation : France, Ardennes (Champagne Ardenne)

    Informations professionnelles :
    Activité : RETRAITE
    Secteur : Agroalimentaire - Agriculture

    Informations forums :
    Inscription : Décembre 2006
    Messages : 5 138
    Par défaut
    j'ai bien écris :
    D'après ce que je comprends, tu mets la propriété...
    Donc là, je ne comprends pas car l'USF ouvert est bien celui que tu as provoqué en cochant tes cases ?
    or tu parles de le récupérer alors qu'avec "ShowModal = false", il est toujours affiché et disponible, là je plane à 15000.....
    Cordialement,
    Dom
    _____________________________________________
    Vous êtes nouveau ? pour baliser votre code, cliquer sur cet exemple : Anomaly
    pensez à cliquer sur :resolu: si votre problème l'est
    Par contre, il est désagréable de voir une discussion résolue sans message final du demandeur (satisfaction, désarroi, remerciement, conclusion...)

Discussions similaires

  1. [Toutes versions] Traduction Code MatLab en code VBA
    Par Srabax9 dans le forum Macros et VBA Excel
    Réponses: 0
    Dernier message: 27/01/2015, 02h24
  2. [XL-2007] Traduction en code VBA
    Par pasterlouis dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 22/08/2013, 12h47
  3. [XL-2010] Traduction en code VBA d'une condition
    Par henrylandes dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 11/06/2011, 20h34
  4. [XL-2003] [FAQ] Traduction de code vba en c++
    Par Piernod dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 25/04/2009, 15h55
  5. Traduction code vba en c++ ?
    Par Piernod dans le forum C++
    Réponses: 1
    Dernier message: 24/04/2009, 16h21

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