Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel SpecialCells(xlCellTypeBlanks)

SpecialCells(xlCellTypeBlanks)

12 réponses
Avatar
claudy
Bonjour à tous, dans le bout de code ci dessous,
même lorsqu' il n'y a pas de cellules vides, il m'affiche le msgbox!!!
Y a t'il quelqu'un qui saurait me donner le pourquoi du comment?
Merci d'avance et bon dimanche.
Claudy

ActiveSheet.UsedRange.SpecialCells(xlCellTypeBlanks).Interior.ColorIndex = 3
If ActiveSheet.UsedRange.SpecialCells(xlCellTypeBlanks).Count > 0 Then
MsgBox ("Il y a des cellules vides!")'il s'affiche même si il n'y a pas de
cellules vide
ActiveSheet.UsedRange.SpecialCells(xlCellTypeBlanks).Select
Exit Sub
End If
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
lSteph
Re,

En fait , pas si sûr:
si tu regardes bien (au contraire de ce que j'ai proposé et qui fonctionne)
Claudy ne met pas de on error resume next !
mais surtout amha si le if plante ,
le on error resume next devrait nous renvoyer normalement après le end if
donc théoriquement le msgbox ne devrait pas s'afficher !?
Qu'en dis tu?

lSteph



"Daniel" a écrit dans le message de news:

Je viens de tester le code, s'il n'y a pas de cellule vide, le "If"
provoque une erreur 1004 "pas de cellules correspondantes".
Daniel
"lSteph" a écrit dans le message de news:

Slt Daniel,
amha dans ce cas il renvoie "faux" et non "erreur" d'où mon ??
D'ailleurs le pb c'est que je ne m'explique pas précisément le ce qui
cloche dans le code de Claudy
puisque ceci fonctionne :

Sub test()
On Error Resume Next
ActiveSheet.UsedRange.SpecialCells(xlCellTypeBlanks).Interior.ColorIndex
= 3
If ActiveSheet.UsedRange.SpecialCells(xlCellTypeBlanks).Cells.Count > 0
Then
MsgBox ("Il y a " & _
ActiveSheet.UsedRange.SpecialCells(xlCellTypeBlanks).Cells.Count _
& "cellules vides!")
ActiveSheet.UsedRange.Select
End If
End Sub

"Daniel" a écrit dans le message de news:

Dans le cas où aucune cellule n'est vide.
Daniel
"lSteph" a écrit dans le message de news:

??
"Daniel" a écrit dans le message de news:

... La condition du If donnant une erreur, VBA passe à l'instruction
suivante qui est MsgBox.
Daniel
"Daniel" a écrit dans le message de news:

Bonjour.
Tu as peut-être un "On error resume next" qui traine.
Cordialement.
Daniel
"claudy" a écrit dans le
message de news: 44549f87$0$1155$
Bonjour à tous, dans le bout de code ci dessous,
même lorsqu' il n'y a pas de cellules vides, il m'affiche le
msgbox!!!
Y a t'il quelqu'un qui saurait me donner le pourquoi du comment?
Merci d'avance et bon dimanche.
Claudy

ActiveSheet.UsedRange.SpecialCells(xlCellTypeBlanks).Interior.ColorIndex
= 3
If ActiveSheet.UsedRange.SpecialCells(xlCellTypeBlanks).Count > 0
Then
MsgBox ("Il y a des cellules vides!")'il s'affiche même si il n'y a
pas de cellules vide
ActiveSheet.UsedRange.SpecialCells(xlCellTypeBlanks).Select
Exit Sub
End If



























Avatar
claudy
Bonsoir à vous deux et merci d'avoir planché sur mon prob....
En effet , j'avais un "On Error Resume Next" avant mon code...
et comme il ne trouvait pas de cellule vide j'avais directement le
msgbox...d'où ma question.
Mon nouveau code, après ajustement:

Sub verification_Avant_Fermeture()
On Error Resume Next
derlig = Range("A64000").End(xlUp).Row + 1
Range("A" & derlig, "S5000").EntireRow.Delete
If Application.WorksheetFunction.CountBlank(Range("A2:P" & derlig - 1)) > 0
Then
Range("A2:P" & derlig -
1).SpecialCells(xlCellTypeBlanks).Interior.ColorIndex = 3
MsgBox ("Il y a des cellules vides!")
Range("A2:P" & derlig - 1).SpecialCells(xlCellTypeBlanks).Select
'Range("Q1") = 1
Exit Sub
End If
End sub

A+
Claudy



"lSteph" a écrit dans le message de news:

Re,

En fait , pas si sûr:
si tu regardes bien (au contraire de ce que j'ai proposé et qui
fonctionne)
Claudy ne met pas de on error resume next !
mais surtout amha si le if plante ,
le on error resume next devrait nous renvoyer normalement après le end if
donc théoriquement le msgbox ne devrait pas s'afficher !?
Qu'en dis tu?

lSteph



"Daniel" a écrit dans le message de news:

Je viens de tester le code, s'il n'y a pas de cellule vide, le "If"
provoque une erreur 1004 "pas de cellules correspondantes".
Daniel
"lSteph" a écrit dans le message de news:

Slt Daniel,
amha dans ce cas il renvoie "faux" et non "erreur" d'où mon ??
D'ailleurs le pb c'est que je ne m'explique pas précisément le ce qui
cloche dans le code de Claudy
puisque ceci fonctionne :

Sub test()
On Error Resume Next
ActiveSheet.UsedRange.SpecialCells(xlCellTypeBlanks).Interior.ColorIndex
= 3
If ActiveSheet.UsedRange.SpecialCells(xlCellTypeBlanks).Cells.Count > 0
Then
MsgBox ("Il y a " & _
ActiveSheet.UsedRange.SpecialCells(xlCellTypeBlanks).Cells.Count _
& "cellules vides!")
ActiveSheet.UsedRange.Select
End If
End Sub

"Daniel" a écrit dans le message de news:

Dans le cas où aucune cellule n'est vide.
Daniel
"lSteph" a écrit dans le message de news:

??
"Daniel" a écrit dans le message de news:

... La condition du If donnant une erreur, VBA passe à l'instruction
suivante qui est MsgBox.
Daniel
"Daniel" a écrit dans le message de news:

Bonjour.
Tu as peut-être un "On error resume next" qui traine.
Cordialement.
Daniel
"claudy" a écrit dans le
message de news: 44549f87$0$1155$
Bonjour à tous, dans le bout de code ci dessous,
même lorsqu' il n'y a pas de cellules vides, il m'affiche le
msgbox!!!
Y a t'il quelqu'un qui saurait me donner le pourquoi du comment?
Merci d'avance et bon dimanche.
Claudy

ActiveSheet.UsedRange.SpecialCells(xlCellTypeBlanks).Interior.ColorIndex
= 3
If ActiveSheet.UsedRange.SpecialCells(xlCellTypeBlanks).Count > 0
Then
MsgBox ("Il y a des cellules vides!")'il s'affiche même si il n'y a
pas de cellules vide
ActiveSheet.UsedRange.SpecialCells(xlCellTypeBlanks).Select
Exit Sub
End If































1 2