Recherche cellule contenant une valeur

Bonjour,

J'ai mis ce que je voudrais dans le fichier excel, mais en gros, je vais trouver à partir de la cellule active, la cellule de sommaire la plus proche (vers le bas) afin de copier une ligne en dessous.

Merci d'avance pour votre aide toujours précieuse.

Sub toto()
ligne = ActiveCell.Row
While ActiveSheet.Cells(ligne, 2) <> "Sommaire"
ligne = ligne + 1
Wend
ActiveSheet.Cells(ligne + 1, 2).Select
End Sub

Bonjour,

je suis débutant sur VBA et sur le forum mais je crois que ce code fonctionne...

Sub cherche_somaire()

Application.ScreenUpdating = False

rowact = ActiveCell.Row
rowtest = rowact

Do While Cells(rowtest, 2) <> "Sommaire"
        rowtest = rowtest + 1
        celoff = celoff + 1
    Loop

Rows(rowact).Copy
Rows(rowtest + 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Application.CutCopyMode = False
Cells(1, 1).Select

End Sub

Bonjour,

Merci à vous deux pour vos réponses. Dans les deux cas,, j'optiens une erreur à la ligne :

Do While Cells(rowtest, 2) <> "Sommaire"

Erreur : Application or object not deffined.

Une idée?

Merci encore.

Vincent

Chez moi cela fonctionne

regarde la page 2 du fichier

Bonjour,

autre possibilité sans boucle, avec .find() :

Dim c As Range, lig As Long
Set c = Range(Cells(ActiveCell.Row, 2), Cells(Rows.Count, 2)).Find("Sommaire", LookIn:=xlValues, lookat:=xlWhole)
If c Is Nothing Then
    lig = 0 ' non trouvé
Else
    lig = c.Row + 1
End If

eric

Bonjour,

Merci à tous pour votre aide. J'ai réussi en combinant vos solutions.

Merci encore.

Vincent