12 Macros VBA Excel faire des tests conditionnels multiple and if then variable booléenne

Formation Macros VBA Excel N1_12_tests_if_then_complet

test ET (And) et multiconditions
Ecrire une ligne de code très longue sur plusieurs lignes
IF.. Then et msgbox Boite de dialogue

Sub exploiter_liste()
'récupérer les infos d'une ligne de la liste vidéo 11

contenuDeLaCelluleActive = ActiveCell.Value 'contenu de la cellule
numeroColCelluleActive = ActiveCell.Column ' dans quelle colonne
numeroLigneCelluleActive = ActiveCell.Row ' dans quelle ligne

testPositionCellule = numeroLigneCelluleActive superieur 61 _
And numeroLigneCelluleActive inferieur 67 _
And numeroColCelluleActive = 3 _
And contenuDeLaCelluleActive different de "" (chevrons inf sup)

If testPositionCellule Then MsgBox "Bravo cette cellule contient un nom"

End Sub