OVH Cloud OVH Cloud

[VBA] Une variable Range est-elle initialisée ?

4 réponses
Avatar
Stéphane Santon
Bonjour,

Comment tester si une variable publique déclarée par

Dim mrCeJourFichiers As Range

a été initialisée ?

If Not IsEmpty(mrCeJourFichiers) Then _
CeJourCondenserBtn.Enabled = mrCeJourFichiers.Rows.Count <= 1 _
Else: CeJourCondenserBtn.Enabled = False

Je m'y perds entre les IsNull , isEmpty, Nothing, ...

Merci

--
** Anti-Spam : ajouter [usenet] dans l'objet pour ne pas être rejeté.

Cordialement, Stéphane *** http://www.team-santonum.com
Loisirs, nature, arts, technologie : accueil en Charente-Maritime

4 réponses

Avatar
michdenis
Bonjour Stéphane,


Dim Rg As Range
If Rg Is Nothing Then
MsgBox "Ne contient pas une plage de cellule"
End If

Les trucs "Empty" , "IsNull" , ne s'adressent pas à des variables objets puisque lorsqu'une variable objet a été dûmente
déclaré, elle ne peut être vide ou empty ... seulement être "nothing"


Salutations!



"Stéphane Santon" a écrit dans le message de news:
Bonjour,

Comment tester si une variable publique déclarée par

Dim mrCeJourFichiers As Range

a été initialisée ?

If Not IsEmpty(mrCeJourFichiers) Then _
CeJourCondenserBtn.Enabled = mrCeJourFichiers.Rows.Count <= 1 _
Else: CeJourCondenserBtn.Enabled = False

Je m'y perds entre les IsNull , isEmpty, Nothing, ...

Merci

--
** Anti-Spam : ajouter [usenet] dans l'objet pour ne pas être rejeté.

Cordialement, Stéphane *** http://www.team-santonum.com
Loisirs, nature, arts, technologie : accueil en Charente-Maritime
Avatar
Nicolas B.
Salut Stéphane,

Le bon choix est Is Nothing :
If Not mrCeJourFichiers Is Nothing Then
...


A+
--
Nicolas B.


Bonjour,

Comment tester si une variable publique déclarée par

Dim mrCeJourFichiers As Range

a été initialisée ?

If Not IsEmpty(mrCeJourFichiers) Then _
CeJourCondenserBtn.Enabled = mrCeJourFichiers.Rows.Count <= 1 _
Else: CeJourCondenserBtn.Enabled = False

Je m'y perds entre les IsNull , isEmpty, Nothing, ...

Merci


Avatar
Rv
Salut,

If mrCeJourFichiers is nothing then
' Non initialisé...
Else
' Initialisé
End if

A+

Rv

"Stéphane Santon" a écrit dans le message de
news:
Bonjour,

Comment tester si une variable publique déclarée par

Dim mrCeJourFichiers As Range

a été initialisée ?

If Not IsEmpty(mrCeJourFichiers) Then _
CeJourCondenserBtn.Enabled = mrCeJourFichiers.Rows.Count <= 1 _
Else: CeJourCondenserBtn.Enabled = False

Je m'y perds entre les IsNull , isEmpty, Nothing, ...

Merci

--
** Anti-Spam : ajouter [usenet] dans l'objet pour ne pas être rejeté.

Cordialement, Stéphane *** http://www.team-santonum.com
Loisirs, nature, arts, technologie : accueil en Charente-Maritime


Avatar
Stéphane Santon
Bonjour,

Merci à tous ! Je ne l'aurais pas trouvé.
Je trouve l'aide en ligne de VBA vraiment mal faite...

Dim Rg As Range
If Rg Is Nothing Then
MsgBox "Ne contient pas une plage de cellule"
End If

Les trucs "Empty" , "IsNull" , ne s'adressent pas à des variables objets puisque lorsqu'une variable objet a été dûmente
déclaré, elle ne peut être vide ou empty ... seulement être "nothing"

"Stéphane Santon" a écrit dans le message de news:
Comment tester si une variable publique déclarée par
Dim mrCeJourFichiers As Range a été initialisée ?


--
** Anti-Spam : ajouter [usenet] dans l'objet pour ne pas être rejeté.
--
Cordialement, Stéphane *** http://www.team-santonum.com
Loisirs, nature, arts, technologie : accueil en Charente-Maritime
*** http://faqelec.team-santonum.com
F.A.Q. fr.sci.Electronique Electrotechnique Automatique Domotique