J
jerems
Guest
Bonjour,
Voici ma question:
J'ai 2 onglets: 1 avec une liste d'entreprises et 1 autre avec 1 bouton auquel est donné une macro qui me permet d'aller à une entreprise de la liste que j'au indiqué en A2 dans le deuxième onglet.
Mon problème: je voudrais atteindre cette case mais j'aimerias qu'elle s'affiche en haut de l'écran. Pouvez-vous m'aider?
Cidesous la macro:
Sub Recherche()
Dim motcle As Variant
Dim fin As Integer
Dim liste As Variant
Dim c As Variant
Dim first As Integer
With Sheets(1)
' ______Test si la liste est vide ou non
If .Range('A2').Value = '' Then
MsgBox ('La liste est vide')
End
Else
fin = .Range('A2').End(xlDown).Row
liste = 'A2:A' & fin
End If
End With
With Sheets(2)
motcle = .Range('A2').Value
If motcle = '' Then
MsgBox ('Aucun mot clé n'a été donné')
End
End If
End With
'_____________________________________________________________
With Sheets(1).Range(liste)
Set c = .Find(motcle, LookIn:=xlValues)
If Not c Is Nothing Then
first = c.Row
End If
End With
Sheets(1).Select
Range('a' & first).Select
End Sub
Merci
Voici ma question:
J'ai 2 onglets: 1 avec une liste d'entreprises et 1 autre avec 1 bouton auquel est donné une macro qui me permet d'aller à une entreprise de la liste que j'au indiqué en A2 dans le deuxième onglet.
Mon problème: je voudrais atteindre cette case mais j'aimerias qu'elle s'affiche en haut de l'écran. Pouvez-vous m'aider?
Cidesous la macro:
Sub Recherche()
Dim motcle As Variant
Dim fin As Integer
Dim liste As Variant
Dim c As Variant
Dim first As Integer
With Sheets(1)
' ______Test si la liste est vide ou non
If .Range('A2').Value = '' Then
MsgBox ('La liste est vide')
End
Else
fin = .Range('A2').End(xlDown).Row
liste = 'A2:A' & fin
End If
End With
With Sheets(2)
motcle = .Range('A2').Value
If motcle = '' Then
MsgBox ('Aucun mot clé n'a été donné')
End
End If
End With
'_____________________________________________________________
With Sheets(1).Range(liste)
Set c = .Find(motcle, LookIn:=xlValues)
If Not c Is Nothing Then
first = c.Row
End If
End With
Sheets(1).Select
Range('a' & first).Select
End Sub
Merci