Discussion :

[BF0509]

Bonsoir,
Je demande de l'aide car je suis un débutant total en vba et j'ai un soucis dans mon programme.
En effet, je cherche à afficher dans des textbox le résultat d'une recherche d'un mot dans une plage de valeur pour en afficher toutes les lignes correspondantes.
Je ne trouve pas le moyen de boucler un certain nombre de fois selon l'occurence de mot trouver ainsi que l'affichage des lignes sans effacer le contenu des textbox precedemment rempli.
Merci d'avance pour votre aide et voici mon code

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
Private Sub CommandButton1_Click()
 
        Set cellule = Range("A2", [B65000].End(xlUp)).Find(UserForm1.TextBox1.Text)
 
        If cellule Is Nothing Then
 
            MsgBox "carte non trouvée"
            UserForm1.TextBox1 = Empty
 
        Else
 
            Do While 'valeur trouvée et que plage pas scrutée dans son ensemble
 
                cellule.Activate
                ligne = ActiveCell.Row
 
                UserForm2.TextBox1 = Cells(ligne, 1).Value & vbCrLf
                UserForm2.TextBox2 = Cells(ligne, 2).Value & vbCrLf
                UserForm2.TextBox3 = Cells(ligne, 3).Value & vbCrLf
                UserForm2.TextBox4 = Cells(ligne, 4).Value & vbCrLf
                UserForm2.TextBox5 = Cells(ligne, 5).Value & " € " & vbCrLf
                UserForm2.TextBox6 = Cells(ligne, 6).Value & vbCrLf
                UserForm2.TextBox7 = Cells(ligne, 7).Value & " € " & vbCrLf
 
                UserForm1.Hide
                UserForm2.Show
 
                Set cellule = Range("A2", [B65000].End(xlUp)).FindNext(cellule)
 
            Loop
 
        End If
 
End Sub

[fring]

Bonsoir,

Ce que tu essayes de faire est un peu comme un Add Item et cela ne fonctionne pas pour une textbox, tu dois simplement à chaque fois récupérer la valeur de la textbox et y ajouter la ligne.
Essaye ceci

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
35
36
Private Sub CommandButton1_Click()
 
Set cellule = Range("A2", [B65000].End(xlUp)).Find(UserForm1.TextBox1.Text)
 
If cellule Is Nothing Then
 
MsgBox "carte non trouvée"
UserForm1.TextBox1 = Empty
 
Else
 
Do While 'valeur trouvée et que plage pas scrutée dans son ensemble
 
cellule.Activate
ligne = ActiveCell.Row
 
With UserForm2
.TextBox1 = .TextBox1.Value & Chr(10) & Cells(ligne, 1).Value
.TextBox2 = .TextBox2.Value & Chr(10) & Cells(ligne, 2).Value
.TextBox3 = .TextBox3.Value & Chr(10) & Cells(ligne, 3).Value
.TextBox4 = .TextBox4.Value & Chr(10) & Cells(ligne, 4).Value
.TextBox5 = .TextBox5.Value & Chr(10) & Cells(ligne, 5).Value
.TextBox6 = .TextBox6.Value & Chr(10) & Cells(ligne, 6).Value
.TextBox7 = .TextBox7.Value & Chr(10) & Cells(ligne, 7).Value
End With
 
UserForm1.Hide
UserForm2.Show
 
Set cellule = Range("A2", [B65000].End(xlUp)).FindNext(cellule)
 
Loop
 
End If
 
End Sub

[BF0509]

Merci pour ce bout de code, celui-ci me permet d'ajouter les lignes au fur et à mesure mais seulement quand je ferme la fenetre avant de m'en reouvrir une nouvelle,.
Existe t'il une fonction associé qui permettrait d'actualiser la textbox sans passer par un show ?
Et auriez vous une idée pour effectuer une boucle sur toute la sélection et qui permettrait de la stopper une fois toute les occurences trouvée ?
merci d'avance

[fring]

Bon...un peu à l'aveuglette mais ça ne devrait pas être loin

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
Private Sub CommandButton1_Click()
Dim Var(1 To 7), i As Integer, x As Byte, Val As String
 
Val = UserForm1.TextBox1.Text
 
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
    If Cells(i, 1) = Val Or Cells(i, 2) = Val Then
        For x = 1 To 7
            Var(x) = Var(x) & Chr(10) & Cells(i, x)
        Next
    End If
Next
 
For x = 1 To 7
    UserForm2.Controls("TextBox" & x) = Var(x)
Next
 
UserForm1.Hide
UserForm2.Show
 
End Sub

[BF0509]

Il semblerait qu'il n'y ai aucun affichage avec ce code, en effet, les textbox apparaissent vide sinon j'ai eu l'idée de racourcir la plage de recherche au fur et à mesure selon le code suivant mais je n'arrive pas à sortir une fois la dernière valeur atteint ce qui fait qu'elle se repète.
merci de me consacré du temps

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
35
36
37
Private Sub CommandButton1_Click()
 
    Set cellule = Range("A2", [A65000].End(xlUp)).Find(UserForm1.TextBox1.Text)
 
    If cellule Is Nothing Then
 
        MsgBox "carte non trouvée"
        UserForm1.TextBox1 = Empty
 
    Else
 
        UserForm1.Hide
 
        Do While Not (cellule Is Nothing)
 
            cellule.Activate
            ligne = ActiveCell.Row
 
            With UserForm2
                .TextBox1 = .TextBox1.Value & Chr(10) & Cells(ligne, 1).Value
                .TextBox2 = .TextBox2.Value & Chr(10) & Cells(ligne, 2).Value
                .TextBox3 = .TextBox3.Value & Chr(10) & Cells(ligne, 3).Value
                .TextBox4 = .TextBox4.Value & Chr(10) & Cells(ligne, 4).Value
                .TextBox5 = .TextBox5.Value & Chr(10) & Cells(ligne, 5).Value & " € "
                .TextBox6 = .TextBox6.Value & Chr(10) & Cells(ligne, 6).Value
                .TextBox7 = .TextBox7.Value & Chr(10) & Cells(ligne, 7).Value & " € "
            End With
 
            UserForm2.Show
 
            Set cellule = Range(newcellule.Address, [A65000].End(xlUp)).FindNext(cellule)
 
        Loop
 
    End If
 
End Sub

[BF0509]

une erreur sur une des dernieres lignes, ce n'est pas newcellule.address mais :
Set cellule = Range(cellule.Address, [A65000].End(xlUp)).FindNext(cellule)