If non respecté MsqgBox Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
J
Jerome5959
Jeune membre
Jeune membre
Messages : 15
Inscrit le : 26 janvier 2016
Version d'Excel : 2007 EN

Message par Jerome5959 » 3 février 2016, 14:41

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 ! :D
Avatar du membre
Banzai64
Fanatique d'Excel
Fanatique d'Excel
Messages : 16'690
Appréciations reçues : 5
Inscrit le : 21 novembre 2010
Version d'Excel : 2003 FR (learning 2010 - 2013)

Message par Banzai64 » 3 février 2016, 15:02

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
J
Jerome5959
Jeune membre
Jeune membre
Messages : 15
Inscrit le : 26 janvier 2016
Version d'Excel : 2007 EN

Message par Jerome5959 » 3 février 2016, 15:44

SUPER !!!!

merci beaucoup ! :D
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message