De toute manière le code est fort loin de la problématique avec le test unique d'une cellule sur la dernière ligne ‼
Mais au lieu de tester chaque cellule des colonnes B & E vis à vis de la plage en colonne C,
c'est pourtant si simple en utilisant la fonction de feuille de calculs NB.VIDE !
1 2 3 4 5 6
| Sub Demo()
With Range("C22", Cells(Rows.Count, 3).End(xlUp))
If Application.CountBlank(.Offset(, -1)) + Application.CountBlank(.Offset(, 2)) Then _
MsgBox "Veuillez compléter la saisie des colonnes B & E !", vbExclamation
End With
End Sub |
_______________

____________________________________

______________________________
Merci de cliquer sur

pour chaque message ayant aidé puis sur

pour clore cette discussion …
Partager