pb simple avec macro

bqtr à dit:

Bonsoir VBANOVICE,

Essaye ceci :

Code:

Sub Macro51()
Dim X As Range, k As Long, Rep As String
With Sheets("Saisie")
  For Each X In .Range("F14:" & .Range("F65536").End(xlUp).Address)
    If X.Offset(0, 0) = "" Or X.Offset(0, 1) = "" Then
       Rep = Rep & X.Row & vbCrLf
       k = k + 1
    End If
  Next
  If Rep <> "" Then MsgBox "Pas Bien, Saisir les données dans la (les) ligne(s) :" & vbCrLf & Rep
  If k = 0 Then MsgBox "Bien"
End With
End Sub

Si toutes les lignes sont renseignées : MsgBox "Bien"
Si une ou plusieurs lignes ne sont pas renseignées complétement : MsgBox "Pas bien" avec le numéro de la ou des lignes vides.

a+

Cliquez pour agrandir...