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 pas de sujet

pas de sujet

1 réponse
Avatar
anonyme
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 = maPla
ge.SpecialCells(xlCellTypeBlanks).Count
(même message d’erreur en enlevant le select à ma ligne 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
>>


=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Article poste via Voila News - http://www.news.voila.fr
Le : Fri Aug 20 12:32:05 2004 depuis l'IP : 81.255.5.245 [VIP 215971270583]
Signaler un problème avec ce contenu

1 réponse

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
Avatar
CAP2
Salut, reste dans le même fil de discussion pour répondre...

on tente un truc : remplace tout ton code par celui-ci (en plus dans le
message il dire combien de cellules vides il reste):

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Set maPlage = Range("A1:C3")

Set vide = maPlage.SpecialCells(xlCellTypeBlanks)
v = vide.Count
If v = 0 Then MsgBox "ok" Else MsgBox " Il reste " & v & " cellules à
saisir"

End sub

Ca marche ?

CAP2

"anonyme" a écrit dans le message de news:
cg4jv5$7ou$
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 = maPla
ge.SpecialCells(xlCellTypeBlanks).Count
(même message d'erreur en enlevant le select à ma ligne 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





=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Article poste via Voila News - http://www.news.voila.fr
Le : Fri Aug 20 12:32:05 2004 depuis l'IP : 81.255.5.245 [VIP
215971270583]