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 :

Création d'un userform


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Inscrit en
    Septembre 2007
    Messages
    72
    Détails du profil
    Informations forums :
    Inscription : Septembre 2007
    Messages : 72
    Par défaut Création d'un userform
    Je voudrais créer un userform, jusque là, tout va bien, mais j'ai plusieurs commandbutton qui me posent problémes ! Tout d'abord, qui peut me dire comment je fais pour : j'ai quatres textbox qui doivent etre remplis par quatres cellules d'une ligne de feuille qui est définie avec une recherche par un commandbutton qui s'aide d'un textbox ou on inscrit un trigramme. C'est compliqué comme ça mais j'espére que vous comprendrez mieux avec l'image jointe.
    Images attachées Images attachées  

  2. #2
    Inactif  
    Avatar de ouskel'n'or
    Profil pro
    Inscrit en
    Février 2005
    Messages
    12 464
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2005
    Messages : 12 464
    Par défaut
    Voici toujours quelques indications
    Je suppose que la donnée cherchée se trouve dans la colonne 1 et que les données à afficher sont réparties dans les colonnes 2 à 5
    Dans l'userform, pour chercher la donnée dans la colonne 1 et afficher les données de la ligne correspondante, tu mets ce code dans la feuille de code de l'userform.
    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
    Dim FL1 As Worksheet
     
    Private Sub Recherche_Click()
    Dim MotCherche, Plage As Range, Cell As Range
    MotCherche = Me.TextBox1.Text
    ColonneRecherche = 1 'ou 2 ou 3 ou 4... à adapter
    'On lance la recherche sur la colonne ColonneRecherche
    Set Plage = FL1.Range(Cells(1, ColonneRecherche), _
                Cells(Range("A65536").End(xlUp).Row, ColonneRecherche))
    With Plage
        Set C = .Find(MotCherche, LookIn:=xlValues)
        If Not C Is Nothing Then 'donnée trouvée
                'On place les données de la ligne dans les textbox
                Me.TextBox2.Text = FL1.Cells(C.Row, 2).Value
                Me.TextBox3.Text = FL1.Cells(C.Row, 3).Value
                Me.TextBox4.Text = FL1.Cells(C.Row, 4).Value
                Me.TextBox5.Text = FL1.Cells(C.Row, 5).Value
            Else
                MsgBox "Donnée non trouvée"
        End If
    End With
     
    End Sub
     
    Private Sub UserForm_Initialize()
    Set FL1 = Worksheets("Feuil1") 'instance de la feuille de calculs
    'permet d'utiliser FL1 à la place de Worksheets("Feuil1") partout dans l'userform
     
    End Sub
    Le bouton est ici nommé "Recherche", tu adaptes

    Tu peux éviter de même un bouton si tu mets son code dans l'événement Exit de TextBox1. Quand tu quiteras la saisie du "trigramme", le code s'exécutera.

    Juste pour le principe
    A+

  3. #3
    Membre confirmé
    Inscrit en
    Septembre 2007
    Messages
    72
    Détails du profil
    Informations forums :
    Inscription : Septembre 2007
    Messages : 72
    Par défaut
    Merci beaucoup, franchement t'es trop fort ! J'aurais mis la semaine à trouver ça ! et encore ! Sinon, si tu as le temps, je fais comment pour les autres boutons ? Je vais chercher en attendant ta réponse.
    Par contre, j'ai un autre soucis, ma requete antérieur pose un probléme, disons que je voudrais que ce qu'on tape dans la box en recherche soit une valeur exacte, ne se rapportant qu'à une meme valeur, par ex, si je cherche "nimes", ça doit me donner la ligne de "nimes", et pas une premiére valeur qu'il trouve comme "nimesa". Merci d'avance.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [OL-2010] Création d'un userform par macro
    Par marauth dans le forum VBA Outlook
    Réponses: 3
    Dernier message: 09/04/2015, 15h34
  2. Réponses: 7
    Dernier message: 04/07/2014, 15h55
  3. [XL-2007] Création d'un userform depuis une macro
    Par david_atx dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 17/09/2012, 14h33
  4. Création Macro et Userform
    Par cameleon1970 dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 23/04/2012, 13h58
  5. Création Onglets dans UserForm
    Par clodius46 dans le forum Word
    Réponses: 0
    Dernier message: 03/09/2007, 14h52

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