Discussion :

[walber]

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 :

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
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

[Marc-L]

Bonjour !

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, …

[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

[unparia]

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

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[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