Méthode Range.FindPrevious (Excel)
Continue une recherche commencée avec la méthode Find. Elle recherche la cellule précédente qui correspond aux mêmes critères et renvoie un objet Range qui la représente. Ne change ni la sélection ni la cellule active.
Syntaxe
expression.FindPrevious (Before)
expression Variable représentant un objet Range.
Paramètres
| Nom | Requis/Facultatif | Type de données | Description |
|---|---|---|---|
| Before | Facultatif | Variant | Cellule avant laquelle vous souhaitez effectuer la recherche. Cela correspond à la position de la cellule active lorsqu’une recherche est effectuée à partir de l’interface utilisateur. Notez que Before doit être une cellule unique dans la plage. Rappelez-vous que la recherche commence avant cette cellule ; la cellule spécifiée n’est pas incluse dans la recherche tant que la méthode n’englobe pas cette cellule. Si vous ne spécifiez pas cet argument, la recherche commence avant la cellule supérieure gauche de la plage. |
Valeur renvoyée
Plage
Remarques
Lorsque la recherche atteint le début de la plage de recherche spécifiée, elle revient à la fin de cette plage. Pour arrêter une recherche lorsqu’elle recommence au début, enregistrez l’adresse de la première cellule trouvée, puis testez chaque adresse de cellule trouvée successive avec cette adresse enregistrée.
Exemple
Cet exemple montre comment utiliser la méthode FindPrevious avec les méthodes Find et FindNext. Avant d’exécuter cet exemple, vérifiez que la feuille Sheet1 contient au moins deux occurrences du mot Phoenix dans la colonne B.
Sub FindTest()
Dim fc As Range
Set fc = Worksheets("Sheet1").Columns("B").Find(what:="Phoenix")
MsgBox "The first occurrence is in cell " & fc.Address
Set fc = Worksheets("Sheet1").Columns("B").FindNext(after:=fc)
MsgBox "The next occurrence is in cell " & fc.Address
Set fc = Worksheets("Sheet1").Columns("B").FindPrevious(after:=fc)
MsgBox "The previous occurrence is in cell " & fc.Address
End Sub
Assistance et commentaires
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.