Discussion :

[parmi]

As-tu essayé

Code :

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

If table(i,0) = ""

ou encore

Code :

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

If table(i,0) = vbNullString

[Docmarti]

Bonjour

Très bonne question. Merci.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Sub Differences_entre_Empty_IsEmpty_VbNullString()
 
Cells.ClearContents
 
t = Range("A1:A3")
 
If IsEmpty(t(1, 1)) Then
 Stop 'Oui
End If
t(1, 1) = ""
If IsEmpty(t(1, 1)) Then
 Stop ' Non
End If
t(1, 1) = 0
If IsEmpty(t(1, 1)) Then
 Stop ' Non
End If
 
If t(2, 1) = Empty Then
 Stop 'Oui
End If
t(2, 1) = ""
If t(2, 1) = Empty Then
 Stop 'Oui
End If
t(2, 1) = 0
If t(2, 1) = Empty Then
 Stop 'Oui
End If
 
 
If t(3, 1) = "" Then
 Stop 'Oui
End If
t(3, 1) = ""
If t(3, 1) = "" Then
 Stop 'Oui
End If
t(3, 1) = 0
If t(3, 1) = "" Then
 Stop 'Non
End If
 
End Sub

[forum2015]

Bonjour DocMarti et Parmi !

Parmi, merci pour ta 1ere solution proposée qui fonctionne très bien

DocMarti, je n'ai pas bien compris le but de ton code. Pk utiliser des "oui" et des "non" ?

[Docmarti]

Ce qui m'intéresse, c'est comment écrire en VBA la condition "If table(i,0) est vide".

La réponse à ta question est

Code :

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

If table(i,0) = "" then

Empty et IsEmpty sont sans grande utilité il me semble.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Sub Differences_entre_Empty_IsEmpty()
 
Dim var As Variant
 
'If IsEmpty(Var)  ' verifie si Var = Empty  'c-a-d n'a pas encore été initialisé ou bien contient la valeur Empty
'If Var = Empty ' verifie si Var = Empty ou Var = 0 ou Var = ""
Debug.Print
Debug.Print "-----"
Debug.Print IsEmpty(Var), 1
Debug.Print Var = Empty, 2
Debug.Print Var = 0, 3
Debug.Print Var = "", 4
Var = Empty
Debug.Print
Debug.Print "-----"
Debug.Print IsEmpty(Var), 1
Debug.Print Var = Empty, 2
Debug.Print Var = 0, 3
Debug.Print Var = "", 4
Var = 0
Debug.Print
Debug.Print "-----"
Debug.Print IsEmpty(Var), 1
Debug.Print Var = Empty, 2
Debug.Print Var = 0, 3
Debug.Print Var = "", 4
 
Var = ""
Debug.Print
Debug.Print "-----"
Debug.Print IsEmpty(Var), 1
Debug.Print Var = Empty, 2
Debug.Print Var = 0, 3
Debug.Print Var = "", 4
 
 
End Sub

[forum2015]

Niquel ! Merci bc pour l'explication

Merci à tout le monde pour votre aide