Vérifier si plusieurs cellules de la ligne active ne sont pas vides

**ToFind** · 08/08/2011, 13h19

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** · 08/08/2011, 14h07

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** · 08/08/2011, 14h11

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 A1

1

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** · 08/08/2011, 14h17

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** · 08/08/2011, 14h48

Bonjour jfontaine

Code :

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

Application.CountA(Rng)

est aussi valable.

**jfontaine** · 08/08/2011, 14h58

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

**ToFind** · 09/08/2011, 00h30

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.

**mercatog** · 09/08/2011, 02h25

La fonction EstVide est vrai si au moins une cellule est vide et fausse si toutes les cellules sont pleines.

Code :

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

1
2
3
4
5
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 sont pleines"
End If

**ToFind** · 09/08/2011, 15h20

Merci pour la réponse. Cependant, même si les colonnes A à D sont vides, le résultat du IF est vérifié alors que je devrais arriver au Else.
Le résultat n'est donc pas correct.
Quelqu'un pourrait-il effectuer l'essai?

**mercatog** · 09/08/2011, 15h38

Tu as certainement des formules dans tes cellules.

**ToFind** · 09/08/2011, 18h09

Non, Je n'ai pas de formule.
Pour être tout à fait certain, j'ai lancé la macro dans une feuille vierge. Résultat identique...

**mercatog** · 09/08/2011, 19h18

As tu regardé la logique?

Si au moins une cellule est vide alors:
1, 2, 3 ou 4 cellule(s) est (sont) vide(s)
Sinon:
toutes les cellules sont pleines.

Pour expliquer ton souci, est ce que tu cherche une fonction qui te donne 3 résultats:

Toutes les cellules sont vides
Au moins une cellule est vide et non toutes
Aucune cellule n'est vide

**patricktoulon** · 09/08/2011, 21h14

bonjour a tous

mercatog
je viens d'essayer ta fonction et effectivement ca ne fonctionne pas

les cellule toute vide j'ai le message

"Une des cellules A à D de la ligne active n'est pas vide"

a regarder la macro ca devrais fonctionner pourtant

EDIT:
comme ca ca marche!!!!
le numero de la ligne doit etre déclarée avant

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 recherche()
dim i as long
 
i = ActiveCell.Row
 
If EstVide(Range("A" & i & ":D" & i)) 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
End Sub
Function EstVide(Rng As Range) As Boolean
EstVide = Application.WorksheetFunction.CountA(Rng) ' < Rng.Count
End Function

Code :

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

1
2
 
If EstVide(Range("A" & ActiveCell.Row & ":D" & ActiveCell.Row))

le activecell.row ne soit pas pris en compte puisque le "estvide nous sort de la macro enfin je pense que c'est ca mais je n'en suis pas sur

au plaisir

**SfJ5Rpw8** · 09/08/2011, 21h29

oui en fait cette fonction EstVide est Vrai si au moins une des cellules n'est pas pleine et est fausse si toutes les cellules sont pleines.

il faudrait modifier la fonction Estvide :

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) = 0
End Function

et pour l'utilisation en gardant le même sens d'équation :

Code :

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

1
2
3
4
5
If Not EstVide(Range("A" & ActiveCell.Row & ":D" & ActiveCell.Row)) Then
    MsgBox "Au moins une des cellules n'est pas vide"
Else
    MsgBox "Toutes les cellules sont vides"
End If

**mercatog** · 09/08/2011, 21h29

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
Function EstVide(Rng As Range) As Boolean
 
EstVide = Application.WorksheetFunction.CountA(Rng) < Rng.Count
End Function
 
 
'Pour tester
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
If EstVide(Range("A" & Target.Row & ":D" & Target.Row)) Then
    MsgBox "Une des cellules A à D de la ligne active EST vide"
Else
    MsgBox "Toutes les cellules A à D de la ligne sont PLEINES"
End If
End Sub

Lisez bien les msgbox dans chaque cas de figure.
La logique est là; maintenant il suffit d'expliciter logiquement le besoin.

Bon regardez le post 3, vous aurez la réponse.
Le résultat final dépends de l'adaptation

[EDIT]! Exact Bbil (désolé pas rafraichi)

**patricktoulon** · 09/08/2011, 21h33

re

mercatog on c'est croisé regarde ma derniere réponse

en determinant avant le row de la ligne ca fonctionne

je sais ca n'a aucune logique mais pourtant ca fonctionne si ce n'est ce que je suspecte et precisé dans ma derniere reponse

apres encore des essai il semblerai que ca soit la limite inferieur qui cré l'erreur
"< rng.count"

celle la fonctionne

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub recherche()
If EstVide(Range("A" & ActiveCell.Row & ":D" & ActiveCell.Row)) Then
MsgBox "au moins 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
End Sub
Function EstVide(Rng As Range) As Boolean
EstVide = Application.WorksheetFunction.CountA(Rng) 'en elevant ca:'< Rng.Count
End Function

au plaisir

**mercatog** · 09/08/2011, 22h00

@Patrick
Bbil à répondu au cas où la recherche: toutes les cellules sont vides ou au moins une cellule est pleine (par analogie à la première proposition: toutes les cellules pleines ou au moins une cellule est encore vide)

**ToFind** · 10/08/2011, 16h47

Merci Patrick
Merci à tous,

La méthode de Patrick fonctionne correctement.

**patricktoulon** · 10/08/2011, 17h18

ca n'est pas ma methode c'est celle que mercatog a suggéré

je n'est fait qu' enlever la limite inferieur

allez juste pour le fun

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
 
Dim nb_celule_pleine As Long
Dim nb_cellule_vide As Long
 
'verifier si cellue vide ou pas dans une plage
Sub recherche()
    If EstVide(Range("A" & ActiveCell.Row & ":D" & ActiveCell.Row)) Then
        MsgBox "il y a " & nb_celule_pleine & " cellules de remplies  et " & nb_cellule_vide & " cellules de vides"
 
    Else
        MsgBox "Toutes les cellules A à D de la ligne active sont vides"
    End If
End Sub
Function EstVide(Rng As Range) As Boolean
    EstVide = Application.WorksheetFunction.CountA(Rng)    'en elevant ca:'< Rng.Count
    nb_celule_pleine = Application.WorksheetFunction.CountA(Rng)
    nb_cellule_vide = Rng.Cells.Count - nb_celule_pleine
End Function

au plaisir

Vérifier si plusieurs cellules de la ligne active ne sont pas vides [XL-2010]

Macros et VBA Excel

Discussions similaires

Partager

Partager