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.

[Invité]

regarde le fichier joint, tu peux ajouter, modifier, supprimer et rechercher les enregistrement de ta base.
avec le ScrollBar tu change d'enregistrement.

[isabelle.sanchez]

franchement merci à vous je suis totalement abasourdie de votre maitrise, super taff merci juste un dernier point .
comment puis-je rajouter un bouton qui lance mon user forme si je le ferme sous excel?
et une autre commande sur mon user forme qui me permet de rajouter de nouvelles lignes d'inventaire dans mon tableau excel?

[Invité]

le user forme se lance à l'ouverture du fichier; si tu modifie du texte il passe en mode modification; si tu te trouve sur la dernière ligne (vierge ScrolBarre tous en bas) et que tu saisie du texte il passe en ajout!

[isabelle.sanchez]

*sautille de joie * merci encore.
je suis toute contente j'aimerais apprendre et surtout comprendre le fonctionnement VBE, ainsi je vous embête plus.
je vais me plonger dans la lecture de ce pas à bientôt

[Invité]

j'ai rajouté un bouton qui permet d'aller directement a la dernière ligne pour un ajout! sous le scrolBarre[*]