Macro List Feuil dans Colonnes.....

MuscatMimi · 11 Juin 2009

Macro List Feuil dans Colonnes.....RESOLU

Bonjour a tous

Voila , j'ai cette Macro qui me permet de Lister les Feuil de mon classeur
si j'en ajoute ,ça me les List en Col A
mais si j'en supprime, rien ne ce supprime dans ma colonne A
quelle modifs a y apporter??

Sub ListeFeuilles()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set ArrFeuil = Sheets("Liste des feuilles")
ArrFeuil.Cells(1, 1).Value = "Tableau des feuilles"
For i = 2 To ActiveWorkbook.Sheets.Count
ArrFeuil.Cells(i, 1).Value = Sheets(i).Name
Next i
Application.DisplayAlerts = True
Alerte = True
Application.ScreenUpdating = True
End Sub

Merci a l'avance
Cordialement

jeanpierre · 11 Juin 2009

Re : Macro List Feuil dans Colonnes.....

Bonjour vaucluse immo,

Essaie avec : Sheets("Feuil1").Range("A:A").ClearContents , où Feuil1 est à remplacer par le nom de ta feuille.

à installer en début de macro.

Bonne journée.

Jean-Pierre

MuscatMimi · 11 Juin 2009

Re : Macro List Feuil dans Colonnes.....

Bonjour jean pierre

merci de ta réponse , mais en fait me suis trompé de code, quand j'ai fais mon copier / Coller
C'est celui-ci dont il s'agit

Private Sub Workbook_NewSheet(ByVal Sh As Object)
Application.ScreenUpdating = False
Application.DisplayAlerts = False

Set ArrFeuil = Sheets("Feuil1")
ArrFeuil.Cells(1, 1).Value = "Tableau des feuilles"
For i = 2 To ActiveWorkbook.Sheets.Count
ArrFeuil.Cells(i, 1).Value = Sheets(i).Name
Next i
Application.DisplayAlerts = True
Alerte = True
Application.ScreenUpdating = True
End Sub

l'autre, j'avais trouvé, j'ai noté en début de macro

With Sheets("Feuil1")
.Range("A2:A50").ClearContents
End With

MuscatMimi · 11 Juin 2009

Re : Macro List Feuil dans Colonnes.....

Re

Hello, personne qui peut apporter une réponse a mon soucis..

Bonne soirée

BOISGONTIER · 11 Juin 2009

Re : Macro List Feuil dans Colonnes.....

Bonsoir,

Dans la feuille qui contient la liste:

Code:

Private Sub Worksheet_Activate()
    [A:A].ClearContents
    For i = 2 To Sheets.Count
      Cells(i, 1) = Sheets(i).Name
    Next i
End Sub

JB

MuscatMimi · 11 Juin 2009

Re : Macro List Feuil dans Colonnes.....RESOLU

Bonsoir Boisgontier

Merci pour cette réponse, qui fonctionne a merveille

Bonne soirée

Macro List Feuil dans Colonnes.....

MuscatMimi

XLDnaute Accro

jeanpierre

Nous a quitté

MuscatMimi

XLDnaute Accro

MuscatMimi

XLDnaute Accro

BOISGONTIER

XLDnaute Barbatruc

MuscatMimi

XLDnaute Accro

Discussions similaires

Macro List Feuil dans Colonnes.....

MuscatMimi

XLDnaute Accro

jeanpierre

Nous a quitté

MuscatMimi

XLDnaute Accro

MuscatMimi

XLDnaute Accro

BOISGONTIER

XLDnaute Barbatruc

MuscatMimi

XLDnaute Accro

Discussions similaires

Privacy & Transparency

Privacy & Transparency