bonsoir a tous
encore merci a BQTR pour sa réponse qui fonctione, mais petite modif pour indiquer le numero de ligne:
la macro done renseigner ligne 20 sur excel en fait cette ligne correspond a la ligne 7 de mon tableau
comment adapter?
Sub Macro51()
'Sub test()
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
merci
@+
encore merci a BQTR pour sa réponse qui fonctione, mais petite modif pour indiquer le numero de ligne:
la macro done renseigner ligne 20 sur excel en fait cette ligne correspond a la ligne 7 de mon tableau
comment adapter?
Sub Macro51()
'Sub test()
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
merci
@+