NamedRange.FindNext, méthode

Article
01/06/2014

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 FindNext ( _
    After As Object _
) As Range

Range FindNext(
    Object After
)

Paramètres

After
Type : System.Object
Cellule après 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 après 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 après la cellule située dans l'angle supérieur 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 suivante 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 la fin de la plage de recherche spécifiée, elle revient au début 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"].Value2 = "Barnacle";
    this.Range["A2"].Value2 = "Seashell";
    this.Range["A3"].Value2 = "Star Fish";
    this.Range["A4"].Value2 = "Seashell";
    this.Range["A5"].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",
        Excel.XlLookAt.xlWhole, Excel.XlSearchOrder.xlByColumns,
        Microsoft.Office.Interop.Excel.XlSearchDirection.xlNext,
        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.
    Microsoft.Office.Tools.Excel.NamedRange namedRange2 =
        this.Controls.AddNamedRange(Range1, "namedRange2");
    namedRange2.Cut(this.Range["B1"]);
}

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