macro VBA avec Offset

naouah · 24 Septembre 2009

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é · 24 Septembre 2009

Re : macro VBA avec Offset

salut

peut etre un truc dans ce style :

Code:

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 · 25 Septembre 2009

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

macro VBA avec Offset

naouah

XLDnaute Junior

Hervé

XLDnaute Barbatruc

naouah

XLDnaute Junior

Discussions similaires