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
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
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
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
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
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
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
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
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
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
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
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
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
Bonjour.
Tu as peut-être un "On error resume next" qui traine.
Cordialement.
Daniel
"claudy" <weets.claudy@Skynet.be.yenamarredesSpam> a écrit dans le message
de news: 44549f87$0$1155$ba620e4c@news.skynet.be...
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
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
... 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
... La condition du If donnant une erreur, VBA passe à l'instruction
suivante qui est MsgBox.
Daniel
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
eLon6QFbGHA.4580@TK2MSFTNGP03.phx.gbl...
Bonjour.
Tu as peut-être un "On error resume next" qui traine.
Cordialement.
Daniel
"claudy" <weets.claudy@Skynet.be.yenamarredesSpam> a écrit dans le
message de news: 44549f87$0$1155$ba620e4c@news.skynet.be...
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
... 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
??
"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
??
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
uT9BEYFbGHA.3524@TK2MSFTNGP04.phx.gbl...
... La condition du If donnant une erreur, VBA passe à l'instruction
suivante qui est MsgBox.
Daniel
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
eLon6QFbGHA.4580@TK2MSFTNGP03.phx.gbl...
Bonjour.
Tu as peut-être un "On error resume next" qui traine.
Cordialement.
Daniel
"claudy" <weets.claudy@Skynet.be.yenamarredesSpam> a écrit dans le
message de news: 44549f87$0$1155$ba620e4c@news.skynet.be...
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
??
"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
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
Dans le cas où aucune cellule n'est vide.
Daniel
"lSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
OsyMGbFbGHA.4544@TK2MSFTNGP02.phx.gbl...
??
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
uT9BEYFbGHA.3524@TK2MSFTNGP04.phx.gbl...
... La condition du If donnant une erreur, VBA passe à l'instruction
suivante qui est MsgBox.
Daniel
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
eLon6QFbGHA.4580@TK2MSFTNGP03.phx.gbl...
Bonjour.
Tu as peut-être un "On error resume next" qui traine.
Cordialement.
Daniel
"claudy" <weets.claudy@Skynet.be.yenamarredesSpam> a écrit dans le
message de news: 44549f87$0$1155$ba620e4c@news.skynet.be...
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
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
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
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" <dZZZcolardelle@free.fr> a écrit dans le message de news:
e0HPHyFbGHA.2504@TK2MSFTNGP05.phx.gbl...
Dans le cas où aucune cellule n'est vide.
Daniel
"lSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
OsyMGbFbGHA.4544@TK2MSFTNGP02.phx.gbl...
??
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
uT9BEYFbGHA.3524@TK2MSFTNGP04.phx.gbl...
... La condition du If donnant une erreur, VBA passe à l'instruction
suivante qui est MsgBox.
Daniel
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
eLon6QFbGHA.4580@TK2MSFTNGP03.phx.gbl...
Bonjour.
Tu as peut-être un "On error resume next" qui traine.
Cordialement.
Daniel
"claudy" <weets.claudy@Skynet.be.yenamarredesSpam> a écrit dans le
message de news: 44549f87$0$1155$ba620e4c@news.skynet.be...
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
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
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
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" <lecocosteph@frite.fr> a écrit dans le message de news:
e29oe3FbGHA.4972@TK2MSFTNGP03.phx.gbl...
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" <dZZZcolardelle@free.fr> a écrit dans le message de news:
e0HPHyFbGHA.2504@TK2MSFTNGP05.phx.gbl...
Dans le cas où aucune cellule n'est vide.
Daniel
"lSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
OsyMGbFbGHA.4544@TK2MSFTNGP02.phx.gbl...
??
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
uT9BEYFbGHA.3524@TK2MSFTNGP04.phx.gbl...
... La condition du If donnant une erreur, VBA passe à l'instruction
suivante qui est MsgBox.
Daniel
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
eLon6QFbGHA.4580@TK2MSFTNGP03.phx.gbl...
Bonjour.
Tu as peut-être un "On error resume next" qui traine.
Cordialement.
Daniel
"claudy" <weets.claudy@Skynet.be.yenamarredesSpam> a écrit dans le
message de news: 44549f87$0$1155$ba620e4c@news.skynet.be...
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
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