Interface de remplissage de classeur (Userform)

Bonjour à tous,

Je travaille sur une tableau de plusieurs milliers de lignes et de quelques dizaines de colonnes sur lequel j'effectue des tries relativement compliqués pour générer des rapports.

La lecture de ce tableau étant peu pratique et son écriture encore plus (j'ai du rajouter des caractère de formatage pour découper des chaînes etc)

Je souhaite créer une interface pour lire les données d'une ligne que je pourrais mettre en forme en retirant le formatage et aussi une interface pour pouvoir écrire une nouvelle ligne et modifier une existante.

Est-ce que je pourrais bien faire ceci avec les userforms ? Quelqu'un aurait-il déja une base pour ce type d'interface (j'imagine que c'est commun et que quelqu'un à déja du se pencher dessus.)

Cordialement,
FanTasTik

Bonjour,

Oui tu peux exploiter le tout avec un userform.

Cependant, pour ton projet, il me semble qu'un TCD est peu être mieux adapté.

Si toutefois tu veux passer par un USF, regarde le controle listview, tu fais une présentation a ta sauce et tu peux y joindre des actions à ta guise.

a+

Bonjour,

Le userform est bien adapté. Si tu as de longues chaînes de caractères, tu as intérêt à mettre le contenu de ces cellules dans textbox qui te permettra de faire du multilignes. Je mets en pièce jointe un petit exemple simple. Le code de l'userform est :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub ComboBox1_Change() Dim Ligne As Integer Ligne = Application.Match(Me.ComboBox1.Value, [BD!A:A], 0) Me.TextBox1.Text = Application.Index([BD!B:B], Ligne) End Sub   Private Sub UserForm_Activate() With Sheets("BD") Me.ComboBox1.RowSource = "BD!" & _ .Range(.[A2], .Cells(.Rows.Count, 1).End(xlUp)).Address End With End Sub

---

@ sdispro

Merci je vais regarder le controle listview

@ Daniel.C

Super, je vais pouvoir regarder ce que ça fait et m'en inspirer.

Je vais commencer à m'attaquer à cette partie du code donc j'ai quelques questions :

- est-il possible de charger le texte dans le userform avec sa mise en forme (exemple certains mots en gras etc...)

- est-il possible de modifier le contenu de la textbox et lors de l'appui sur un bouton, de transférer son contenu dans la cellule du classeur.

- où-puis je trouver les options de mise en forme du userform, par exemple mettre une barre de défilement sur le coté pour les longs texte, mettre des onglets en haut etc...

Merci bien :D

Alors quand j'essaye d'adapter le code de Daniel, j'ai remarqué que si la colonne qui remplie la compobox contient juste des numeros cela fait planter l'USF pour erreur 13 : incompatibilité de type. Je n'arrive pas à comprendre pourquoi. (j'ai essayé de mettre le format de la cellue à texte mais cela ne change rien)

Salut:

Tu as un userform, un textbox et un bouton.

Dans les propriété de ton textbox tu met "multiline" avec "true".
Dans les propriété de ton textbox tu met "scrolbar" avec "vertical".
Qaund tu modifie ton textbox pour l'envoyer en a1, a ton bouton tu ajoute le code :

Code:

---

Range("a1") = TextBox1.Value

---

a+

Citation:

---

Alors quand j'essaye d'adapter le code de Daniel, j'ai remarqué que si la colonne qui remplie la compobox contient juste des numeros cela fait planter l'USF pour erreur 13 : incompatibilité de type. Je n'arrive pas à comprendre pourquoi. (j'ai essayé de mettre le format de la cellue à texte mais cela ne change rien)

---

Si tu as des valeurs numériques, remplace :

Code:

---

Ligne = Application.Match(Me.ComboBox1.Value, [BD!A:A], 0)

---

par :

Code:

---

Ligne = Application.Match(CInt(Me.ComboBox1.Value), [BD!A:A], 0)

---

Si tu mets le format des cellules à "texte", il faut le faire avant de remplir les cellules.

Citation:

---

est-il possible de charger le texte dans le userform avec sa mise en forme (exemple certains mots en gras etc...)

---

Non.

Citation:

---

est-il possible de modifier le contenu de la textbox et lors de l'appui sur un bouton, de transférer son contenu dans la cellule du classeur

---

Oui. ajoute le bouton et modifie le code associé au userform :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Public Ligne As Integer Private Sub ComboBox1_Change() Ligne = Application.Match(CInt(Me.ComboBox1.Value), [BD!A:A], 0) Me.TextBox1.Text = Application.Index([BD!B:B], Ligne) End Sub   Private Sub CommandButton1_Click() Sheets("BD").Cells(Ligne, 2).Value = Me.TextBox1.Text End Sub   Private Sub UserForm_Activate() With Sheets("BD") Me.ComboBox1.RowSource = "BD!" & _ .Range(.[A2], .Cells(.Rows.Count, 1).End(xlUp)).Address End With End Sub

---

Citation:

---

où-puis je trouver les options de mise en forme du userform, par exemple mettre une barre de défilement sur le coté pour les longs texte, mettre des onglets en haut etc...

---

Quand tu affiches le userform dans la fenêtre VB, clique sur le menu "Affichage" et sur "Boîte à outils".

Bonjour FanTasTik,

Citation:

---

Envoyé par FanTasTik

- est-il possible de charger le texte dans le userform avec sa mise en forme (exemple certains mots en gras etc...)

---

Oui, cela est tout à fait possible.
Exemple : pour répliquer la couleur de fond de la cellule A1 sur le Label1

Code:

---

label1.backcolor = range("A1").interior.color

---

Citation:

---

Envoyé par FanTasTik

- est-il possible de modifier le contenu de la textbox et lors de l'appui sur un bouton, de transférer son contenu dans la cellule du classeur.

---

Oui, cela est possible aussi.
Exemple : pour répliquer la valeur de la TextBox1 dans la cellule A1

Code:

---

1 2 3

Private Sub CommandButton1_Click() range("A1").Value = TextBox1.Value End sub

---

Citation:

---

Envoyé par FanTasTik

- où-puis je trouver les options de mise en forme du userform, par exemple mettre une barre de défilement sur le coté pour les longs texte, mettre des onglets en haut etc...

---

Dans l'onglet "développeur", tu bascules sous VBA, puis une fois sous ton Userform, tu cliques sur l'icône "Boite à Outils".

Bertrand

Daniel.C a répondu avant moi :roll:

Et différemment pour ta première question ...

En fait, je parlais du format global de ta cellule - et non du mot à mot.

Bertrand

Super sympa de voir autant de monde prêt à aider si rapidement :)

Donc je teste tout ça et je vous tiens au courant.

Citation:

---

Envoyé par Bear the french

Daniel.C a répondu avant moi :roll:

Et différemment pour ta première question ...

En fait, je parlais du format global de ta cellule - et non du mot à mot.

Bertrand

---

Oui je parlais de mise en forme pour des mots spécifiques. Tant pis ^^