Partager via


NamedRange.FindNext(Object) Méthode

Définition

public Microsoft.Office.Interop.Excel.Range FindNext (object After);
abstract member FindNext : obj -> Microsoft.Office.Interop.Excel.Range
Public Function FindNext (Optional After As Object) As Range

Paramètres

After
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 qu’il After doit s’agir d’une seule cellule dans le NamedRange contrôle. 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.

Retours

Objet Range qui représente une cellule contenant les informations spécifiées.

Exemples

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

Cet exemple concerne une personnalisation au niveau du document.

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"]);
}
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

Remarques

Recherche la cellule suivante qui correspond aux mêmes conditions que la Find méthode.

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 est encapsulée au début de la plage. Pour arrêter une recherche lorsque ce wraparound se produit, enregistrez l’adresse de la première cellule trouvée, puis testez chaque adresse de cellule trouvée successive par rapport à cette adresse enregistrée.

Paramètres facultatifs

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

S’applique à