Discussion :

[Stepsbysteps]

Bonjour j'aimerai savoir comment serait ce possible d'afficher une ligne dans un userform par exemple un textbox.
j'ai essayé cela mais ca ne marche pas

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton2_Click()
Sheets(2).Activate
l = ligne_match(TextBox1)
ligne1 = Range("A" & l).Row
 
Rows(ligne1).Select
TextBox6.Value = Row(ligne1).Value
 
 
End Sub

où ma fonction ligne_match est :

Code :

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

1
2
3
4
5
6
7
8
9
Function ligne_match(ByVal critere As Long)
 
i = 2
Do While (Not Sheets(2).Cells(i, 1) = critere)
i = i + 1
Loop
 
ligne_match = i
End Function

il selectionne la bonne ligne mais je suis coincé pour l'afficher dans un userform ou autre

merci d'avance

[jfontaine]

Bonjour,

Tu peux afficher ta ligne dans une listebox multicolonne.
Tu affectes à la propriété RowSource la plage que tu souhaites afficher

Code :

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

Listbox1.RowSource = "Feuil1!A1:A3'

[Theze]

Bonjour,

Tu cherche à avoir le nombre d'occurences de la valeur de ton TextBox1 et récupérer un certain nombre de valeurs situées dans différentes cellules d'une même ligne ?

Je ne suis pas sûr d'avoir compris mais essai ceci pour un début de piste :

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
 
Private Sub CommandButton2_Click()
 
    Dim Texte As String
    Dim I As Integer
    Dim J As Integer
 
    'sur la seconde feuille
    With Worksheets(2)
 
        'défini le nombre d'occurences du critère plus 2
        J = WorksheetFunction.CountIf(.Range("A:A"), "=" & TextBox1.Text) + 2
 
        'récupère les valeurs des cellules en colonnes B à E et situées
        'deux lignes plus basses que le nombre d'occurences en les
        'séparant par un espace
        For I = 2 To 5
 
            Texte = Texte & .Cells(J, I).Value & " "
 
        Next I
 
        'vire l'espace de fin
        Texte = Trim(Texte)
 
    End With
 
    'indique les résultats dans le TextBox 6
    TextBox6.Text = Texte
 
End Sub

Hervé.