Aide avec UserForm

Version imprimable

1 pièce(s) jointe(s)

Aide avec UserForm

Bonjour

Je voudrais adapter ce code lorsque je clique sur la ligne G16 Feuille 01 (MENU)
Il montre les éléments qui ont la grille 02 (BD_Produtos) dans la colonne 2

Code:

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
 
Option Explicit
Private TextoDigitado As String
Private Sub ListBox1_Click()
ActiveCell.Value = ListBox1.Value
Unload Me
End Sub
 
Private Sub TextBox1_Change()
TextoDigitado = TextBox1.Text
Call PreencheLista
End Sub
 
Private Sub UserForm_Initialize()
Call PreencheLista
End Sub
 
Private Sub PreencheLista()
Dim ws As Worksheet
Dim i As Integer
Dim TextoCelula As String
Set ws = ThisWorkbook.Worksheets(2)
i = 1
ListBox1.Clear
With ws
While .Cells(i, 2).Value <> Empty
TextoCelula = .Cells(i, 1).Value
If UCase(Left(TextoCelula, Len(TextoDigitado))) = UCase(TextoDigitado) Then
ListBox1.AddItem .Cells(i, 1)
End If
i = i + 1
Wend
End With
End Sub

16/01/2017, 18h39
Marc-L

Bonjour !

:tagcode: conformément aux règles de ce forum, il y a même une démonstration pour les moins doués !

Et si ce code est en rapport avec le besoin, qu'est-ce qui t'empêche de le modifier ?!

_________________________________________________________________________________________________________
Je suis Paris, Istanbul, Berlin, Nice, Bruxelles, Charlie, …
16/01/2017, 19h51
walber

bonjour

J'ai essayé déjà changer mais seulement réussi à le faire pour afficher les éléments de la colonne 2
cependant ne pas ouvrir quand je clique sur la ligne de G16. Comment puis-je résoudre ce problème
17/01/2017, 07h52
unparia
Bonjour

Citation:

J'ai essayé déjà changer mais seulement réussi à le faire pour afficher les éléments de la colonne 2
cependant ne pas ouvrir quand je clique sur la ligne de G16. Comment puis-je résoudre ce problème

Il est peu aisé de comprendre assurément ce que tu tentes d'exprimer là.
Je ne le comprends que parce que je connais la construction des expressions espagnoles et portugaises.
Je n'ouvre par ailleurs jamais de classeur tiers.
Ton premier problème parait être celui de montrer un userform lorsque tu "cliques" sur la cellule G16
Supposons que ce userform a pour nom UserForm1 :
Ceci, placé dans le module de code de ta feuille "Menu" fera ce que tu souhaites (montrera le userform):
Code:

1 2 3 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$G$16" Then UserForm1.Show End Sub
Attention toutefois : j'espère que la cellule G16 n'est pas fusionnée avec d'autres cellules.
Si tel est le cas, le code est autre !
17/01/2017, 14h01
walber

bonjour
la commande n'a pas fonctionné
et a fusionné le G16 à M16

même en utilisant uniquement la cellule G16 ne fonctionne pas