If non respecté MsqgBox

Bonjour à tous !

J'ai une boucle avec condition (si une cellule contient le mot "secondaire" alors faire la boucle). J'aimerais simplement dire a la macro si cette condition n'est pas respectée alors affiche un petit message sympa type "pas de mot secondaire dans ce classeur"

c'est toujours mieux que run time error !

le poblème est que je ne sais pas ou caser mon Else MsgBox "pas de mot secondaire dans ce classeur" j'ai tenté ca mais ce ne marche pas :

For i = ActiveSheet.UsedRange.Row To ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1

For j = ActiveSheet.UsedRange.Column To ActiveSheet.UsedRange.Column + ActiveSheet.UsedRange.Columns.Count - 1

If Cells(i, j) = "Secondaire" Then

Rows(i & ":" & i).Cut

lgn = lgn + 1

Sheets("Secondaire").Select

Range("A" & lgn).Select

ActiveSheet.Paste

Sheets("untilted").Select

Else MsgBox "pas de mot secondaire dans ce classeur"

End If

Next j

Next i

une idée ??

merci !

Bonjour

Une solution

Tu vérifies au début

Sub test()
  If Application.CountIf(Cells, "Secondaire") = 0 Then
    MsgBox "pas de mot secondaire dans ce classeur"
  Else
    For i = ActiveSheet.UsedRange.Row To ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1
      For j = ActiveSheet.UsedRange.Column To ActiveSheet.UsedRange.Column + ActiveSheet.UsedRange.Columns.Count - 1
        If Cells(i, j) = "Secondaire" Then
          Rows(i & ":" & i).Cut
          lgn = lgn + 1
          Sheets("Secondaire").Select
          Range("A" & lgn).Select
          ActiveSheet.Paste
          Sheets("untilted").Select
        End If
      Next j
    Next i
  End If
End Sub

SUPER !!!!

merci beaucoup !