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 !