Lister et figer nom feuille

bonjour squeepy,

pour la 1ère question :
If f.name <> "zaza" or f.name <> "jiji" or f.name <> "lolo" then

et pour la 2ème :
=RECHERCHEV($C$1;INDIRECT(A1&"!$A$2:$D$6");3;VRAI)

isabelle

Bonjour

J'ai lu un poste qui permet de lister les noms de toutes feuilles d'un
fichier excel. Impec : ca marche, je voulais savoir si il y avait moyen de
faire un except, c'est à dire de ne pas lister les 2 é et les 3e dernieres
par ex

De plus, je me suis lancer dans la recherchev avec une formule du genre
=RECHERCHEV($C$1;Paris!$A$2:$D$6;3;VRAI)
ca permet d'aller me chercher une info dans la feuille Paris
J'aimerais savoir si, au lieu de Paris, j'aurai possibilité de mettre le nom
de la ville qui correspond dans la cellule A, et que si je fais une recopie
automatique vers le bas, ca change automatiquement

merci pour la 2)
ca a l air de fonctionner par contre pour la 1, j'ai pas tout compris
Voici la macro :
Private Sub Worksheet_Activate()
zz = Sheets.Count
For i = 1 To zz
Cells(i, 1).Value = Sheets(i).Name
Next
End Sub


J'aimerai enlever les feuilles se nommant
feuil1
feuil2
feuil3
liste

merci

--
Merci de votre aide

bonjour squeepy,

pour la 1ère question :
If f.name <> "zaza" or f.name <> "jiji" or f.name <> "lolo" then

et pour la 2ème :
=RECHERCHEV($C$1;INDIRECT(A1&"!$A$2:$D$6");3;VRAI)

isabelle

Bonjour

J'ai lu un poste qui permet de lister les noms de toutes feuilles d'un
fichier excel. Impec : ca marche, je voulais savoir si il y avait moyen de
faire un except, c'est à dire de ne pas lister les 2 é et les 3e dernieres
par ex

De plus, je me suis lancer dans la recherchev avec une formule du genre
=RECHERCHEV($C$1;Paris!$A$2:$D$6;3;VRAI)
ca permet d'aller me chercher une info dans la feuille Paris
J'aimerais savoir si, au lieu de Paris, j'aurai possibilité de mettre le nom
de la ville qui correspond dans la cellule A, et que si je fais une recopie
automatique vers le bas, ca change automatiquement

rebonjour squeepy,

Private Sub Worksheet_Activate()
For Each f In Worksheets
y = f.Name
If f.Name <> "Feuil1" And f.Name <> "Feuil2" And f.Name <> "Feuil3" And f.Name <> "liste" Then
x = x + 1
Cells(x, 1).Value = f.Name
End If
Next
End Sub

isabelle

merci pour la 2)
ca a l air de fonctionner par contre pour la 1, j'ai pas tout compris
Voici la macro :
Private Sub Worksheet_Activate()
zz = Sheets.Count
For i = 1 To zz
Cells(i, 1).Value = Sheets(i).Name
Next
End Sub


J'aimerai enlever les feuilles se nommant
feuil1
feuil2
feuil3
liste

merci

merci Isabelle
vu que tu as l'air de maitriser indirect, tu pourrais me marquer la syntaxe
en imaginant que j'aimerait rechercher la valeur d'une feuille se nommant
Paris mais sur un autre classeur (ex : Magasin)
--
Merci de votre aide

rebonjour squeepy,

Private Sub Worksheet_Activate()
For Each f In Worksheets
y = f.Name
If f.Name <> "Feuil1" And f.Name <> "Feuil2" And f.Name <> "Feuil3" And f.Name <> "liste" Then
x = x + 1
Cells(x, 1).Value = f.Name
End If
Next
End Sub

isabelle

merci pour la 2)
ca a l air de fonctionner par contre pour la 1, j'ai pas tout compris
Voici la macro :
Private Sub Worksheet_Activate()
zz = Sheets.Count
For i = 1 To zz
Cells(i, 1).Value = Sheets(i).Name
Next
End Sub


J'aimerai enlever les feuilles se nommant
feuil1
feuil2
feuil3
liste

merci

