VBA : isempty sur variable objet

[alexane]

Bonsoir à tous
qqn peut m'expliquer pourquoi l'instruction
IsEmpty(ma_cellule.value)
ne fonctionne pas
(ma_cellule étant une variable objet range)

Merci

 

[kjin]

Re : VBA : isempty sur variable objet

bonsoir,

Dim x As Range
[COLOR="Blue"]Set x[/COLOR] = Range("A1")
If IsEmpty(x) Then MsgBox x.Address & " est vide " Else: MsgBox x.Address & " n'est pas vide "

A+
kjin

 

[Robert]

Re : VBA : isempty sur variable objet

Bonsoir Alexane, bonsoir le forum,

Voilà ce que j'ai récupéré sur l'aide VBA :
La fonction IsEmpty ne renvoie des informations pertinentes que pour les variables de type Variant.

Édition :

Salut Kjin on s'est croisé... J'ai encore perdu l'occasion de me taire...

 

[Cousinhub]

Re : VBA : isempty sur variable objet

Bonjour,

si ta variable est bien déclarée en objet Range, il ne devrait pas y avoir de problème..

Je pense qu'il manque le début de ton code...

celui ci-dessous fonctionne, si tu es dans le même cas de figure...

Sub controle_si_vide()
Dim Cel As Range
Set Cel = Range("A1")
MsgBox IsEmpty(Cel.Value)
End Sub

mais également ce code :

Sub controle_si_vide2()
Dim Cel As Range
For Each Cel In Range("A1:A2")
    MsgBox IsEmpty(Cel)
Next Cel
End Sub

Donc, pour mieux voir ce qui cloche chez toi, montre ton code en entier..(n'oublie pas d'utiliser la balise code #, en haut)

Bonne journée

Edit : Pfiouuuuu, Kjin et Robert, z'êtes toujours rapides, malgré l'heure tardive, pour vous...

 

[alexane]

Re : VBA : isempty sur variable objet

Bonsoir merci pour ces réponses
en fait si je résume soit je déclare mon objet comme variant soit ça doit fonctionner même si c'est une variable objet

En fait j'ai écrit :

dim ma_cell as range
for each isempty(ma_cell) in range("A:A")

et ça visiblement VBA aime pas ... Il faut que je décompose.
Ce que je souhaite c'est trouvé un code moins lourd et plus efficace que :

do while activecell.value<>""
instructions
activecell.offset(1,0).select
loop

Code lourd, et qui ne me permet pas de lister une plage entière si elle contient des cellules vides

merci

bhbh : je pose un # en début et un autre en fin de code ?
Bonne nuit à tous

 

[pierrejean]

Re : VBA : isempty sur variable objet

bonjour a tous

Pour selectionner toutes les cellules vides de la colonne A

Sub selectionne()
Set plage = Range("A65536").End(xlUp).Offset(1, 0)
For Each cel In Range("A1:A" & Range("A65536").End(xlUp).Row)
  If IsEmpty(cel) Then
   Set plage = Union(cel, plage)
  End If
Next
Set plage = Union(plage, Range(Range("A65536").End(xlUp).Offset(1, 0), Range("A65536")))
plage.Select
End Sub

Tu devrais pouvoir adapter ceci a ton problème
Nota: Avec ma vieille habitude de profiter de la possibilité offerte par Excel d'omettre les declarations tout est d'office en Variant