Dim Plage As Range Dim Cellule As Range On Error Resume Next Set Plage = Sheets("liste_facture").Range(Cells(1, 1), Cells(1, 60000)) For Each Cellule In Plage If Cellule.Value = "nf" Then Result = MsgBox("Archivage déjà effectué", vbOKOnly + vbExclamation, "Attention") If Cellule.Value <> "nf" Then 'PROCEDURE D'ARCHIVAGE (non détaillée car elle fonctionnait précedemment, le problème ne vient pas de là) Result = MsgBox("Archivage effectué", vbOKOnly + vbInformation, "Terminé") End If End If Next Application.ScreenUpdating = True End Sub
Dim Plage As Range Dim Cellule As Range On Error Resume Next Set Plage = Sheets("liste_facture").Range(Cells(1, 1), Cells(1, 60000)) For Each Cellule In Plage If Cellule.Value = "nf" Then Result = MsgBox("Archivage déjà effectué", vbOKOnly + vbExclamation, "Attention") 'If Cellule.Value <> "nf" Then Else 'PROCEDURE D'ARCHIVAGE (non détaillée car elle fonctionnait précedemment, le problème ne vient pas de là) Result = MsgBox("Archivage effectué", vbOKOnly + vbInformation, "Terminé") 'End If End If Next Application.ScreenUpdating = True End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question