merci Isabelle
vu que tu as l'air de maitriser indirect, tu pourrais me marquer la syntaxe
en imaginant que j'aimerait rechercher la valeur d'une feuille se nommant
Paris mais sur un autre classeur (ex : Magasin)

voilà,

=RECHERCHEV($C$1;INDIRECT("[Magasin.xls]"&A1&"!$A$2:$D$6");3;VRAI)

mais il faut impérativement que le classeur Magasin soit ouvert pour utiliser la fonction INDIRECT

isabelle

Je suis entrain de travailler sur un fichier, puis je te soumettre mon
probléme?
--
Merci de votre aide

merci Isabelle
vu que tu as l'air de maitriser indirect, tu pourrais me marquer la syntaxe
en imaginant que j'aimerait rechercher la valeur d'une feuille se nommant
Paris mais sur un autre classeur (ex : Magasin)

voilà,

=RECHERCHEV($C$1;INDIRECT("[Magasin.xls]"&A1&"!$A$2:$D$6");3;VRAI)

mais il faut impérativement que le classeur Magasin soit ouvert pour utiliser la fonction INDIRECT

isabelle

bien sur,

Tu peux "déposer" ton fichier à cette adresse:

http://www.cjoint.com

et venir donner ici le lien de téléchargement que le site va donner.

isabelle

Je suis entrain de travailler sur un fichier, puis je te soumettre mon
probléme?

En fait, je travaille sur 2 fichiers
Un fichier stock.xls
Un fichier Synthese.xls

Dans le fichier stock.xls, j'ai une 20aine de feuilles se nommant chacune
avec le nom d'une ville
Dans chacune de ces feuilles, j'ai différentes informations
Ex : feuille Paris, en C2:D2 (cellules fusionnées), c'est marqué stylo paris
En G2, j'ai la taille du stylo (ex : 5)
En C3:D3 (cellules fusionnées), j'ai un type (ex : H8)
En D27, j'ai un chiffre, (ex : 5)

feuille Marseille, je peux avoir en C2:D2, stylo marseille par ex
En G2, 7
en C3:D3, H5
En D27, 8

... sur autant de feuilles dans le fichier

Ce que j'aimerais faire
C'est dans Synthese.xls

en B2, j'aurais la valeur de C2:D2 de la feuille PAris du fichier stock.xls
en C2, j'aurais la valeur de G2 de la feuille PAris du fichier stock.xls
en D2, j'aurais la valeur de C3:D3 de la feuille Paris du fichier stock.xls
en E2, j'aurais la valeur de D27 de la feuille PAris du fichier stock.xls
en B3, j'aurais la valeur de C2:D2 de la feuille MArseille du fichier
stock.xls
en C2, j'aurais la valeur de G2 de la feuille Marseille du fichier stock.xls
en D2, j'aurais la valeur de C3:D3 de la feuille Marseille du fichier
stock.xls
en E2, j'aurais la valeur de D27 de la feuille Marseille du fichier stock.xls

Donc si tu pourrais m'aider stp

Et dernière question, est ce que c'est la même procédure si j'ai 3e fichier
se nommant Stock2.xls?

merci
--
Merci de votre aide

bien sur,

Tu peux "déposer" ton fichier à cette adresse:

http://www.cjoint.com

et venir donner ici le lien de téléchargement que le site va donner.

isabelle

Je suis entrain de travailler sur un fichier, puis je te soumettre mon
probléme?

pour lister les feuilles du classeur stock (qui est ouvert) sur la feuille active du classeur Synthese,

Sub Macro1()
With Workbooks("stock.XLS")
For Each f In .Worksheets
y = f.Name
If f.Name <> "Feuil1" And f.Name <> "Feuil2" And f.Name <> "Feuil3" And f.Name <> "liste" Then
x = x + 1
Cells(x, 1).Value = f.Name
End If
Next
End With
End Sub


si tu peut mettre un exemple de la feuille du fichier Synthese et un exemple de la feuille stock dans un même fichier,
et le mettre ici http://www.cjoint.com
ça serait plus aisé pour moi de faire la formule

isabelle

En fait, je travaille sur 2 fichiers
Un fichier stock.xls
Un fichier Synthese.xls

