Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

comptage nb de feuilles

12 réponses
Avatar
bpdu92
bonjour à tous
je voudrais connaitre le nb de feuilles d'un classeur
à cet effet, j'ecris
sub cpte()
sheets.count
end sub
à l'execution, j'ai le message d'erreur
Erreur de compilation
Instruction incorrecte à l'exterieur d'une procedure
que faut-il corriger ?
merci d'avance

10 réponses

1 2
Avatar
JB
Bonjour,

Sub cpte()
x = Sheets.Count
MsgBox x
End Sub

JB

On 20 août, 04:17, bpdu92 wrote:
bonjour à tous
je voudrais connaitre le nb de feuilles d'un classeur
à cet effet, j'ecris
sub cpte()
sheets.count
end sub
à l'execution, j'ai le message d'erreur
Erreur de compilation
Instruction incorrecte à l'exterieur d'une procedure
que faut-il corriger ?
merci d'avance


Avatar
Francois L
bonjour à tous
je voudrais connaitre le nb de feuilles d'un classeur
à cet effet, j'ecris
sub cpte()
sheets.count
end sub
à l'execution, j'ai le message d'erreur
Erreur de compilation
Instruction incorrecte à l'exterieur d'une procedure
que faut-il corriger ?


Bonjour,

Il faut attribuer le résultat de Sheets.Count à une variable :
'--------------------------
Sub cpte()
Dim cpt As Integer
cpt = Sheets.Count
MsgBox cpt
End Sub
'---------------------------

--
François L

Avatar
Fredo P.
sub cpte()
ActiveWorkbook.Sheets.Count
end sub
"bpdu92" a écrit dans le message de news:

bonjour à tous
je voudrais connaitre le nb de feuilles d'un classeur
à cet effet, j'ecris
sub cpte()
sheets.count
end sub
à l'execution, j'ai le message d'erreur
Erreur de compilation
Instruction incorrecte à l'exterieur d'une procedure
que faut-il corriger ?
merci d'avance


Avatar
bpdu92
On Sun, 19 Aug 2007 22:11:26 -0700, JB
wrote:

Bonjour,

Sub cpte()
x = Sheets.Count
MsgBox x
End Sub

JB
impec JB

par contre il a fallu mettre à jour Excel, soit
11.8xxx au lieu de 11.6yyy SP2
sinon j'avais un bouclage sur le OK du msgbox ??
merci et bravo


On 20 août, 04:17, bpdu92 wrote:
bonjour à tous
je voudrais connaitre le nb de feuilles d'un classeur
à cet effet, j'ecris
sub cpte()
sheets.count
end sub
à l'execution, j'ai le message d'erreur
Erreur de compilation
Instruction incorrecte à l'exterieur d'une procedure
que faut-il corriger ?
merci d'avance





Avatar
bpdu92
On Mon, 20 Aug 2007 07:19:05 +0200, Francois L
wrote:

bonjour à tous
je voudrais connaitre le nb de feuilles d'un classeur
à cet effet, j'ecris
sub cpte()
sheets.count
end sub
à l'execution, j'ai le message d'erreur
Erreur de compilation
Instruction incorrecte à l'exterieur d'une procedure
que faut-il corriger ?


Bonjour,

Il faut attribuer le résultat de Sheets.Count à une variable :
'--------------------------
Sub cpte()
Dim cpt As Integer
cpt = Sheets.Count
MsgBox cpt
End Sub
'---------------------------
ok, impec

cet excellent msgbox affiche 430,
soit 1 feuille par client (c une TPE)
est-ce raisonnable ?
sinon quel est le bon compromis
entre 1 feuille/client ou 1 fichier/client ?
merci d'avance


Avatar
bpdu92
On Mon, 20 Aug 2007 07:51:03 +0200, "Fredo P."
wrote:

sub cpte()
ActiveWorkbook.Sheets.Count
end sub
non, il affiche erreur de compil,

Utilisation incorrecte de la propriété
alors Docteur ?
merci

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

bonjour à tous
je voudrais connaitre le nb de feuilles d'un classeur
à cet effet, j'ecris
sub cpte()
sheets.count
end sub
à l'execution, j'ai le message d'erreur
Erreur de compilation
Instruction incorrecte à l'exterieur d'une procedure
que faut-il corriger ?
merci d'avance





