Comment vérifier si une cellule est vide via VBA ?
Pour vérifier si une cellule est vide, vous pouvez utiliser la fonction ISEMPTY de VBA . Dans cette fonction, vous devez utiliser l’objet range pour spécifier la cellule que vous souhaitez vérifier, et il renvoie true si cette cellule est vide, sinon false. Vous pouvez utiliser une boîte de message ou utiliser une cellule pour obtenir le résultat.
Utiliser VBA pour vérifier si une cellule est vide
- Commencez par le nom de la fonction « IsEmpty ».
- Spécifiez la cellule que vous souhaitez vérifier.
- Utilisez une boîte de message ou une cellule pour obtenir la valeur du résultat.
- À la fin, exécutez le code.
MsgBox IsEmpty(Range("A1"))
Vérifier si plusieurs cellules sont vides
Si vous souhaitez vérifier et compter les cellules vides d’une plage lorsque vous devez parcourir chaque cellule de la plage.
Sub vba_check_empty_cells()
Dim i As Long
Dim c As Long
Dim myRange As Range
Dim myCell As Range
Set myRange = Range("A1:A10")
For Each myCell In myRange
c = c + 1
If IsEmpty(myCell) Then
i = i + 1
End If
Next myCell
MsgBox _
"There are total " & i & " empty cell(s) out of " & c & "."
End Sub
Le code ci-dessus parcourt chaque cellule de la plage A1: A10 et vérifie chaque cellule une par une à l’aide de la fonction ISEMPTY si elle est vide ou non.
Et pour chaque cellule vide, il prend un compte, et à la fin, affiche une boîte de message avec le nombre total de cellules et de cellules vides.
Utilisez le code suivant si vous souhaitez également mettre en surbrillance les cellules vides.
Dim i As Long
Dim c As Long
Dim myRange As Range
Dim myCell As Range
Set myRange = Range("A1:A10")
For Each myCell In myRange '
c = c + 1
If IsEmpty(myCell) Then
myCell.Interior.Color = RGB(255, 87, 87)
i = i + 1
End If
Next myCell
MsgBox _
"There are total " & i & " empty cell(s) out of " & c & "."