Dans le fichier stock.xls, j'ai une 20aine de feuilles se nommant chacune
avec le nom d'une ville
Dans chacune de ces feuilles, j'ai différentes informations
Ex : feuille Paris, en C2:D2 (cellules fusionnées), c'est marqué stylo paris
En G2, j'ai la taille du stylo (ex : 5)
En C3:D3 (cellules fusionnées), j'ai un type (ex : H8)
En D27, j'ai un chiffre, (ex : 5)

feuille Marseille, je peux avoir en C2:D2, stylo marseille par ex
En G2, 7
en C3:D3, H5
En D27, 8

... sur autant de feuilles dans le fichier

Ce que j'aimerais faire
C'est dans Synthese.xls

en B2, j'aurais la valeur de C2:D2 de la feuille PAris du fichier stock.xls
en C2, j'aurais la valeur de G2 de la feuille PAris du fichier stock.xls
en D2, j'aurais la valeur de C3:D3 de la feuille Paris du fichier stock.xls
en E2, j'aurais la valeur de D27 de la feuille PAris du fichier stock.xls
en B3, j'aurais la valeur de C2:D2 de la feuille MArseille du fichier
stock.xls
en C2, j'aurais la valeur de G2 de la feuille Marseille du fichier stock.xls
en D2, j'aurais la valeur de C3:D3 de la feuille Marseille du fichier
stock.xls
en E2, j'aurais la valeur de D27 de la feuille Marseille du fichier stock.xls

Donc si tu pourrais m'aider stp

Et dernière question, est ce que c'est la même procédure si j'ai 3e fichier
se nommant Stock2.xls?

merci

voici le lien pour le fichier stock
http://cjoint.com/?mDphxnLjF4

voici le lien pr le fichier synthese
http://cjoint.com/?mDpiL8qW0O

En te remerciant

--
Merci de votre aide

pour lister les feuilles du classeur stock (qui est ouvert) sur la feuille active du classeur Synthese,

Sub Macro1()
With Workbooks("stock.XLS")
For Each f In .Worksheets
y = f.Name
If f.Name <> "Feuil1" And f.Name <> "Feuil2" And f.Name <> "Feuil3" And f.Name <> "liste" Then
x = x + 1
Cells(x, 1).Value = f.Name
End If
Next
End With
End Sub


si tu peut mettre un exemple de la feuille du fichier Synthese et un exemple de la feuille stock dans un même fichier,
et le mettre ici http://www.cjoint.com
ça serait plus aisé pour moi de faire la formule

isabelle

En fait, je travaille sur 2 fichiers
Un fichier stock.xls
Un fichier Synthese.xls

Dans le fichier stock.xls, j'ai une 20aine de feuilles se nommant chacune
avec le nom d'une ville
Dans chacune de ces feuilles, j'ai différentes informations
Ex : feuille Paris, en C2:D2 (cellules fusionnées), c'est marqué stylo paris
En G2, j'ai la taille du stylo (ex : 5)
En C3:D3 (cellules fusionnées), j'ai un type (ex : H8)
En D27, j'ai un chiffre, (ex : 5)

feuille Marseille, je peux avoir en C2:D2, stylo marseille par ex
En G2, 7
en C3:D3, H5
En D27, 8

... sur autant de feuilles dans le fichier

Ce que j'aimerais faire
C'est dans Synthese.xls

en B2, j'aurais la valeur de C2:D2 de la feuille PAris du fichier stock.xls
en C2, j'aurais la valeur de G2 de la feuille PAris du fichier stock.xls
en D2, j'aurais la valeur de C3:D3 de la feuille Paris du fichier stock.xls
en E2, j'aurais la valeur de D27 de la feuille PAris du fichier stock.xls
en B3, j'aurais la valeur de C2:D2 de la feuille MArseille du fichier
stock.xls
en C2, j'aurais la valeur de G2 de la feuille Marseille du fichier stock.xls
en D2, j'aurais la valeur de C3:D3 de la feuille Marseille du fichier
stock.xls
en E2, j'aurais la valeur de D27 de la feuille Marseille du fichier stock.xls

Donc si tu pourrais m'aider stp

Et dernière question, est ce que c'est la même procédure si j'ai 3e fichier
se nommant Stock2.xls?

merci