Bonjour,

Je voulais savoir si il était possible de créer un rapport d'erreur sous forme de .txt. Je voudrais que tout les messages box s'ouvrant comme erreurs soient retranscris ensuite dans un fichier rapport.

Voici un exemple de mon code pour vous aider à y voir plus clair :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub bouclecolonneB()
    Set FL1 = Worksheets("Feuil1")
    NoCol = 2 'lecture de la colonne B
    For NoLig = 1 To Split(FL1.UsedRange.Address, "$")(4)
        Var = FL1.Cells(NoLig, NoCol)
    If IsEmpty(Var) = False Then
       If Len(Var) > 50 Then
        Rows(NoLig & ":" & NoLig).Font.Color = RGB(255, 0, 0) 'rouge
       MsgBox "La colonne désignation est éronnée. " & NoLig
       End If
       End If
    Next
    Set FL1 = Nothing
End Sub
En vous remerciant d'avoir lu ma demande .