Avatar
jps
ben, tout dépend de ce que tu en fais de ce classeur client...si tu remues
430 feuilles alors que tu ne remues pas forcément les 430 clients, tu vas
fatiguer tes bras inutilement...
jps

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

On Mon, 20 Aug 2007 07:19:05 +0200, Francois L
wrote:

bonjour à tous
je voudrais connaitre le nb de feuilles d'un classeur
à cet effet, j'ecris
sub cpte()
sheets.count
end sub
à l'execution, j'ai le message d'erreur
Erreur de compilation
Instruction incorrecte à l'exterieur d'une procedure
que faut-il corriger ?


Bonjour,

Il faut attribuer le résultat de Sheets.Count à une variable :
'--------------------------
Sub cpte()
Dim cpt As Integer
cpt = Sheets.Count
MsgBox cpt
End Sub
'---------------------------
ok, impec

cet excellent msgbox affiche 430,
soit 1 feuille par client (c une TPE)
est-ce raisonnable ?
sinon quel est le bon compromis
entre 1 feuille/client ou 1 fichier/client ?
merci d'avance




Avatar
bpdu92
On Mon, 20 Aug 2007 12:04:49 +0200, "jps" wrote:

ben, tout dépend de ce que tu en fais de ce classeur client...si tu remues
430 feuilles alors que tu ne remues pas forcément les 430 clients, tu vas
fatiguer tes bras inutilement...
jps
donc nx100 feuilles c pas forcement à eviter ?

dans mon cas, chaque client (chaque feuille) est utilisé(e) selon
mails, appels tph,...peu prévisibles
ta meilleure recommandation, docteur ?
(me dis pas de prendre un soft specialisé)
merci

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

On Mon, 20 Aug 2007 07:19:05 +0200, Francois L
wrote:

bonjour à tous
je voudrais connaitre le nb de feuilles d'un classeur
à cet effet, j'ecris
sub cpte()
sheets.count
end sub
à l'execution, j'ai le message d'erreur
Erreur de compilation
Instruction incorrecte à l'exterieur d'une procedure
que faut-il corriger ?


Bonjour,

Il faut attribuer le résultat de Sheets.Count à une variable :
'--------------------------
Sub cpte()
Dim cpt As Integer
cpt = Sheets.Count
MsgBox cpt
End Sub
'---------------------------
ok, impec

cet excellent msgbox affiche 430,
soit 1 feuille par client (c une TPE)
est-ce raisonnable ?
sinon quel est le bon compromis
entre 1 feuille/client ou 1 fichier/client ?
merci d'avance






Avatar
bpdu92
On Mon, 20 Aug 2007 11:56:45 +0200, bpdu92 wrote:

On Mon, 20 Aug 2007 07:51:03 +0200, "Fredo P."
wrote:

sub cpte()
ActiveWorkbook.Sheets.Count
end sub
non, il affiche erreur de compil,

Utilisation incorrecte de la propriété
si je mets

x¬tivework...
msgbox x,
il boucle sur le OK du msgbox
alors Docteur ?
merci

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

bonjour à tous
je voudrais connaitre le nb de feuilles d'un classeur
à cet effet, j'ecris
sub cpte()
sheets.count
end sub
à l'execution, j'ai le message d'erreur
Erreur de compilation
Instruction incorrecte à l'exterieur d'une procedure
que faut-il corriger ?
merci d'avance







Avatar
Trirème
Bonjour tous,

1 feuille par client, cela veut dire que si un jour tu fais évoluer cette
feuille tu dois le faire pour toutes les feuilles. Bon, c'est vrai, la
fonctionnalité du groupe de travail (plusieurs feuilles sélectionnées) n'est
pas faite pour les chiens...

Ce que je fais (et en lisant le forum je vois que je ne suis pas le seul)
c'est une feuille de données avec autant de lignes que de clients et une
autre feuille 'Formulaire' qui affiche à la demande les données d'un client
que tu choisis dans une liste de validation ou dans un userform.
Tu peux créer des formulaires différents (facture, statut...) sans avoir à
dupliquer l'information.
Pour imprimer le formulaire pour un ou des clients tu crées un listbox à
choix multiple dans une petite macro.

Cordialement,
Trirème
1 2