Je n'y arrive pas

Bonjour messieurs,

j'essaye d'adapter un bout de code VB pour mes besoin mais je bute sur la fonction "find" ou "search".

Sub Badaboem()

Dim lngRow, lngDestRow, lngMaxRow As Long

Dim bolPrint As Boolean

Sheets("Source").Activate

lngMaxRow = ActiveSheet.UsedRange.Rows.Count

lngDestRow = 1

For lngRow = 1 To lngMaxRow

If Left(Cells(lngRow, 1), 1) = "#" Then

bolPrint = False

lngDestRow = lngDestRow + 1

End If

If Cells.Cells.Find("VSI") = True Then bolPrint = True

If bolPrint = True Then

Sheets("Destination").Cells(lngDestRow, 1) = Cells(lngRow, 1)

lngDestRow = lngDestRow + 1

End If

Next lngRow

Sheets("Destination").Activate

End Sub

en faite, le If Cells.Cells.Find("VSI") = True ne fonctionne pas; je voudrais avoir:

if LA CELLULE CONTIENT "VSI" Then bolPrint = True

... j ai essayer pas mal d astuce mais en faite je ne maitrise pas .... je débute.

ce bout de code fait défiler les cellule de la colonne A d une feuille qui contient des blocks séparés par des "#". chanque fois que la cellulle en dessous d un # contient "VSI", il copie les cellules jusqu'au # suivant.

Merci de bien vouloir m'aider.

Cdt.

Bonjour

A tout hasard remplaces la ligne

    If Cells.Cells.Find("VSI") = True Then bolPrint = True

par

    If InStr(1, Cells(lngRow, 1), "VSI") > 0 Then bolPrint = True

Si pas ça ton fichier serait utile

MERCI MILLE !!! ca fonctionne