Discussion :

[willabe]

Bonjour
Comment faire pour sortir de la boucle si le mot recherché ne s y touve pas.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
'recherche texte
   Set fc = Worksheets("Lot").Columns("b").Find(What:="Arriere*")
If fc Is Nothing Then MsgBox " Pas de mot Arriere trouvé dans la colonne b" Else
fc.Select
'decalage 1 en bas
ActiveCell.Offset(1, 0).Select
'insertion ligne
Selection.EntireRow.Insert

[gFZT82]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub Test()
Dim fc As Range
    Set fc = Worksheets("Lot").Columns("B").Find(What:="Arriere", lookat:=xlPart)
    If fc Is Nothing Then
        MsgBox " Pas de mot ""Arriere"" trouvé dans la colonne B"
    Else
        fc.Offset(1, 0).EntireRow.Insert
    End If
End Sub

Cordialement.

[willabe]

Merci pour l'info
a+