Problème Code

Bonjour,

recl = ""

For i = 6 To 1200

If Sheets("Audit").Range("BG" & i).Value < Date Then

recl = recl & vbNewLine & Range("A" & i) & Space(1) & Range("B" & i) & Space(3) & Range("C" & i) & Space(3) & Range("D" & i) & Space(3) & Range("E" & i)

End If

Next i

If recl <> "" And Not ThisWorkbook.ReadOnly Then

MsgBox "Suivi du stagiaire en chaine 18 des mois précédent :" & vbNewLine & recl, vbOKOnly, "Suivi du stagiaire en chaine 18 des mois précédent, Initiation Câblage"

Else

End If

Je demande d'afficher la msgbox seulement si recl <> "" et Pas en lecture mais le soucis c'est qu'il m'affiche quand même la msgbox vide quand il n'y a rien.

Cdlt.

Bonsoir,

A tout hasard, est-ce que toutes les cellules de la colonne BG (de BG6 à BG1200) contiennent une date?

Si non, il faut rajouter une condition pour la valeur "recl" :

For i = 6 To 10
If Sheets("Audit").Range("BG" & i).Value < Date And Not IsEmpty(Sheets("Audit").Range("BG" & i)) Then
recl = recl & vbNewLine & Range("A" & i) & Space(1) & Range("B" & i) & Space(3) & Range("C" & i) & Space(3) & Range("D" & i) & Space(3) & Range("E" & i)
End If

Peut-être?

Bonjour,

Cela fonctionne. Merci.

Cdlt.