Discussion :

[isabelle.sanchez]

bonjour voila je viens sur ce forum car je suis un peu perdue je voudrais créé un tableau en VBA pour m'aider dans mes inventaires.
Étant débutante pas facil , pour créer un user forme c'est pas trop dur.


la suite se complique.
j'aimerais savoir, s'il est possible en tapant le numéro de poste dans le box *recherche du poste*
que toutes les réponses correspondantes s'affichent dans la bonne colonne de mon user forme .
comment faire ?
si je peux imprimer mon user forme en cliquant sur* imprimer *? (comment faire également).
finalement si je peux au moment de lancer mon user forme avoir une option (icône qui apparaît)
qui me laisse le choix entre l'user forme classique et un autre identique, qui se dernier me permettrait ,au travers de l'user forme ,de modifier mon tableau Excel
si je désire modifier certaine donnée.
Voilà j'espère avoir été clair car j'ai un peu de mal avec Excel étant nouvelle dans ce domaine merci d'avance
*ps*:je peu faire parvenir l'original avec le tableau Excel (si vous désirez voir de quoi je parle plus facilement) .

[letudiant68]

Bonjour, c'est tout à fait possible si vous avez les données correspondantes dans une feuille. Un classeur exemple serait le bienvenue pour pouvoir vous aider plus facilement.
Pour l'impression du formulaire voir http://excel.developpez.com/faq/?pag...primerUserForm

[isabelle.sanchez]

merci pour la reponse.
je vais de se pas regarder pour l'impression .
voila le fichier join de mon excel

[letudiant68]

Je viens de regarder votre classeur mais je ne vois pas le "numéro de poste" correspondant à chaque ligne. Est-ce qu'il s'agit du numéro unité centrale?

[isabelle.sanchez]

oui c'est bien cela le numero unité centrale

[letudiant68]

A mettre dans le code du 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
Private Sub TextBox2_AfterUpdate()
 
    Dim c As Range
 
    With Worksheets("Feuil1").Range("A:A")
        Set c = .Find(TextBox2.Value, LookIn:=xlValues)
        If Not c Is Nothing Then
            TextBox14.Value = c
            TextBox1.Value = c.Offset(, 1)
            TextBox10.Value = c.Offset(, 2)
            TextBox13.Value = c.Offset(, 3)
            TextBox12.Value = c.Offset(, 4)
            TextBox11.Value = c.Offset(, 5)
            TextBox4.Value = c.Offset(, 6)
            TextBox5.Value = c.Offset(, 7)
            TextBox6.Value = c.Offset(, 8)
            TextBox7.Value = c.Offset(, 9)
            TextBox9.Value = c.Offset(, 10)
            TextBox3.Value = c.Offset(, 11)
            TextBox8.Value = c.Offset(, 12)
        End If
    End With
 
End Sub

Cette macro devrait fonctionner si l'ordre des colonnes de vos données ne change pas. Adaptez en fonction du nom de la feuille ou colonne si besoin.