Discussion :

[Bonero]

Bonjour a tous,

J’ai une bizarrerie dans un classeur excel que j’aimerais bien comprendre.
La plage (A1:A3) ne contient a vue d’œil rien mais la formule ISBLANK() en Excel me renvoie False et la barre de statusd’en bas lorsque l’on selectionne la dite plage.
Encore plus bizarre, en VBA j’obtiens :

Code :

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

(Rien), TRue, True sur la ligne 1.

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
Sub CelluleVide()
 
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim rng As Range, c As Range
 
    Set wb = Application.ThisWorkbook
    Set ws = wb.Worksheets("Sheet1")
    Set rng = ws.Range("a1:a5")
 
    For Each c In rng
        c.Select
1        Debug.Print c.Value, c.Value = "", c.Value = vbNullString 'renvoie "Rien", TRUE, TRUE partout.
    Next c
End Sub

Alors, svp aidez-moi a comprendre ce qui ne va pas.

[bilou23]

Bonjour,

C'est normal parce que tes 3 premières cellules contiennent des espaces!

Si je reprends ton code en le modifiant légèrement,

Code :

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

1
2
3
4
    For Each c In rng
        c.Select
        c = Trim(c)
    Next c

Les isblank renvoient bien vrai.

[Jean-Philippe André]

Salut,

je crois avoir lu que la fonction Isblank dans Excel correspondrait plus à IsEmpty dans VBA.

Exemple de code récupéré dans l'infini Internet

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub TestBlanks()
Dim cl As Range
'   this will work    
If [AND(ISBLANK(A1:A10))] Then MsgBox "All Empty"
'   and this will not
    Set cl = [A1:A10]
    If IsEmpty(cl) Then MsgBox "All Empty"
'   and this of course works
    Set cl = [A1]    
If IsEmpty(cl) Then MsgBox cl.Address & " Empty"
End Sub

Voir si ca fait avancer ton schmilblick

[Bonero]

merci pour vos reponses.