Discussion :

[ToFind]

Bonjour,
Je souhaite vérifier si plusieurs cellules (colonnes A, B, C et D) de la ligne active ne sont pas vides.
J'ai essayé ce code qui, je le sais, est erroné :

Code :

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

If ActiveCell.EntireRow.Cells(1, 4).Value <> ""

Pouvez-vous m'éclairer?
Merci.

[jfontaine]

Bonjour,

Une solution

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
Dim rg As Range
Dim str As String
 
For Each rg In Range("A" & ActiveCell.Row & ":D" & ActiveCell.Row)
    If rg.Value <> "" Then
        If str = "" Then
            str = "Non vides : "
        Else
            str = str & ", "
        End If
        str = str & rg.Address
    End If
Next
 
MsgBox IIf(str = "", "Toutes les cellules sont vide", str)

[mercatog]

Une fonction

Code :

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

1
2
3
4
Function EstVide(Rng As Range) As Boolean
 
EstVide = Application.CountA(Rng) < Rng.Count
End Function

Teste A11

Code :

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

1
2
3
4
Sub Test()
 
If EstVide(Range("A1:D1")) Then MsgBox "Certaines cellules vides"
End Sub

A adapter

[jfontaine]

Hello Mercatog,

Je savais bien qu'il devait y avoir plus court

Par contre, je crois qu'il manque une instruction a cette ligne

Code :

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

EstVide = Application.WorksheetFunction.CountA(Rng) < Rng.Count

[mercatog]

Bonjour jfontaine

Code :

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

Application.CountA(Rng)

est aussi valable.

[jfontaine]

eh ben, si en plus il y a des instructions cachées

[ToFind]

Merci de votre aide précieuse.

Je dois cependant avouer que le résultat attendu n'est pas au rendez-vous.
En effet, voici le code comme je l'ai repris suivant vos indications. Aurais-je commis des erreurs ou des oublis?

Code la macro :

Code :

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

1
2
3
4
5
6
 
If EstVide(Range("A" & ActiveCell.Row & ":D" & ActiveCell.Row)) Then
MsgBox "Une des cellules A à D de la ligne active n'est pas vide"
Else
MsgBox "Toutes les cellules A à D de la ligne active sont vides"
End If

Code la fonction :

Code :

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

1
2
3
4
 
Function EstVide(Rng As Range) As Boolean
EstVide = Application.WorksheetFunction.CountA(Rng) < Rng.Count
End Function

Merci de votre examen.