modification code J.Boisgontier

zesuila · 13 Mai 2009

Bonjour à tous

Je cherche à récupérer les infos de plusieurs onglets dans un onglmet récap. J'aitrouvé mon bonheur (comme souvent !) chez Jacques Boisgontier. (fonction nom onglet)

Mais j'ai un petit soucis avec la formule

j'ai mis donc en A1 la formule suivante (et fait une copie dans les cellules dessous)
=SI(LIGNE()<=nbonglets()*2-1;nomonglet(ENT(LIGNE()/2)+1);"")

J'ai mis en b1 la formule suivante 🙁et fait une copie dans les cellules dessous)
=SI(ESTERREUR(INDIRECT("'"&$A1&"'!a7"));"";INDIRECT("'"&$A1&"'!a7"))

ce qui me répertorie les nom des onglets en A1 et va me chercher l'info voulue en B1 (cellule A7 de chaque onglet)

Le soucis c'est que chaque ligne est doublée
je me retrouve par exemple avec le nom de l'onglet "papa" en A1 mais aussi en A2 avec les mêmes infos (donc doublons)

Dois je changer quelque chose dans la formule dans A1 ou dans B1

Et si une âme charitable pouvait m'expliquer la formule en A1 (Jacques ?) ce serait vraiment bien.

je vous joins un fichier exemple

Merci

vbacrumble · 13 Mai 2009

Re : modification code J.Boisgontier

Bonjour

Essaie en modifiant ainsi

Code:

Function nbOnglets()[COLOR="Red"] As Long[/COLOR]
  Application.Volatile
  nbOnglets = Sheets.Count
End Function

et en A2 et A3 : =nomonglet(LIGNE())

Cela semble OK non ?

Hulk · 13 Mai 2009

Re : modification code J.Boisgontier

Hello Forum, Zesuila, Vbacrumble,

Ou, remplaces ta formule en A1 par celle-là.

Code:

=SI(LIGNE()<=nbonglets()*1;nomonglet(ENT(LIGNE()/1));"")

Cdt, Hulk.

vbacrumble · 13 Mai 2009

Re : modification code J.Boisgontier

Re

Hulk 😕😕

n*1 = n

n/1 = n

Alors pourquoi ?

Hulk · 13 Mai 2009

Re : modification code J.Boisgontier

Re,

Juste remarque 😀

Comme ça alors...

Code:

=SI(LIGNE()<=nbonglets();nomonglet(ENT(LIGNE()));"")

Et Zesuila, tu peux aussi mettre dans le code de la feuille "recap"...

Code:

Private Sub Worksheet_Activate()
    Calculate
End Sub

ou suivant l'envie...

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    Calculate
End Sub

Pour que ça soit dynamique.

Merci Vbacrumble !

Cdt, Hulk.

zesuila · 13 Mai 2009

Re : modification code J.Boisgontier

alors là super !
les deux fonctionnent (je n'en doutais point)
mais j'ai fais un "mix" des 2 codes proposés :
j'ai donc pris de vbacrumble ça :
Function nbOnglets() As Long
Application.Volatile
nbOnglets = Sheets.Count

et j'ai pris de Hulk ça :
=SI(LIGNE()<=nbonglets();nomonglet(ENT(LIGNE()));"")

car =nomonglet(LIGNE()) de vbacrumble me met des #valeurs après le dernier onglet listé.
c'est le côté "esthétique" qui a joué !!!

Et pour l'explication c'est possible?
en tout cas merci.
End Function

zesuila · 13 Mai 2009

Re : modification code J.Boisgontier

j'aurais une autre petite question par rapport à ce code :
là cela me liste tous les onglets.
Mais si par exemple je ne veux pas que l'onglet "truc" et l'onglet "machin" apparaissent dans la liste ya t il quelquechose à rajouter au code ?

encore merci

modification code J.Boisgontier

zesuila

XLDnaute Occasionnel

Pièces jointes

vbacrumble

XLDnaute Accro

Hulk

XLDnaute Barbatruc

vbacrumble

XLDnaute Accro

Hulk

XLDnaute Barbatruc

zesuila

XLDnaute Occasionnel

zesuila

XLDnaute Occasionnel

Discussions similaires

modification code J.Boisgontier

zesuila

XLDnaute Occasionnel

Pièces jointes

vbacrumble

XLDnaute Accro

Hulk

XLDnaute Barbatruc

vbacrumble

XLDnaute Accro

Hulk

XLDnaute Barbatruc

zesuila

XLDnaute Occasionnel

zesuila

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency