Discussion :

[nicolav]

Bonjour,

J'aimerais tester la valeur d'une plage de données.
Concrètement j'aimerais tester si une plage contient une valeur <> ""

Est ce que c'est possible en évitant un classique parcours de toutes les cases ?

J'ai tenté un

Code :

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

Range("A4:AU4").Value <> ""

mais je me suis pris une erreur dans la face

[Minick]

Salut,

Peut etre avec quelque chose de ce style:

Code :

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

1
2
3
4
5
    If Application.Evaluate("=COUNT(A4:AU4)") <> 0 Then
        MsgBox "Il y a des données."
    Else
        MsgBox "Il n'y a pas de donnée."
    End If

++
Minick

EDIT:
Petite erreur, j'avais mis un COUNTA a la place d'un COUNT

[jfontaine]

Bonjour,

Voici une solution a ton probleme

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim Targ As Range
Dim Cel As Range
 
Set Targ = Range("A4:AU4")
 
For Each Cel In Targ.Cells
 
    If Cel.Value = "" Then MsgBox "erreur"
 
 
Next

Bon courage

[laetitia]

bonjour nicolav Minick re jfontaine le forum
3 autres facons de l' ecrire avec CountA a adapter!!

Code :

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

1
2
3
4
5
Sub es()
MsgBox Application.WorksheetFunction.CountA([a4:au4], "") - 1
MsgBox Application.WorksheetFunction.CountA(Range("$a4:$au4"))
MsgBox Application.WorksheetFunction.CountA([a4:au4])
End Sub