Petit détail mais qui énerve

Bonjours. Voilà j'ai un souci au niveau visuel.

J'ai une macro listerecette (qui correspond à liste onglet).

Sub listeonglet()

Application.screenupdating=false

Dim i as integer

Sheets(1).select

Columns("a:a"). Select

Selection. Delete shift:xltoleft

Range ("A1"). Select

For I =1 to sheets. Count

Activecell.value=sheets(I). Name

Activrcell.offset(1,0).select

Next i

Sheets(2).select

Application. Screenupdating=true

End sub

Voila le souci c'est que vu que la sollicite souvent pour qu'elle se mette à jour lorsque je supprime une recette ou en ajout une je vois ça procedure (la feuil ne s'ouvre pas ça c'est OK mais les noms s'affiche et s'enlève une fois fini. Je trouve que ça fais pas jolie et espère que quelqu'un aurais une idée.

Desole si je me suis mal exprimé.

Cdt

Bonjour,

Essaie :

Sub listeonglet()
Dim i As Integer
   Application.ScreenUpdating = False
   With Sheets(1)
      .Columns("a:a").Delete shift:=xlToLeft
      For i = 1 To Sheets.Count
         .Range("A" & i).Value = Sheets(i).Name
      Next i
   End With
   Application.ScreenUpdating = True
End Sub

Bonjour,

Pas sur d'avoir bien compris, votre code en retour :

Sub listeonglet()

Dim i As Integer

Application.ScreenUpdating = False
With Sheets(1)
    .Columns("A:A").Delete
    For i = 1 To Sheets.Count
        .Range("A" & i) = Sheets(i).Name
    Next i
End With

End Sub

Pas de sélections inutiles, ce sera plus rapide et visuellement l'affichage restera là où vous l'avez laissé en exécutant la macro.

Edit : salut pijaku ! Je vois qu'on est en phase

Tout d'abord merci à vous. Le problème d'affichage de la macro c'est bon mais du coup ça le fait sur aussi sur sheetactive

Donc ça efface ma colonne a et mais des #ref ça case mes formule sur la page

Je m'excuse c'est moi qui ai oublié le point avant Columns.

Cest parfais vous avez gérer. Merci à vous 2

Thomas87 a écrit :

Cest parfais vous avez gérer. Merci à vous 2