Bonjour tout le monde,
j'ai besoin de vérifier dans une plage de cellules discontinues si l'ensemble des cellules sont renseignées. Pour cela, j'utilise Union pour définir la plage de cellule.
Le problème est que je n'arrive pas ensuite à sélectionner chaque cellule de cette plage pour voir si elle est vide ou renseignée.
J'ai testé ce code pour voir là où cela coince :
me ramène bien l'ensemble des cellules de cette plage (B9,E9,H8) mais par la suite, je n'arrive pas à isoler chacune des cellules :
me ramène dans mon test B9 puis B10 puis B11.
Merci de m'indiquer où se situe mon erreur.
A+
j'ai besoin de vérifier dans une plage de cellules discontinues si l'ensemble des cellules sont renseignées. Pour cela, j'utilise Union pour définir la plage de cellule.
Le problème est que je n'arrive pas ensuite à sélectionner chaque cellule de cette plage pour voir si elle est vide ou renseignée.
J'ai testé ce code pour voir là où cela coince :
Code:
Sub test3()
Dim plage As Range, i&, cel1 As Range, cel2 As Range, cel3 As Range
Set cel1 = Range("B9")
Set cel2 = Range("E9")
Set cel3 = Range("H8")
Set plage = Application.Union(cel1, cel2, cel3)
MsgBox plage.Address
For i = 1 To plage.Cells.Count
MsgBox plage(i).Address
Next i
End Sub
Code:
MsgBox plage.Address
Code:
MsgBox plage(i).Address
Merci de m'indiquer où se situe mon erreur.
A+