nom d'onglet dans cellule

[flo2002]

Re bonjour le forum,

je vous presente mon double probleme:
en premier lieu j'ai des noms d'onglets que je voudrais voire apparaitre dans des cellules de maniere à m'en resservir comme variables. Une private sub sur la feuille devrait etre bon mais comment?
Mon deuxieme probleme est que d'un fichier à un autre je n'est pas le meme nombre d'onglet et donc je vais en avoir des vides. Hors ma macro risque de planter si la variable est vide. Une condition devrais ici suffir.

Je vous remercie d'avance pour toute aide!

 

[Brigitte]

Re : nom d'onglet dans cellule

Bonjour Flo,

Pour le nom d'onglet, par formule en cas de besoin autre que dans une macro :

=STXT(CELLULE("Nomfichier";B2);TROUVE("]";CELLULE("nomfichier";B2))+1;32)

Peu importe le nom de la cellule (ici B2) tu peux mettre n'importe quoi..

 

[Shock]

Re : nom d'onglet dans cellule

Re,
Quand tu dis onglet, c'est dans un Userform, ou simplement le nom de tes feuilles?
parce que si c'est sur les feuilles, tu peux faire une boucle
For i = 1 to sheets.count
...
Next i
Ca s'adaptera à chaque fois.

 

[flo2002]

Re : nom d'onglet dans cellule

Bonjour et merci Brigitte (encore une fois bonne fête avec un jour de retard),

je ne comprend pas la formule qui cependant fonctionne.
Le fait de ne pas comprend m'empeche de changer des parametres pour avoir toutes mes feuilles jusqu'à la feuille "" (autrement dit plus de feuille)
merci

 

[Shock]

Re : nom d'onglet dans cellule

Comment? c'était la St Brigitte hier???!!!!
BONNE FETE!!!
...En plus, ca veut dire que j'ai oublié ma mère.... 🙁
J'm'en vas lui faire un mail!! 😉
Bye

 

[flo2002]

Re : nom d'onglet dans cellule

Bonjour shock,
ton idée me parait pas mal,
mais je n'ai aucune idée de comment le mettre en place.
Il faudrait non pas qu'il compte mais qu'il charge le nom et le decharge dans la cellule.
Merci d'avance!

 

[Brigitte]

Re : nom d'onglet dans cellule

Re,

Merci pour ma fête...

Voici un classeur où j'ai regroupé les macros offertes par Thierry (sur xld) lorsque j'avais demandé si on pouvait :

- compter le nombre de feuilles (pour une vérif)
- lister les feuilles

En faisant ALT/F11, tu devrais pouvoir voir le code qui même s'il ne correspond pas à ce que tu cherches, peut t'aider.

Bon courage, fait chaud !

 

[flo2002]

Re : nom d'onglet dans cellule

Merci Brigitte,
trés bon fichier je n'est plus qu'à adapter!

 

[Shock]

Re : nom d'onglet dans cellule

Je n'ai pas regardé le fichier, mais je pense que c'est plus ou moins la même chose :
Tu peux remplir une colonne par ex. :

Sub comptage()

For i = 1 To Sheets.Count
Cells(i, 1).Value = Sheets(i).Name
Next i

End Sub

A adapter un peu comme tu veux...

 

[flo2002]

Re : nom d'onglet dans cellule

Merci Shock, j'ai mis:

Private Sub workbook_open()

Dim i As Byte

For i = 1 To ThisWorkbook.Worksheets.Count
Cells(i, 6) = ThisWorkbook.Worksheets(i).Name
Next

End Sub

et ca marche!

merci encore!


pour mon second probleme je suis sur un on error go to,
mais le probleme est qu'il ferme tout sur l'erreur. J'ai on On Error Resume Next pour chacun sauf pour le dernier ou j'ai mis On Error GoTo 0.
A premiere vue il y a un soucis...

merci d'avance

 

[Shock]

Re : nom d'onglet dans cellule

je ne comprends pas tout à fait, quand tu dis "je vais en avoir des vides....ma macro risque de planter", tu parles des cellules vides?
Ta variable, tu l'utilises pour quoi?
Parce que, tu peux peut-etre faire une comparaison du sheets.count de chaque fichier, et fixer la fin de ta boucle sur celui qui est le maxi, et dans ce cas, remplir tes cellules avec un texte "générique" s'il n'y a pas assez de feuilles...enfin je sais, j'invente un peu mais pourquoi pas? 😀

 

[flo2002]

Re : nom d'onglet dans cellule

Merci à tous,
en faite j'ai 5 fois :

Workbooks.Open Filename:=fichier2
Windows(AAA).Activate
Windows(fichier2).Activate
Sheets("Rolling_Forecast").Select
Cells.Select
Selection.Copy
Windows(AAA).Activate
Sheets(feuil2).Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("A1").Select
Sheets("Garde").Select
Windows(fichier2).Activate
ActiveWorkbook.Close Filename:=fichier2
Windows(AAA).Activate

avec une variation des variables.

donc j'ai ajouté:

Out1:
On Error GoTo Out2

et ca marche!

merci