Détecter des cellules vides dans une plage sélectée ...

JNP

XLDnaute Barbatruc

• 9 Décembre 2011

• #2

Re : Détecter des cellules vides dans une plage sélectée ...

Bonsoir Garth69 🙂,
Ton code est plutôt hasardeux, car il faut être sûr que ta sélection soit continue sur une seule colonne 🙄...
A tester

Code:

Selection.Cells(0, Selection.Count) = ""

Bonne soirée 😎

 

Vote positif 0 Vote négatif

roro69

XLDnaute Impliqué

• 9 Décembre 2011

• #3

Re : Détecter des cellules vides dans une plage sélectée ...

Bonsoir
Voici un code pour compter les cellules vides d'une selection

Sub Blanc()
Vide = 0 'Variable
Range("A25:B29").Select 'Plage sélectionnée pour la vérification
For Each c In Selection 'Boucle dans la sélection
If c.Value = "" Then 'Si la cellule est vide alors
Vide = Vide + 1 'J'ajout 1 au nombre précédent
End If
Next c
MsgBox "Il y a " & Vide & " cellules vides dans la plage" 'Message
End Sub

Cliquez pour agrandir...

Après dans la boucle tu mets le code que tu veut..........
A++

 

Vote positif 0 Vote négatif

G

Garth69

XLDnaute Occasionnel

• 9 Décembre 2011

• #4

Re : Détecter des cellules vides dans une plage sélectée ...

Je vous remercie tous deux de vos éclairages, et conseils ...

Comme je suis néophyte, il est fort probable, que je n'aille jamais ni au plus simple, ni au plus sûr 😛 ... Merci de me le faire remarquer 😀 !


Je n'ai pas pour l'instant nécessité à compter les cellules vides de ma sélection, juste m'assurer qu'elle n'en contient pas 😀 ...
( Et signifier aux utilisateurs de ma feuille qu'ils doivent modifier leur sélection, ou qu'ils n'ont pas rempli certaines cellule de leur plage sélectée ... ).

Encore merci, pour la rapidité de vos réponse !

 

Vote positif 0 Vote négatif

G

Garth69

XLDnaute Occasionnel

• 9 Décembre 2011

• #5

Re : Détecter des cellules vides dans une plage sélectée ...

Arf ... Non ... Ton code ne fonctionne pas 🙁 ...

Il me renvoie que ma plage sélectée contient des cellules vides, même quand toutes ses cellules sont renseignées ...

 

Dernière édition: 9 Décembre 2011

Vote positif 0 Vote négatif

laurent950

XLDnaute Barbatruc

• 9 Décembre 2011

• #6

Re : Détecter des cellules vides dans une plage sélectée ...

Bonsoir Garth69, Roro69,

j'ai regarder le code :

If c.Value = "" Then 'Si la cellule est vide alors ------- >>> il y a un espace entre " "

If c.Value = " " Then
ou
If c.Value = empty Then

Cela devrait être bon

Laurent

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 9 Décembre 2011

• #7

Re : Détecter des cellules vides dans une plage sélectée ...

Re 🙂,
Comme tu le dis, ton premier code vérifie si la première cellule en dessous de ta sélection est vide 😉...
Tu parles maintenant des cellules vides "dans" la sélection... Ce que ne faisait pas ton premier code 🙄...
Le code de Roro69 compte les cellules vides, donc si Vide > 0, hop, tu as le résultat voulu 😛...
Un petit fichier exemple avec ce que tu as et ce que tu souhaites nous permettrais certainement de mieux comprendre la question 🙄...
Bonne soirée 😎

 

Vote positif 0 Vote négatif

G

Garth69

XLDnaute Occasionnel

• 9 Décembre 2011

• #8

Re : Détecter des cellules vides dans une plage sélectée ...

Bon finalement c'est ta "soluce" qui l'emporte roro69

En la regardant de plus près ... Ca m'a donné l'idée de :

Code:

        For Each cell In Selection
            If cell = "" Then
                MsgBox "Cellules vides détectées !, vbCritical
            Exit Sub
        End If
        Next

Qui marche finalement très bien ! 😀

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 9 Décembre 2011

• #9

Re : Détecter des cellules vides dans une plage sélectée ...

Bonsoir à tous


Plutôt que détecter les cellules vides autant sélectionner celles que ne le sont pas 😉

Code:

Sub Macro1()
Dim PasVide As Range
With Selection
Set PasVide = Union(.SpecialCells(xlCellTypeConstants, 23), .SpecialCells(xlCellTypeFormulas, 23))
End With
PasVide.Select
End Sub

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 9 Décembre 2011

• #10

Re : Détecter des cellules vides dans une plage sélectée ...

Re 🙂,
Quitte à épurer le code (et à l'accélérer si la sélection est importante 😛) :

Code:

MsgBox Evaluate("COUNTBLANK(" & Selection.Address & ")")

Bonne soirée 😎

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 9 Décembre 2011

• #11

Re : Détecter des cellules vides dans une plage sélectée ...

Re


Une dernière pour la route

VB:

Sub VersionCourte() 'juste pour me faire plaisir avant d'aller au dodo ;-)
Dim a As Range, b As Range
With Selection: Set a = .SpecialCells(2, 23): Set b = .SpecialCells(-4123, 23): End With
Union(a, b).Select
End Sub

EDITION : Bonsoir JNP, t'avais pas vu 😱
Ta sauce à ma sauce 😉

Code:

MsgBox Application.CountBlank(Selection)

 

Dernière édition: 10 Décembre 2011

Vote positif 0 Vote négatif

G

Garth69

XLDnaute Occasionnel

• 10 Décembre 2011

• #12

Re : Détecter des cellules vides dans une plage sélectée ...

Bon ... Koi k'il en soit ... Merci @ tous !

Je Bookmark la page et vos soluces respectives dans l'idée, que ca pourra me resservir ... Vous m'avez permis d'arriver à mes fins c'est cool !
J'essaierai plus tard vos combinaisons pour bien en comprendre le fonctionnement !


Je vous laisse à vos "échanges VBAesque" dont je ne comprends pas l'entière teneur, moi qui ai déjà du mal à mémoriser la syntaxe d'un simple "MsgBox "" 😛 ...

 

Vote positif 0 Vote négatif