XL 2016 formule vba, after ou before

Guismo33 · 17 Octobre 2017

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 · 17 Octobre 2017

Bonjour,

Remplaces cette ligne :

Code:

Set ongl = ThisWorkbook.Sheets.Add

par cette ligne :

Code:

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

vgendron · 17 Octobre 2017

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 · 17 Octobre 2017

vgendron à dit:
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 · 17 Octobre 2017

Guismo33 à dit:
il met tous sur la gauche

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

VB:

Sub ajout()

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

End Sub

vgendron · 17 Octobre 2017

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

VB:

Sub ajout()

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

End Sub

Guismo33 · 25 Octobre 2017

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

VB:

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 · 26 Octobre 2017

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

XL 2016 formule vba, after ou before

Guismo33

XLDnaute Occasionnel

Theze

XLDnaute Occasionnel

vgendron

XLDnaute Barbatruc

Guismo33

XLDnaute Occasionnel

vgendron

XLDnaute Barbatruc

vgendron

XLDnaute Barbatruc

Guismo33

XLDnaute Occasionnel

Theze

XLDnaute Occasionnel

Discussions similaires