Rapport de message :*
 

Re: Afficher les nom des feuiiles et la cellule b2 de chaque feuilles dans une liste de choix

Titre du sujet : Re: Afficher les nom des feuiiles et la cellule b2 de chaque feuilles dans une liste de choix
par JCGL le 28/12/2008 17:57:15

Bonjour à tous,
Bienvenue à Mosta2010,

Peux-tu essayer avec ceci dans un Module Standard :

Option Explicit

Sub Liste()
Dim X As Byte
Sheets("Liste").Range("A2:B500").ClearContents

For X = 2 To Sheets.Count
With Sheets("Liste")
.Range("B" & Range("B65536").End(xlUp).Row + 1) = Sheets(X).Range("B2")
.Range("A" & Range("A65536").End(xlUp).Row + 1) = Sheets(X).Name
End With
Next X
End Sub

Clique sur le GO dans l'image

A+ à tous