Limiter la recherche Cells.Find
Résolu
Saddoud_walid
Messages postés
41
Date d'inscription
Statut
Membre
Dernière intervention
-
Saddoud_walid Messages postés 41 Date d'inscription Statut Membre Dernière intervention -
Saddoud_walid Messages postés 41 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Limiter la recherche Cells.Find
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Rechercher ou entrer l'adresse mm - recherche google - Guide
- Recherche photo - Guide
- Je recherche une chanson - Guide
- 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 ? - Forum Réseaux sociaux
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