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 |
_______________
![:yaisse1:](https://www.developpez.net/forums/images/smilies/yaisse1.gif)
____________________________________
![:yaisse1:](https://www.developpez.net/forums/images/smilies/yaisse1.gif)
______________________________
Merci de cliquer sur
![+1](https://www.developpez.net/forums/images/smilies/poucevert.gif)
pour chaque message ayant aidé puis sur
![:resolu:](https://www.developpez.net/forums/images/buttons/resolu.gif)
pour clore cette discussion …
Partager