Bonjour,
Avec la macro suivante, je souhaite obliger la personne qui saisit à rem
plir toutes les cellules de la plage A1:C3 :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Set maPlage = Range("A1:C3").Select
On Error Resume Next
Set vide = maPlage.SpecialCells(xlCellTypeBlanks)
v = vide.Count
If v = 0 Then MsgBox "ok" Else MsgBox v & " Il reste des cellules à sais
ir..."
End sub
En fermant le fichier, jobtiens le message : Erreur dexécution 424,
Objet requis
En appuyant sur débogage, le curseur jaune se met sur la ligne Set maPla
ge
Je narrive pas à comprendre.
Merci davance pour vos explications.
Reda
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Article poste via Voila News - http://www.news.voila.fr
Le : Fri Aug 20 10:48:08 2004 depuis l'IP : 81.255.5.245 [VIP 215971270583]
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
CAP2
Salut, c'est ton .select qui met le bazar. Tu fais une affectation d'une plage à une variable tout en utilisant la méthode .Select...Il aime pas... Remplace ta ligne par :
Set maplage = [A1:C3]
Ca marche ?
CAP2
"reda" a écrit dans le message de news: cg4ds8$lb3$
Bonjour, Avec la macro suivante, je souhaite obliger la personne qui saisit à rem plir toutes les cellules de la plage A1:C3 :
Private Sub Workbook_BeforeClose(Cancel As Boolean) Set maPlage = Range("A1:C3").Select On Error Resume Next Set vide = maPlage.SpecialCells(xlCellTypeBlanks) v = vide.Count If v = 0 Then MsgBox "ok" Else MsgBox v & " Il reste des cellules à sais ir..." End sub
En fermant le fichier, j'obtiens le message : "Erreur d'exécution '424', Objet requis" En appuyant sur débogage, le curseur jaune se met sur la ligne Set maPla ge. Je n'arrive pas à comprendre. Merci d'avance pour vos explications. Reda
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- Article poste via Voila News - http://www.news.voila.fr Le : Fri Aug 20 10:48:08 2004 depuis l'IP : 81.255.5.245 [VIP 215971270583]
Salut,
c'est ton .select qui met le bazar. Tu fais une affectation d'une plage à
une variable tout en utilisant la méthode .Select...Il aime pas...
Remplace ta ligne par :
Set maplage = [A1:C3]
Ca marche ?
CAP2
"reda" <reda.ben-menni@libertysurf.fr> a écrit dans le message de news:
cg4ds8$lb3$1@news.x-echo.com...
Bonjour,
Avec la macro suivante, je souhaite obliger la personne qui saisit à rem
plir toutes les cellules de la plage A1:C3 :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Set maPlage = Range("A1:C3").Select
On Error Resume Next
Set vide = maPlage.SpecialCells(xlCellTypeBlanks)
v = vide.Count
If v = 0 Then MsgBox "ok" Else MsgBox v & " Il reste des cellules à sais
ir..."
End sub
En fermant le fichier, j'obtiens le message : "Erreur d'exécution '424',
Objet requis"
En appuyant sur débogage, le curseur jaune se met sur la ligne Set maPla
ge.
Je n'arrive pas à comprendre.
Merci d'avance pour vos explications.
Reda
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Article poste via Voila News - http://www.news.voila.fr
Le : Fri Aug 20 10:48:08 2004 depuis l'IP : 81.255.5.245 [VIP
215971270583]
Salut, c'est ton .select qui met le bazar. Tu fais une affectation d'une plage à une variable tout en utilisant la méthode .Select...Il aime pas... Remplace ta ligne par :
Set maplage = [A1:C3]
Ca marche ?
CAP2
"reda" a écrit dans le message de news: cg4ds8$lb3$
Bonjour, Avec la macro suivante, je souhaite obliger la personne qui saisit à rem plir toutes les cellules de la plage A1:C3 :
Private Sub Workbook_BeforeClose(Cancel As Boolean) Set maPlage = Range("A1:C3").Select On Error Resume Next Set vide = maPlage.SpecialCells(xlCellTypeBlanks) v = vide.Count If v = 0 Then MsgBox "ok" Else MsgBox v & " Il reste des cellules à sais ir..." End sub
En fermant le fichier, j'obtiens le message : "Erreur d'exécution '424', Objet requis" En appuyant sur débogage, le curseur jaune se met sur la ligne Set maPla ge. Je n'arrive pas à comprendre. Merci d'avance pour vos explications. Reda
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- Article poste via Voila News - http://www.news.voila.fr Le : Fri Aug 20 10:48:08 2004 depuis l'IP : 81.255.5.245 [VIP 215971270583]
Yann
Salut, .Select est une action et tu ne peux pas faire une affectation sur une action... Aussi met simplement Set maPlage = Range("A1:C3").
Bye Yann
-----Message d'origine----- Salut, c'est ton .select qui met le bazar. Tu fais une affectation d'une plage à
une variable tout en utilisant la méthode .Select...Il aime pas...
Remplace ta ligne par :
Set maplage = [A1:C3]
Ca marche ?
CAP2
"reda" a écrit dans le message de news:
cg4ds8$lb3$
Bonjour, Avec la macro suivante, je souhaite obliger la personne qui saisit à rem
plir toutes les cellules de la plage A1:C3 :
Private Sub Workbook_BeforeClose(Cancel As Boolean) Set maPlage = Range("A1:C3").Select On Error Resume Next Set vide = maPlage.SpecialCells(xlCellTypeBlanks) v = vide.Count If v = 0 Then MsgBox "ok" Else MsgBox v & " Il reste des cellules à sais
ir..." End sub
En fermant le fichier, j'obtiens le message : "Erreur d'exécution '424',
Objet requis" En appuyant sur débogage, le curseur jaune se met sur la ligne Set maPla
ge. Je n'arrive pas à comprendre. Merci d'avance pour vos explications. Reda
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= - Article poste via Voila News - http://www.news.voila.fr Le : Fri Aug 20 10:48:08 2004 depuis l'IP : 81.255.5.245 [VIP
215971270583]
.
Salut,
.Select est une action et tu ne peux pas faire une
affectation sur une action... Aussi met simplement Set
maPlage = Range("A1:C3").
Bye
Yann
-----Message d'origine-----
Salut,
c'est ton .select qui met le bazar. Tu fais une
affectation d'une plage à
une variable tout en utilisant la méthode .Select...Il
aime pas...
Remplace ta ligne par :
Set maplage = [A1:C3]
Ca marche ?
CAP2
"reda" <reda.ben-menni@libertysurf.fr> a écrit dans le
message de news:
cg4ds8$lb3$1@news.x-echo.com...
Bonjour,
Avec la macro suivante, je souhaite obliger la
personne qui saisit à rem
plir toutes les cellules de la plage A1:C3 :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Set maPlage = Range("A1:C3").Select
On Error Resume Next
Set vide = maPlage.SpecialCells(xlCellTypeBlanks)
v = vide.Count
If v = 0 Then MsgBox "ok" Else MsgBox v & " Il reste
des cellules à sais
ir..."
End sub
En fermant le fichier, j'obtiens le message : "Erreur
d'exécution '424',
Objet requis"
En appuyant sur débogage, le curseur jaune se met sur
la ligne Set maPla
ge.
Je n'arrive pas à comprendre.
Merci d'avance pour vos explications.
Reda
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= -
Article poste via Voila News - http://www.news.voila.fr
Le : Fri Aug 20 10:48:08 2004 depuis l'IP :
81.255.5.245 [VIP
Salut, .Select est une action et tu ne peux pas faire une affectation sur une action... Aussi met simplement Set maPlage = Range("A1:C3").
Bye Yann
-----Message d'origine----- Salut, c'est ton .select qui met le bazar. Tu fais une affectation d'une plage à
une variable tout en utilisant la méthode .Select...Il aime pas...
Remplace ta ligne par :
Set maplage = [A1:C3]
Ca marche ?
CAP2
"reda" a écrit dans le message de news:
cg4ds8$lb3$
Bonjour, Avec la macro suivante, je souhaite obliger la personne qui saisit à rem
plir toutes les cellules de la plage A1:C3 :
Private Sub Workbook_BeforeClose(Cancel As Boolean) Set maPlage = Range("A1:C3").Select On Error Resume Next Set vide = maPlage.SpecialCells(xlCellTypeBlanks) v = vide.Count If v = 0 Then MsgBox "ok" Else MsgBox v & " Il reste des cellules à sais
ir..." End sub
En fermant le fichier, j'obtiens le message : "Erreur d'exécution '424',
Objet requis" En appuyant sur débogage, le curseur jaune se met sur la ligne Set maPla
ge. Je n'arrive pas à comprendre. Merci d'avance pour vos explications. Reda
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= - Article poste via Voila News - http://www.news.voila.fr Le : Fri Aug 20 10:48:08 2004 depuis l'IP : 81.255.5.245 [VIP
215971270583]
.
Marc
bonjour Reda et Cap2,
le reste du code doit génerer une autre erreur. Tu peux modifier ainsi :
v = maPlage.SpecialCells(xlCellTypeBlanks).Count If v = 0 Then MsgBox "ok" Else MsgBox v & " ....
Marc
-----Message d'origine----- Salut, c'est ton .select qui met le bazar. Tu fais une affectation d'une plage à
une variable tout en utilisant la méthode .Select...Il aime pas...
Remplace ta ligne par :
Set maplage = [A1:C3]
Ca marche ?
CAP2
"reda" a écrit dans le message de news:
cg4ds8$lb3$
Bonjour, Avec la macro suivante, je souhaite obliger la personne qui saisit à rem
plir toutes les cellules de la plage A1:C3 :
Private Sub Workbook_BeforeClose(Cancel As Boolean) Set maPlage = Range("A1:C3").Select On Error Resume Next Set vide = maPlage.SpecialCells(xlCellTypeBlanks) v = vide.Count If v = 0 Then MsgBox "ok" Else MsgBox v & " Il reste des cellules à sais
ir..." End sub
En fermant le fichier, j'obtiens le message : "Erreur d'exécution '424',
Objet requis" En appuyant sur débogage, le curseur jaune se met sur la ligne Set maPla
ge. Je n'arrive pas à comprendre. Merci d'avance pour vos explications. Reda
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= - Article poste via Voila News - http://www.news.voila.fr Le : Fri Aug 20 10:48:08 2004 depuis l'IP : 81.255.5.245 [VIP
215971270583]
.
bonjour Reda et Cap2,
le reste du code doit génerer une autre erreur. Tu peux
modifier ainsi :
v = maPlage.SpecialCells(xlCellTypeBlanks).Count
If v = 0 Then MsgBox "ok" Else MsgBox v & " ....
Marc
-----Message d'origine-----
Salut,
c'est ton .select qui met le bazar. Tu fais une
affectation d'une plage à
une variable tout en utilisant la méthode .Select...Il
aime pas...
Remplace ta ligne par :
Set maplage = [A1:C3]
Ca marche ?
CAP2
"reda" <reda.ben-menni@libertysurf.fr> a écrit dans le
message de news:
cg4ds8$lb3$1@news.x-echo.com...
Bonjour,
Avec la macro suivante, je souhaite obliger la
personne qui saisit à rem
plir toutes les cellules de la plage A1:C3 :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Set maPlage = Range("A1:C3").Select
On Error Resume Next
Set vide = maPlage.SpecialCells(xlCellTypeBlanks)
v = vide.Count
If v = 0 Then MsgBox "ok" Else MsgBox v & " Il reste
des cellules à sais
ir..."
End sub
En fermant le fichier, j'obtiens le message : "Erreur
d'exécution '424',
Objet requis"
En appuyant sur débogage, le curseur jaune se met sur
la ligne Set maPla
ge.
Je n'arrive pas à comprendre.
Merci d'avance pour vos explications.
Reda
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= -
Article poste via Voila News - http://www.news.voila.fr
Le : Fri Aug 20 10:48:08 2004 depuis l'IP :
81.255.5.245 [VIP
le reste du code doit génerer une autre erreur. Tu peux modifier ainsi :
v = maPlage.SpecialCells(xlCellTypeBlanks).Count If v = 0 Then MsgBox "ok" Else MsgBox v & " ....
Marc
-----Message d'origine----- Salut, c'est ton .select qui met le bazar. Tu fais une affectation d'une plage à
une variable tout en utilisant la méthode .Select...Il aime pas...
Remplace ta ligne par :
Set maplage = [A1:C3]
Ca marche ?
CAP2
"reda" a écrit dans le message de news:
cg4ds8$lb3$
Bonjour, Avec la macro suivante, je souhaite obliger la personne qui saisit à rem
plir toutes les cellules de la plage A1:C3 :
Private Sub Workbook_BeforeClose(Cancel As Boolean) Set maPlage = Range("A1:C3").Select On Error Resume Next Set vide = maPlage.SpecialCells(xlCellTypeBlanks) v = vide.Count If v = 0 Then MsgBox "ok" Else MsgBox v & " Il reste des cellules à sais
ir..." End sub
En fermant le fichier, j'obtiens le message : "Erreur d'exécution '424',
Objet requis" En appuyant sur débogage, le curseur jaune se met sur la ligne Set maPla
ge. Je n'arrive pas à comprendre. Merci d'avance pour vos explications. Reda
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= - Article poste via Voila News - http://www.news.voila.fr Le : Fri Aug 20 10:48:08 2004 depuis l'IP : 81.255.5.245 [VIP
215971270583]
.
CAP2
Salut Marc,
en fait, le reste du code tournait aussi tel quel...
Mais ta méthode fait gagner une ligne de code ;o))
A plus
CAP2
"Marc" a écrit dans le message de news: 990301c48698$bf2d8940$ bonjour Reda et Cap2,
le reste du code doit génerer une autre erreur. Tu peux modifier ainsi :
v = maPlage.SpecialCells(xlCellTypeBlanks).Count If v = 0 Then MsgBox "ok" Else MsgBox v & " ....
Marc
-----Message d'origine----- Salut, c'est ton .select qui met le bazar. Tu fais une affectation d'une plage à
une variable tout en utilisant la méthode .Select...Il aime pas...
Remplace ta ligne par :
Set maplage = [A1:C3]
Ca marche ?
CAP2
"reda" a écrit dans le message de news:
cg4ds8$lb3$
Bonjour, Avec la macro suivante, je souhaite obliger la personne qui saisit à rem
plir toutes les cellules de la plage A1:C3 :
Private Sub Workbook_BeforeClose(Cancel As Boolean) Set maPlage = Range("A1:C3").Select On Error Resume Next Set vide = maPlage.SpecialCells(xlCellTypeBlanks) v = vide.Count If v = 0 Then MsgBox "ok" Else MsgBox v & " Il reste des cellules à sais
ir..." End sub
En fermant le fichier, j'obtiens le message : "Erreur d'exécution '424',
Objet requis" En appuyant sur débogage, le curseur jaune se met sur la ligne Set maPla
ge. Je n'arrive pas à comprendre. Merci d'avance pour vos explications. Reda
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- Article poste via Voila News - http://www.news.voila.fr Le : Fri Aug 20 10:48:08 2004 depuis l'IP : 81.255.5.245 [VIP
215971270583]
.
Salut Marc,
en fait, le reste du code tournait aussi tel quel...
Mais ta méthode fait gagner une ligne de code ;o))
A plus
CAP2
"Marc" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 990301c48698$bf2d8940$a501280a@phx.gbl...
bonjour Reda et Cap2,
le reste du code doit génerer une autre erreur. Tu peux
modifier ainsi :
v = maPlage.SpecialCells(xlCellTypeBlanks).Count
If v = 0 Then MsgBox "ok" Else MsgBox v & " ....
Marc
-----Message d'origine-----
Salut,
c'est ton .select qui met le bazar. Tu fais une
affectation d'une plage à
une variable tout en utilisant la méthode .Select...Il
aime pas...
Remplace ta ligne par :
Set maplage = [A1:C3]
Ca marche ?
CAP2
"reda" <reda.ben-menni@libertysurf.fr> a écrit dans le
message de news:
cg4ds8$lb3$1@news.x-echo.com...
Bonjour,
Avec la macro suivante, je souhaite obliger la
personne qui saisit à rem
plir toutes les cellules de la plage A1:C3 :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Set maPlage = Range("A1:C3").Select
On Error Resume Next
Set vide = maPlage.SpecialCells(xlCellTypeBlanks)
v = vide.Count
If v = 0 Then MsgBox "ok" Else MsgBox v & " Il reste
des cellules à sais
ir..."
End sub
En fermant le fichier, j'obtiens le message : "Erreur
d'exécution '424',
Objet requis"
En appuyant sur débogage, le curseur jaune se met sur
la ligne Set maPla
ge.
Je n'arrive pas à comprendre.
Merci d'avance pour vos explications.
Reda
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Article poste via Voila News - http://www.news.voila.fr
Le : Fri Aug 20 10:48:08 2004 depuis l'IP :
81.255.5.245 [VIP
en fait, le reste du code tournait aussi tel quel...
Mais ta méthode fait gagner une ligne de code ;o))
A plus
CAP2
"Marc" a écrit dans le message de news: 990301c48698$bf2d8940$ bonjour Reda et Cap2,
le reste du code doit génerer une autre erreur. Tu peux modifier ainsi :
v = maPlage.SpecialCells(xlCellTypeBlanks).Count If v = 0 Then MsgBox "ok" Else MsgBox v & " ....
Marc
-----Message d'origine----- Salut, c'est ton .select qui met le bazar. Tu fais une affectation d'une plage à
une variable tout en utilisant la méthode .Select...Il aime pas...
Remplace ta ligne par :
Set maplage = [A1:C3]
Ca marche ?
CAP2
"reda" a écrit dans le message de news:
cg4ds8$lb3$
Bonjour, Avec la macro suivante, je souhaite obliger la personne qui saisit à rem
plir toutes les cellules de la plage A1:C3 :
Private Sub Workbook_BeforeClose(Cancel As Boolean) Set maPlage = Range("A1:C3").Select On Error Resume Next Set vide = maPlage.SpecialCells(xlCellTypeBlanks) v = vide.Count If v = 0 Then MsgBox "ok" Else MsgBox v & " Il reste des cellules à sais
ir..." End sub
En fermant le fichier, j'obtiens le message : "Erreur d'exécution '424',
Objet requis" En appuyant sur débogage, le curseur jaune se met sur la ligne Set maPla
ge. Je n'arrive pas à comprendre. Merci d'avance pour vos explications. Reda
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- Article poste via Voila News - http://www.news.voila.fr Le : Fri Aug 20 10:48:08 2004 depuis l'IP : 81.255.5.245 [VIP
215971270583]
.
Marc
salut Cap2,
exact, ça marchait !
Mais ta méthode fait gagner une ligne de code ;o)) ... et 1 variable ;-))
Marc
-----Message d'origine----- Salut Marc,
en fait, le reste du code tournait aussi tel quel...
Mais ta méthode fait gagner une ligne de code ;o))
A plus
CAP2
"Marc" a écrit dans le message de
news: 990301c48698$bf2d8940$ bonjour Reda et Cap2,
le reste du code doit génerer une autre erreur. Tu peux modifier ainsi :
v = maPlage.SpecialCells(xlCellTypeBlanks).Count If v = 0 Then MsgBox "ok" Else MsgBox v & " ....
Marc
-----Message d'origine----- Salut, c'est ton .select qui met le bazar. Tu fais une affectation d'une plage à
une variable tout en utilisant la méthode .Select...Il aime pas...
Remplace ta ligne par :
Set maplage = [A1:C3]
Ca marche ?
CAP2
"reda" a écrit dans le message de news:
cg4ds8$lb3$
Bonjour, Avec la macro suivante, je souhaite obliger la personne qui saisit à rem
plir toutes les cellules de la plage A1:C3 :
Private Sub Workbook_BeforeClose(Cancel As Boolean) Set maPlage = Range("A1:C3").Select On Error Resume Next Set vide = maPlage.SpecialCells(xlCellTypeBlanks) v = vide.Count If v = 0 Then MsgBox "ok" Else MsgBox v & " Il reste des cellules à sais
ir..." End sub
En fermant le fichier, j'obtiens le message : "Erreur d'exécution '424',
Objet requis" En appuyant sur débogage, le curseur jaune se met sur la ligne Set maPla
ge. Je n'arrive pas à comprendre. Merci d'avance pour vos explications. Reda
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= - Article poste via Voila News - http://www.news.voila.fr
Le : Fri Aug 20 10:48:08 2004 depuis l'IP : 81.255.5.245 [VIP
215971270583]
.
.
salut Cap2,
exact, ça marchait !
Mais ta méthode fait gagner une ligne de code ;o))
... et 1 variable ;-))
Marc
-----Message d'origine-----
Salut Marc,
en fait, le reste du code tournait aussi tel quel...
Mais ta méthode fait gagner une ligne de code ;o))
A plus
CAP2
"Marc" <anonymous@discussions.microsoft.com> a écrit
dans le message de
news: 990301c48698$bf2d8940$a501280a@phx.gbl...
bonjour Reda et Cap2,
le reste du code doit génerer une autre erreur. Tu peux
modifier ainsi :
v = maPlage.SpecialCells(xlCellTypeBlanks).Count
If v = 0 Then MsgBox "ok" Else MsgBox v & " ....
Marc
-----Message d'origine-----
Salut,
c'est ton .select qui met le bazar. Tu fais une
affectation d'une plage à
une variable tout en utilisant la méthode .Select...Il
aime pas...
Remplace ta ligne par :
Set maplage = [A1:C3]
Ca marche ?
CAP2
"reda" <reda.ben-menni@libertysurf.fr> a écrit dans le
message de news:
cg4ds8$lb3$1@news.x-echo.com...
Bonjour,
Avec la macro suivante, je souhaite obliger la
personne qui saisit à rem
plir toutes les cellules de la plage A1:C3 :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Set maPlage = Range("A1:C3").Select
On Error Resume Next
Set vide = maPlage.SpecialCells(xlCellTypeBlanks)
v = vide.Count
If v = 0 Then MsgBox "ok" Else MsgBox v & " Il reste
des cellules à sais
ir..."
End sub
En fermant le fichier, j'obtiens le message : "Erreur
d'exécution '424',
Objet requis"
En appuyant sur débogage, le curseur jaune se met sur
la ligne Set maPla
ge.
Je n'arrive pas à comprendre.
Merci d'avance pour vos explications.
Reda
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= -
Article poste via Voila News -
http://www.news.voila.fr
Le : Fri Aug 20 10:48:08 2004 depuis l'IP :
81.255.5.245 [VIP
Mais ta méthode fait gagner une ligne de code ;o)) ... et 1 variable ;-))
Marc
-----Message d'origine----- Salut Marc,
en fait, le reste du code tournait aussi tel quel...
Mais ta méthode fait gagner une ligne de code ;o))
A plus
CAP2
"Marc" a écrit dans le message de
news: 990301c48698$bf2d8940$ bonjour Reda et Cap2,
le reste du code doit génerer une autre erreur. Tu peux modifier ainsi :
v = maPlage.SpecialCells(xlCellTypeBlanks).Count If v = 0 Then MsgBox "ok" Else MsgBox v & " ....
Marc
-----Message d'origine----- Salut, c'est ton .select qui met le bazar. Tu fais une affectation d'une plage à
une variable tout en utilisant la méthode .Select...Il aime pas...
Remplace ta ligne par :
Set maplage = [A1:C3]
Ca marche ?
CAP2
"reda" a écrit dans le message de news:
cg4ds8$lb3$
Bonjour, Avec la macro suivante, je souhaite obliger la personne qui saisit à rem
plir toutes les cellules de la plage A1:C3 :
Private Sub Workbook_BeforeClose(Cancel As Boolean) Set maPlage = Range("A1:C3").Select On Error Resume Next Set vide = maPlage.SpecialCells(xlCellTypeBlanks) v = vide.Count If v = 0 Then MsgBox "ok" Else MsgBox v & " Il reste des cellules à sais
ir..." End sub
En fermant le fichier, j'obtiens le message : "Erreur d'exécution '424',
Objet requis" En appuyant sur débogage, le curseur jaune se met sur la ligne Set maPla
ge. Je n'arrive pas à comprendre. Merci d'avance pour vos explications. Reda
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= - Article poste via Voila News - http://www.news.voila.fr
Le : Fri Aug 20 10:48:08 2004 depuis l'IP : 81.255.5.245 [VIP
215971270583]
.
.
reda
(j'ai répondu ce matin via Voilà, mais le message n'est pas apparu) En modifiant par : Set maplage = [A1:C3] j'obtiens "Erreur d'exécution '1004' : Pas de cellule correspondante" En appuyant sur débogage, le curseur jaune se met sur la ligne v maPlage.SpecialCells(xlCellTypeBlanks).Count (même message d'erreur en enlevant le select à ma ligne d'origine) Je vais essayer avec ("A1:C3")
"CAP2" a écrit dans le message news: uy#
Salut, c'est ton .select qui met le bazar. Tu fais une affectation d'une plage à une variable tout en utilisant la méthode .Select...Il aime pas... Remplace ta ligne par :
Set maplage = [A1:C3]
Ca marche ?
CAP2
(j'ai répondu ce matin via Voilà, mais le message n'est pas apparu)
En modifiant par : Set maplage = [A1:C3]
j'obtiens "Erreur d'exécution '1004' : Pas de cellule correspondante"
En appuyant sur débogage, le curseur jaune se met sur la ligne v maPlage.SpecialCells(xlCellTypeBlanks).Count
(même message d'erreur en enlevant le select à ma ligne d'origine)
Je vais essayer avec ("A1:C3")
"CAP2" <CAP2@azerty.net> a écrit dans le message news:
uy#lmPphEHA.2624@TK2MSFTNGP12.phx.gbl...
Salut,
c'est ton .select qui met le bazar. Tu fais une affectation d'une plage à
une variable tout en utilisant la méthode .Select...Il aime pas...
Remplace ta ligne par :
(j'ai répondu ce matin via Voilà, mais le message n'est pas apparu) En modifiant par : Set maplage = [A1:C3] j'obtiens "Erreur d'exécution '1004' : Pas de cellule correspondante" En appuyant sur débogage, le curseur jaune se met sur la ligne v maPlage.SpecialCells(xlCellTypeBlanks).Count (même message d'erreur en enlevant le select à ma ligne d'origine) Je vais essayer avec ("A1:C3")
"CAP2" a écrit dans le message news: uy#
Salut, c'est ton .select qui met le bazar. Tu fais une affectation d'une plage à une variable tout en utilisant la méthode .Select...Il aime pas... Remplace ta ligne par :
