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 :

Relier un UserForm à une liste Excel


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Femme Profil pro
    Étudiant
    Inscrit en
    Février 2015
    Messages
    113
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : Maroc

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Février 2015
    Messages : 113
    Par défaut Relier un UserForm à une liste Excel
    Bonjour tout le monde ,

    SVP j'ai un problème et je ne sais pas comment le résoudre :

    J'ai un Userform qui contient des critères à vérifier et une feuille Excel qui contient les mêmes critères

    J'ai trois états des critèes à vérifier :-Oui -Non -NA(Non Appliqué)


    Ce que je veux c'est que lorsque l'utilisateur clique sur l'une des trois , la case correspondante dans la feuille Excel à la question répondue se remplit automatiquement avec un "X"
    J'ai pensé à utiliser des OptionButton mais le problème c'est que l'utilisateur peut cocher Oui, puis il se rend compte qu'il a tort il fallait cocher Non puis il revient à cocher Non ou bien NA , et donc on se retrouve avec des X remplies partout dans la feuille excel alors que je veux à chaque fois qu'il change le X dans la case de la feuille Excel change avec lui .

    Je ne sais pas si c'est faisable ou non ?
    Et comment je dois réailser cette fonction
    Merci d'avance
    Images attachées Images attachées  

  2. #2
    Membre émérite
    Homme Profil pro
    Programmeur analyste
    Inscrit en
    Février 2009
    Messages
    546
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 54
    Localisation : Canada

    Informations professionnelles :
    Activité : Programmeur analyste
    Secteur : Industrie

    Informations forums :
    Inscription : Février 2009
    Messages : 546
    Par défaut
    Bonjour,
    voilà
    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
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    Private Sub OptionButton1_Click()
     
        Cells(5, 2) = "X"
        Cells(5, 3) = ""
        Cells(5, 4) = ""
     
    End Sub
     
    Private Sub OptionButton2_Click()
     
        Cells(5, 2) = ""
        Cells(5, 3) = "X"
        Cells(5, 4) = ""
     
    End Sub
     
    Private Sub OptionButton3_Click()
     
        Cells(5, 2) = ""
        Cells(5, 3) = ""
        Cells(5, 4) = "X"
     
    End Sub
     
    Private Sub OptionButton4_Click()
     
        Cells(6, 2) = "X"
        Cells(6, 3) = ""
        Cells(6, 4) = ""
     
    End Sub
     
    Private Sub OptionButton5_Click()
     
        Cells(6, 2) = ""
        Cells(6, 3) = "X"
        Cells(6, 4) = ""
     
    End Sub
     
    Private Sub OptionButton6_Click()
     
        Cells(6, 2) = ""
        Cells(6, 3) = ""
        Cells(6, 4) = "X"
     
    End Sub
     
    Private Sub OptionButton7_Click()
     
        Cells(7, 2) = "X"
        Cells(7, 3) = ""
        Cells(7, 4) = ""
     
    End Sub
     
    Private Sub OptionButton8_Click()
     
        Cells(7, 2) = ""
        Cells(7, 3) = "X"
        Cells(7, 4) = ""
     
    End Sub
     
    Private Sub OptionButton9_Click()
     
        Cells(7, 2) = ""
        Cells(7, 3) = ""
        Cells(7, 4) = "X"
     
    End Sub

Discussions similaires

  1. Création d'une combobox auto rempli à partir d'une liste excel
    Par kyros21 dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 25/11/2011, 16h46
  2. [XL-2007] envoyer des email via outlook a partir d'une liste excel
    Par kaayna dans le forum Excel
    Réponses: 1
    Dernier message: 10/02/2010, 17h53
  3. Réponses: 0
    Dernier message: 09/02/2010, 11h52
  4. [UserForm] Une liste de données éditable
    Par mpereg dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 13/10/2007, 14h47
  5. Probleme avec une liste excel
    Par casavba dans le forum Excel
    Réponses: 3
    Dernier message: 14/09/2007, 11h23

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