Discussion :

[fikou]

Bonjour,
J'aimerais tester si une plage de cellules est vides. Aucunes valeurs dans toutes les cellules
J'ai invariablement toujours le même résultats "plein" que je renseigne les cellules ou non

J'ai trouvé ceci sur ce forum :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Set wksClFinale = Worksheets("Cl Finale")
wksClFinale.Select
Dim myRange As Range
Set myRange = Range("R5:R10")
 If IsEmpty(Range("R5:R10")) Then
  MsgBox ("vide")
  Else
  MsgBox ("plein")
  End If

Ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
SSet wksClFinale = Worksheets("Cl Finale")
wksClFinale.Select
Dim myRange As Range
Set myRange = Range("R5:R10")
 If IsEmpty(myRange) Then
  MsgBox ("vide")
  Else
  MsgBox ("plein")
  End If

Merci de vos retours
FikoU

[Franc]

Salut, isEmpty ne fonctionne que sur une cellule, si tu veux tester une plage il y a plusieurs solutions, en voici 2:

Soit tu utilises une boucle for each dans laquelle tu testes chaque cellule, sinon tu peux utiliser: If WorksheetFunction.CountA(myRange) = 0 then

[fikou]

Merci, super
c'est OK
FikoU