Voici mon petit problème :
J'ai une plage de cellule 'B2:B7' contenant des nombres. Je désire vérifier une condition (à savoir si le nombre contenu dans ma cellule est inférieur à un autre) pour chacune des cellules de la plage en utilisant une boucle.
Sub test()
Dim cel As Range
For Each cel In Range('B2:B7')
If Range('A1') < cel Then
MsgBox ('La valeur de A1 est inferieure a la valeur de ' & cel.Address)
End If
Next cel
End Sub