NamedRange.FindPrevious, méthode

Article
08/10/2011

Continue une recherche commencée avec la méthode Find.

Espace de noms : Microsoft.Office.Tools.Excel
Assembly : Microsoft.Office.Tools.Excel (dans Microsoft.Office.Tools.Excel.dll)

Syntaxe

'Déclaration
Function FindPrevious ( _
    After As Object _
) As Range

Range FindPrevious(
    Object After
)

Paramètres

After
Type : System.Object
Cellule avant laquelle démarrer la recherche.Cela correspond à la position de la cellule active lorsqu'une recherche est effectuée à partir de l'interface utilisateur.Notez que After doit être une cellule unique du contrôle NamedRange.Souvenez-vous que la recherche commence avant cette cellule ; la cellule spécifiée ne fait pas l'objet d'une recherche tant que la méthode n'est pas revenue à cette cellule.Si cet argument n'est pas spécifié, la recherche démarre avant la cellule supérieure gauche du contrôle NamedRange.

Valeur de retour

Type : Microsoft.Office.Interop.Excel.Range
Objet Microsoft.Office.Interop.Excel.Range qui représente une cellule contenant les informations spécifiées.

Notes

Recherche la cellule précédente qui correspond aux mêmes critères que la méthode Find.

Cette méthode n'affecte pas la sélection ou la cellule active.

Lorsque la recherche atteint le début de la plage de recherche spécifiée, elle revient à la fin de la plage. Pour arrêter une recherche lorsqu'elle revient au début, enregistrez l'adresse de la première cellule trouvée, puis comparez chaque adresse de cellule consécutive trouvée à cette adresse enregistrée.

Paramètres optionnels

Pour plus d'informations sur les paramètres optionnels, consultez Paramètres optionnels dans les solutions Office.

Exemples

L'exemple de code suivant utilise la méthode Find pour rechercher la première cellule contenant la valeur Seashell dans un contrôle NamedRange. L'exemple utilise ensuite les méthodes FindNext et FindPrevious pour rechercher la cellule suivante contenant la valeur Seashell puis retourner à la cellule d'origine. Enfin, il utilise la méthode Cut pour couper le contenu de la première cellule contenant la valeur Seashell et le coller dans la cellule B1.

Cet exemple illustre une personnalisation au niveau du document.

    Private Sub FindValue()
        Me.Range("A1").Value2 = "Barnacle"
        Me.Range("A2").Value2 = "Seashell"
        Me.Range("A3").Value2 = "Star Fish"
        Me.Range("A4").Value2 = "Seashell"
        Me.Range("A5").Value2 = "Clam Shell"

        Dim namedRange1 As Microsoft.Office.Tools.Excel.NamedRange _
            = Me.Controls.AddNamedRange(Me.Range("A1", "A5"), _
            "namedRange1")

        ' Find the first occurrence of "Seashell".
        Dim Range1 As Excel.Range = namedRange1.Find("Seashell", , , _
            Excel.XlLookAt.xlWhole, Excel.XlSearchOrder.xlByColumns, _
            Microsoft.Office.Interop.Excel.XlSearchDirection.xlNext, _
            False, False, )

        ' Find the next occurrence of "Seashell".
        Range1 = namedRange1.FindNext(Range1)

        ' Return to the first occurrence of "Seashell".
        Range1 = namedRange1.FindPrevious(Range1)

        ' Cut the range with the first "Seashell" and copy it to cell B1.
        Dim namedRange2 As Microsoft.Office.Tools.Excel.NamedRange _
            = Me.Controls.AddNamedRange(Range1, "namedRange2")
        namedRange2.Cut(Me.Range("B1"))
    End Sub

private void FindValue()
{
    this.Range["A1", missing].Value2 = "Barnacle";
    this.Range["A2", missing].Value2 = "Seashell";
    this.Range["A3", missing].Value2 = "Star Fish";
    this.Range["A4", missing].Value2 = "Seashell";
    this.Range["A5", missing].Value2 = "Clam Shell";

    Microsoft.Office.Tools.Excel.NamedRange namedRange1 =
        this.Controls.AddNamedRange(this.Range["A1", "A5"],
        "namedRange1");

    // Find the first occurrence of "Seashell".
    Excel.Range Range1 = namedRange1.Find("Seashell", missing, missing,
        Excel.XlLookAt.xlWhole, Excel.XlSearchOrder.xlByColumns,
        Microsoft.Office.Interop.Excel.XlSearchDirection.xlNext,
        false, false, missing);

    // Find the next occurrence of "Seashell".
    Range1 = namedRange1.FindNext(Range1);

    // Return to the first occurrence of "Seashell".
    Range1 = namedRange1.FindPrevious(Range1);

    // Cut the range with the first "Seashell" and copy it to cell B1.
    Microsoft.Office.Tools.Excel.NamedRange namedRange2 =
        this.Controls.AddNamedRange(Range1, "namedRange2");
    namedRange2.Cut(this.Range["B1", missing]);
}

Sécurité .NET Framework

Confiance totale accordée à l'appelant immédiat. Ce membre ne peut pas être utilisé par du code d'un niveau de confiance partiel. Pour plus d'informations, consultez Utilisation de bibliothèques à partir de code d'un niveau de confiance partiel.

Voir aussi

Référence

NamedRange Interface

Microsoft.Office.Tools.Excel, espace de noms

Partager via