macro VBA avec Offset

[naouah]

Bonjour,

j'ai cette macro pour afficher les resultats en fonction d'une selection. le souci c'est qu'elle m'affiche qu'une resultat en fonction du critere alors que parfois, pour même critere il y 2 ou 3 resultats

Private Sub CommandButton3_Click()

Dim Recherche As Range


Sheets("base").Activate

Set Recherche = Columns("A:A").Find(cmbnom.Text)

resultat = Range(Recherche.Address).Offset(0, 2) & Range(Recherche.Address).Offset(0, 3)
End Sub

 

[Hervé]

Re : macro VBA avec Offset

salut

peut etre un truc dans ce style :

Private Sub CommandButton3_Click()
Dim Recherche As Range
Dim rechercheadresse As String

If cmbnom = "" Then Exit Sub

With Sheets("base").Range("a:a")
    Set Recherche = .Find(cmbnom, LookIn:=xlValues)
        If Not Recherche Is Nothing Then
            rechercheadresse = Recherche.Address
            Do
                resultat = resultat & vbNewLine & Recherche.Offset(0, 2) & Recherche.Offset(0, 3)
                Set Recherche = .FindNext(Recherche)
            Loop While Not Recherche Is Nothing And Not Recherche.Address = rechercheadresse
        MsgBox resultat
        Else: MsgBox "rien du tout"
    End If
End With

End Sub

salut

 

[naouah]

Re : macro VBA avec Offset

Merci pour l'aide.
j'ai juste une derniere demande d'aide:

Private Sub CommandButton3_Click()
Dim Recherche As Range
Dim rechercheadresse As String

If cmbnom = "" Then Exit Sub

With Sheets("base").Range("a:a")
Set Recherche = .Find(cmbnom, LookIn:=xlValues)
If Not Recherche Is Nothing Then
rechercheadresse = Recherche.Address
Do
resultat = resultat & vbNewLine & Recherche.Offset(0, 2) & Recherche.Offset(0, 3)
Set Recherche = .FindNext(Recherche)
Loop While Not Recherche Is Nothing And Not Recherche.Address = rechercheadresse
TextBox1 = resultat
' J'aimerais avoir ligne par ligne
Else: MsgBox "rien du tout"

End If
End With

End Sub