XL 2016 formule vba, after ou before

[Guismo33]

Bonjour à tous,
pourriez vous améliorer ce petit programme, il fonctionne très bien sauf qu'a la création des feuilles
il les places a gauche de la dernière feuille (before)
pourriez vous modifier pour qu'il place les feuilles vers la droite (after).

Application.DisplayAlerts = True
Set ongl = ThisWorkbook.Sheets.Add
ongl.Name = num
fich.Sheets(1).Cells.Copy
Workbooks(ThisWorkbook.Name).Activate
ongl.Select
Application.DisplayAlerts = False
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
fich.Close (False)

merci à vous tous

 

[Theze]

Bonjour,

Remplaces cette ligne :

Set ongl = ThisWorkbook.Sheets.Add

par cette ligne :

Set ongl = ThisWorkbook.Sheets.Add(, Sheets(Sheets.Count))

 

[vgendron]

Bonjour..
et si tu regardais l'aide VBA.. ca ne t'aurais pris que 20s !

pour trouver ceci
Set ongl = ThisWorkbook.Sheets.Add(after:=Worksheets(Worksheets.Count))

 

[Guismo33]

Bonjour..
et si tu regardais l'aide VBA.. ca ne t'aurais pris que 20s !

pour trouver ceci
Set ongl = ThisWorkbook.Sheets.Add(after:=Worksheets(Worksheets.Count))

Bonjour,

j'avais trouver mais, il reconnais la première feuille,puis après il met tous sur la gauche (soit décroissant).

merci a toi

 

[vgendron]

il met tous sur la gauche

??
je viens de REfaire le test.. et la nouvelle feuille est bien mise tout à droite...

Sub ajout()

num = 1
Set ongl = ThisWorkbook.Sheets.Add(after:=Worksheets(Worksheets.Count))
ongl.Name = num

End Sub

 

[vgendron]

et même ceci donne de nouvelles feuilles dans l'ordre de leur création

Sub ajout()

For num = 1 To 5
    Set ongl = ThisWorkbook.Sheets.Add(after:=Worksheets(Worksheets.Count))
    ongl.Name = num
Next num

End Sub

 

[Guismo33]

et même ceci donne de nouvelles feuilles dans l'ordre de leur création

Sub ajout()

For num = 1 To 5
    Set ongl = ThisWorkbook.Sheets.Add(after:=Worksheets(Worksheets.Count))
    ongl.Name = num
Next num

End Sub

Bonjour,
ok, je vous remercie petit soucis avec excel.

bien à vous

 

[Theze]

Bonjour,

Il faut savoir qu'il y a une petite différence entre Worksheets et Sheets, Worksheets représente exclusivement la collection de feuilles de calcul alors que Sheets, représente toutes les feuilles qu'il peut y avoir dans le classeur, feuille de calcul, feuille graphique, feuilles macro