comptage nb de feuilles

Le
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses Page 1 / 2
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #4802861
Bonjour,

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

JB

On 20 août, 04:17, 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


Francois L
Le #4802851
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

Fredo P.
Le #4802821
sub cpte()
ActiveWorkbook.Sheets.Count
end sub
"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


bpdu92
Le #4802731
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
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





bpdu92
Le #4802711
On Mon, 20 Aug 2007 07:19:05 +0200, 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
'---------------------------
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


bpdu92
Le #4802701
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"
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





jps
Le #4802691
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"
On Mon, 20 Aug 2007 07:19:05 +0200, 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
'---------------------------
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




bpdu92
Le #4802681
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"
On Mon, 20 Aug 2007 07:19:05 +0200, 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
'---------------------------
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






bpdu92
Le #4802671
On Mon, 20 Aug 2007 11:56:45 +0200, 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é
si je mets

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

"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







Trirème
Le #4802641
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
Publicité
Poster une réponse
Anonyme