Limiter la recherche Cells.Find
Résolu
Saddoud_walid
Messages postés
43
Statut
Membre
-
Saddoud_walid Messages postés 43 Statut Membre -
Saddoud_walid Messages postés 43 Statut Membre -
Salut a tous
S.V.P. je cherche une solution pour limiter la recherche de la fonction « Cells.Find » dans un tableau et pas dans les autres cellules
Merci d'avance
S.V.P. je cherche une solution pour limiter la recherche de la fonction « Cells.Find » dans un tableau et pas dans les autres cellules
Merci d'avance
A voir également:
- Roxane cherche des informations pour écrire un rapport sur la diversité. avec un moteur de recherche généraliste, elle souhaite limiter les résultats de sa recherche aux pages de l’organisation internationale de la francophonie. quelle requête doit-elle taper dans le champ de recherche ?
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Copiez la ligne qui indique aux moteurs de recherche de ne pas référencer la page. - Forum Réseaux sociaux
- Pourquoi mon moteur de recherche change tout seul ✓ - Forum Google Chrome
- Google moteur de recherche page d'accueil - Guide
- Ne pas indexer les pages dans les moteurs de recherche ✓ - Forum Référencement
1 réponse
Bonjour
un exemple tiré de mon grenier:
recherche les cellules de la zone B2:F9 comportant "AB" dans un mot et y ajoute "coucou"
un exemple tiré de mon grenier:
recherche les cellules de la zone B2:F9 comportant "AB" dans un mot et y ajoute "coucou"
Option Explicit
'---------
Sub modifier_si()
Dim zone As Range, cellule As Range, nbre As Integer
Dim Cptr As Integer
Application.ScreenUpdating = False
Set zone = ActiveSheet.Range("B2:F9")
nbre = Application.CountIf(zone, "*" & "AB" & "*")
With zone
Set cellule = .Find(what:="AB", LookIn:=xlValues)
For Cptr = 1 To nbre
cellule = cellule & " coucou"
Set cellule = .FindNext(cellule)
Next
End With
End Sub
avant je travaille avec ce code
Sub recherche()
Cells.Find(what:=[F3].Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
[f5] = ActiveCell.Offset(0, 1)
End Sub
alors si vous pouvais m'aider avec ce code
et encore merci
et de remplacer cellule par range("F5") et non [F5]
For Cptr = 1 To nbre
range("F5")=cellule.offset(0,1)
....
merci beaucoup pour votre aide