Recherche VBA Fermé

Question

Bonjour, 

Je cherche à trouver une macro dans un range déterminé qui puisse chercher une valeur et me dire si elle la trouve. Puis, si la valeur est trouvée, sélectionner la case et descendre de ligne en ligne jusqu'à trouver une cellule vide.

J'ai pensé à :

Pour la recherche. Selection faisant parti d'un loop balayant toutes les cellules initiales et joueur_equipe étant la valeur à rechercher.
Set Selection = Range("E3:Q3").Find(joueur_equipe, LookAt:=xlWhole)

Ensuite pour cequi est de descendre pour trouver une cellule vide pas de souci. mais c'est la partie recherche de valeur qui me pose problème.

Merci d'avance.

pzyko · Answer

Sans certitudes mais tu peux essayer ce code :

Sub recherche()

Dim col As Integer

For col = 5 To 17
    If InStr(1, Cells(3, col), "joueur_equipe") Then
        Cells(3, col).Select
    End If
Next col

End Sub

pijaku · Answer

Salut,

2 cas :
1- tu es sur de trouver joueur_equipe dans la feuille active :
Dim Col As Integer, Lig As Long
Col = Cells.Find(joueur_equipe).Column
Lig = Columns(Col).Find("*", , , , xlByColumns, xlPrevious).Row + 1
Cells(Lig, Col).Select
2- tu n'es pas sur que joueur_equipe soit dans la feuille : 
Dim MonRange As Range
Set MonRange = Cells.Find(joueur_equipe)
If Not MonRange Is Nothing Then
    MonRange.End(xlDown).Offset(1, 0).Select
Else
    MsgBox "Pas trouvé"
End If

Recherche VBA

2 réponses

Discussions similaires