Re : Impression avec un bouton et la condition (si / et)
Bonsoir jpb388
Super mais serait-il possible de détailler
pour mieux comprendre
Dim Sh As Worksheet, Lg&, i&
Set Sh = Sheets("Inscription")
Lg = Sh.Range("D" & Rows.Count).End(xlUp).Row
For i = 22 To Lg
If Application.WorksheetFunction.CountA(Sh.Range ("E" & i & ":L" & i)) < 8 Then
Err.Raise Number:=vbObjectError + 1, Description:="ligne non complete", Source:="Ligne N° " & i
Merci encore cela fonctionne très bien
Bambi35
@++++++