Discussion :

[ouskel'n'or]

Un userform
Dans l'userform deux Textbox VIDES
Dans Userform_initialize

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub UserForm_Initialize()
Cells(1, 1) = TextBox1 'VIDE
Cells(2, 1) = TextBox2 'VIDE
MsgBox Range("A65536").End(xlUp).Row '=> 2
MsgBox Cells(1, 1)                   '=> ""
MsgBox Len(Cells(1, 1).Value)        '=> 0
MsgBox Len(Cells(1, 1).Formula)      '=> 0
If Cells(1, 1) = "" Then
    MsgBox "Oui !"                   '=> Oui !
    ElseIf Cells(1, 1) <> "" Then
    MsgBox "Non"
End If
MsgBox Asc(Cells(1, 1))    '=>erreur 5 : Argument ou appel de procédure incorrect
End Sub

Une explication svp
Par avance, merci

PS - J'ai vu passer une discussion dans laquelle le "posteur" se plaignait de ne pas obtenir le bon N° de dernière ligne malgré des cellules vides. Bien qu'il n'ait pas évoqué les textbox, cette expérience éclaire ce phénomène d'un jour nouveau (!)

[Abed_H]

Bonsoir ouskel'n'or
même avec

Code :

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

=NBVAL(A1:A2) '=> 2

C’est bizarre!

Bonne soirée

[AlainTech]

Pour faire avancer le shimili... blick:

Code :

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

1
2
3
4
5
Private Sub CommandButton1_Click()
  Debug.Print VarType(ActiveSheet.Cells(1, 1)) ' = 0 = vbEmpty
  ActiveSheet.Cells(1, 1) = TextBox1
  Debug.Print VarType(ActiveSheet.Cells(1, 1)) ' = 8 = vbString
End Sub

[ouskel'n'or]

Bonjour Alain, toujours de bonnes idées... Donc, en poursuivant plus loin tes tests, pour éviter de faire perdre du temps

Code :

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

1
2
3
  Debug.Print VarType(TextBox2) ' => 8
  TextBox2 = ""
  Debug.Print VarType(TextBox2) ' => 8

[Invité]

Entre chaque lancement de procédure modifiée, je supprime les lignes sur le fichier .xls et j'enregistre (bien sûr pour éliminer les lignes du traitement précédent.

Et on voit des différences entre l'affectation de TextBox vides et de valeurs nulles ("").

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
Private Sub CommandButton1_Click()
dl1 = Range("A65536").End(xlUp).Row ' =1
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
'Cells(1, 1) = ""
Cells(2, 1) = TextBox1
Cells(3, 1) = TextBox2
Cells(4, 1) = TextBox3
l1 = Len(Cells(1, 1)) 'l1 = 0  sous dos en .txt = 13, 10
l2 = Len(Cells(2, 1)) 'l2 = 0       idem
l3 = Len(Cells(3, 1)) 'l3 = 0       idem
l4 = Len(Cells(4, 1)) 'l4 = 0       idem
dl2 = Range("A65536").End(xlUp).Row '= 4
Unload UserForm1
End Sub

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
Private Sub CommandButton1_Click()
dl1 = Range("A65536").End(xlUp).Row ' =1
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
'Cells(1, 1) = ""
Cells(2, 1) = TextBox1
Cells(3, 1) = TextBox2
Cells(4, 1) = TextBox3
Cells(2, 1) = ""
Cells(3, 1) = ""
Cells(4, 1) = ""

l1 = Len(Cells(1, 1)) 'l1 = 0   sous dos = 13, 10
l2 = Len(Cells(2, 1)) 'l2 = 0   sous dos  : n'existe pas
l3 = Len(Cells(3, 1)) 'l3 = 0           idem
l4 = Len(Cells(4, 1)) 'l4 = 0           idem
dl2 = Range("A65536").End(xlUp).Row '= 1
Unload UserForm1

End Sub

Pour l'instant on ne peut que constater les différences mais les expliquer de façon rationnelle ?

Est-ce voulu par Microsoft ou est-ce simplement une anomalie, presque un bug ?

J'ajoute que j'ai volontairement démarré l'affectation à la ligne 2 car il faut tenir compte que :

Code :

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

dl2 = Range("A65536").End(xlUp).Row

ne peut pas renvoyer 0 même si la ligne 1 est vide.

[ouskel'n'or]

J'ajoute que j'ai volontairement démarré l'affectation à la ligne 2 car il faut tenir compte que :

Code :

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

dl2 = Range("A65536").End(xlUp).Row

ne peut pas renvoyer 0 même si la ligne 1 est vide.

La suggestion de Abed_H permet de tester la ligne 1

Code :

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

=NBVAL(A1:A2) '=> 2

... ce ne change pas les résultats

[Invité]

Bonjour Ouke'l'nor,

=NBVAL(A1:A2) '=> 2

oui mais à partir de quelle procédure ?

avec celle-ci :

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
Private Sub CommandButton1_Click()
dl1 = Range("A65536").End(xlUp).Row ' =1
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
Cells(2, 1) = ""Cells(2, 1) = ""'Cells(1, 1) = ""
Cells(2, 1) = TextBox1
Cells(3, 1) = TextBox2
Cells(4, 1) = TextBox3
Cells(2, 1) = ""
Cells(3, 1) = ""
Cells(4, 1) = ""
 
l1 = Len(Cells(1, 1)) 'l1 = 0   sous dos = 13, 10
l2 = Len(Cells(2, 1)) 'l2 = 0   sous dos  : n'existe pas
l3 = Len(Cells(3, 1)) 'l3 = 0           idem
l4 = Len(Cells(4, 1)) 'l4 = 0           idem
dl2 = Range("A65536").End(xlUp).Row '= 1
Unload UserForm1
 
End Sub

J'obtiens = 0

Finalement à travers l'aide Vba je pense (mais est-ce que j'ai bien compris) que le fait d'affecter :

Code :

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

Cells(2, 1) = TextBox1

affecte une variable non déclarée donc de type Variant.

par contre :

Code :

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

Cells(2, 1) = ""

affecte une valeur nulle.

Vu de cette façon, cela paraît très simple, mais !!!

Il me semble que ça confirme plus ou moins les réponses de Ucfoutu et de AlainTech

[ouskel'n'or]

oui mais à partir de quelle procédure ?

Comme ça

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton1_Click()
MsgBox "dl1 = " & Application.WorksheetFunction.CountA(Range(Cells(1, 1), Cells(Range("A65536").End(xlUp).Row, 1))) ' =0
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
Cells(1, 1) = TextBox1
Cells(2, 1) = TextBox2
Cells(3, 1) = TextBox3
MsgBox "dl2 = " & Application.WorksheetFunction.CountA(Range(Cells(1, 1), Cells(Range("A65536").End(xlUp).Row, 1))) ' = 3
End Sub

ou

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CommandButton1_Click()
MsgBox "dl1 = " & Application.WorksheetFunction.CountA(Range(Cells(1, 1), Cells(Range("A65536").End(xlUp).Row, 1))) ' =0
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
Cells(1, 1) = TextBox1
Cells(2, 1) = TextBox2
Cells(3, 1) = TextBox3
Cells(1, 1) = ""
Cells(2, 1) = ""
Cells(3, 1) = ""
MsgBox "dl2 = " & Application.WorksheetFunction.CountA(Range(Cells(1, 1), Cells(Range("A65536").End(xlUp).Row, 1))) ' = 0
End SuB

Mais je crains bien que nous n'ayons jamais une explication claire sur le fin fond de la vraie raison de la finalité de l'objectif recherché par MS