Recherche VBA
Fermé
Linkmojo
Messages postés
172
Date d'inscription
jeudi 9 juillet 2009
Statut
Membre
Dernière intervention
21 octobre 2023
-
17 juil. 2014 à 13:51
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 17 juil. 2014 à 16:42
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 17 juil. 2014 à 16:42
A voir également:
- Recherche VBA
- Recherche musique - Guide
- Google recherche par image - Guide
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Recherche adresse - Guide
- Recherche par numéro de téléphone ✓ - Forum Mobile
2 réponses
pzyko
Messages postés
34
Date d'inscription
vendredi 27 juin 2014
Statut
Membre
Dernière intervention
8 août 2014
1
17 juil. 2014 à 16:01
17 juil. 2014 à 16:01
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
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
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 743
17 juil. 2014 à 16:42
17 juil. 2014 à 16:42
Salut,
2 cas :
1- tu es sur de trouver joueur_equipe dans la feuille active :
2- tu n'es pas sur que joueur_equipe soit dans la feuille :
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
