nom de l'onglet actuel dans vba

zumye · 20 Février 2008

bonsoir
dans le programme vba comment appelle t on l'onglet actuelle d'une feuille sur laquelle on travaille?

exemple: au lieu de "original" je voudrai l'onglet sur la feuille dont je travaille

Private Sub CommandButton1_Click()
Dim NomOngl As String
NomOngl = Sheets("COULEUR").Range("B65000").End(xlUp).Value
Sheets("Original").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = NomOngl
Sheets("COULEUR").Range("B65000").End(xlUp).Delete
End Sub

et j'aimerai savoir si également sur ce meme cas s'il est possible qu' au lieu de "original" on me pose la question "quel onglet voulez vous copier? et je rentrai moi meme le nom
merci

skoobi · 20 Février 2008

Re : nom de l'onglet actuel dans vba

Bonsoir,

au lieu de "original" je voudrai l'onglet sur la feuille dont je travaille

voici:

Code:

[COLOR=Blue][B]ActiveSheet[/B][/COLOR].Copy After:=Sheets(Sheets.Count)

et j'aimerai savoir si également sur ce meme cas s'il est possible qu' au lieu de "original" on me pose la question "quel onglet voulez vous copier? et je rentrai moi meme le nom

Code:

 Private Sub CommandButton1_Click()
Dim NomOngl As String
NomOngl = Sheets("COULEUR").Range("B65000").End(xlUp).Value
[COLOR=Blue][B] Nom = InputBox ("Quelle feuille à copier?")[/B][/COLOR]
Sheets([COLOR=Blue][B]Nom[/B][/COLOR]).Copy After:=Sheets(Sheets.Count)
[COLOR=Black]ActiveSheet[B].[/B][/COLOR]Name = NomOngl
Sheets("COULEUR").Range("B65000").End(xlUp).Delete
End Sub

zumye · 20 Février 2008

Re : nom de l'onglet actuel dans vba

Super Ca Marche
Merci Beaucoup

nom de l'onglet actuel dans vba

zumye

XLDnaute Occasionnel

skoobi

XLDnaute Barbatruc

zumye

XLDnaute Occasionnel

Discussions similaires

nom de l'onglet actuel dans vba

zumye

XLDnaute Occasionnel

skoobi

XLDnaute Barbatruc

zumye

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency