Sélectionner nouvelle feuille par macro

[Calvus]

Bonsoir le forum,

J'ai utilisé l'enregistreur de macro, afin de pouvoir créer un bouton.
Le but est de créer une nouvelle feuille, afin de copier un tableau présent sur une feuille initiale.
Ensuite, la nouvelle feuille est nommée.
Il y a un bug, car la macro enregistrée ne retrouve pas la feuille sélectionnée.
comment dire donc, selcetionner la nouvelle feuille ?

voici le code généré.

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 16/11/2010
'

'
    Sheets("Données").Select
    Sheets.Add
    Sheets("Tableau").Select
    Selection.Copy
    
[B]Sheets("Feuil4").Select[/B]

[COLOR="Blue"]Le problème est ici, pour l'instant en tout cas.[/COLOR]

    ActiveSheet.Paste
    ActiveWindow.Zoom = 90
    Range("B8").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("F8:F26").Select
    Selection.ClearContents
    Range("G8:G26").Select
    Selection.ClearContents
    Range("I8:I26").Select
    Selection.ClearContents
    Range("B8").Select
    Sheets("Feuil4").Select
    Sheets("Feuil4").Name = "Tableau 2"
End Sub

Je précise que je suis loin (très très très loin) d'être un spécialiste du vba.

Merci d'avance.

 

[Calvus]

Re : Sélectionner nouvelle feuille par macro

Salut ami poisson et connaisseur

en effet, c'est le modèle à recopier.

Merci

 

[kjin]

Re : Sélectionner nouvelle feuille par macro

Bonsoir,
Essaies comme ceci

Sub Macro1()
Sheets("Tableau").Copy after:=Sheets(Sheets.Count)
With ActiveSheet
    .Name = "Tableau 2"
    .Range("B8, F8:F26 ,G8:G26, I8:I26").ClearContents
    ActiveWindow.Zoom = 90
End With
End Sub

Edit : bonsoir le squale
A+
kjin

 

[Calvus]

Re : Sélectionner nouvelle feuille par macro

Re

Merci kjin pour ta solution courte et efficace, ainsi qu'à toi carcharodon (toi t'as vraiment un nom à même pas pouvoir coucher dehors ! )

En revanche, je n'avais pas prévu ça, comment éviter le conflit avec le nom chaque fois qu'une nouvelle feuille est créée ?

Ici

Name = "Tableau 2"

Pourrait on ajouter un nouveau numéro à chaque fois par exemple ?

Merci

 

[Papou-net]

Re : Sélectionner nouvelle feuille par macro

Bonsoir Calvus,

Tu devrais renommer ta feuille juste après la création, comme ceci par exemple :

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 16/11/2010
'

'
    Sheets("Données").Select
    Sheets.Add
    Sheets(Sheets.Count).Name = "Tableau 2"
    Sheets("Tableau").Select
    Selection.Copy
    
    Sheets("Tableau 2").Select

    ActiveSheet.Paste
    ActiveWindow.Zoom = 90
    Range("B8, F8:F26, G8:G26, I8:I26").ClearContents
    Application.CutCopyMode = False
    Range("B8").Select

End Sub

J'en ai profité pour simplifier les lignes de code (les macros ont la fâcheuse tendance de parler pour ne rien dire). Tu peux effacer des cellules non contigües en une seule opération, il suffit de les séparer par une virgule.

Espérant t'avoir aidé.

Cordialement.

Oups, bonsoir à tous, je retire ce message, je n'avais pas vu les réponses précedentes.

 

[kjin]

Re : Sélectionner nouvelle feuille par macro

Re,

suis trop lent

Non...je nage plus vite

arf tu m'a coupées l'herbe sous le pied

Des pieds ?!
Désolé c'était involontaire
A+
kjin

 

[mth]

Re : Sélectionner nouvelle feuille par macro

Bonsoir à tous

Juste histoire de participer, je suis partie du code de kjin et j'ai tenté d'ajouter quelques contrôles (j'espère ne pas avoir trop abîmé ton code kjin ) :

Sub macro2()
Dim Feuille As Worksheet
Dim Message As String, MyValue As String
Sheets("Tableau").Copy after:=Sheets(Sheets.Count)
Message = "Entrez le nom du nouvel onglet"
MyValue = InputBox(Message)
For Each Feuille In ThisWorkbook.Worksheets
    If Feuille.Name = MyValue Then
        MsgBox "La Feuille existe déjà"
        Exit Sub
    End If
Next
With ActiveSheet
    .Name = MyValue
    .Range("B8, F8:F26 ,G8:G26, I8:I26").ClearContents
    ActiveWindow.Zoom = 90
End With
End Sub

Grosse bise à vous trois et @ +

mth


Edit: oups youpiii plein de monde sur le fil
Bonsoir papou net, je ne t'avais pas vu
@+
m

 

[Calvus]

Re : Sélectionner nouvelle feuille par macro

Mth, T'ES LA TOI ??

Ton code fonctionne à merveille ! Pour une tchatcheuse qui sait faire que ça.....

Papou net, merci, mais il y a un problème avec ton code. Il me crée un nouvel onglet en effet, mais vierge !

en tout cas, la solution apportée par Mth me convient parfaitement.

Ya plus qu'à tenter de coller un bouton à tout ça.

Merci à tous

 

[mth]

Re : Sélectionner nouvelle feuille par macro

re

Arf

Pour une tchatcheuse qui sait faire que ça.....

Sourire ... c'est vrai que je suis bavarde parfois mais ... je me demande si tu n'es pas pire que moi

Toujours beau chez toi? (tristounet ici)

Bisous,

m

 

[Calvus]

Re : Sélectionner nouvelle feuille par macro

Toujours beau moi...euh.... chez moi je voulais dire.
Enfin comme d'hab quoi !

Dis moi Mimi, comment faire pour avoir l'onglet créé en deuxième position et non pas à la fin du classeur ?

Bisous

 

[mth]

Re : Sélectionner nouvelle feuille par macro

re

Hey, carcha c'est affreux, je suis rien de tout ça ! Bon, je me jette dans la Seine dès demain matin

 

[mth]

Re : Sélectionner nouvelle feuille par macro

re

Tu peux essayer en remplaçant cette ligne:

Sheets("Tableau").Copy after:=Sheets(Sheets.Count)

par ceci:

Sheets("Tableau").Copy after:=Sheets(1)

@ +

 

[Calvus]

Re : Sélectionner nouvelle feuille par macro

Super

Thank's a lot !

Tu mérites amplement ton titre de Barbatruc.

 

[mth]

Re : Sélectionner nouvelle feuille par macro

re

Sourire... si Barbatruc veut dire bavarde, voui

Parce que pour le reste, c'est moins évident, et rendons à César ce qui appartient à Kjin, parce n'oublie pas, je suis partie de son code

Bise à tous et bonne nuit ,

mth

 

[Calvus]

Re : Sélectionner nouvelle feuille par macro

Ah ! j'ai failli oublier !

Il faudrait ajouter la protection de la feuille en dévérouillant les même plages de cellules.

Cad que la saisie peut se faire de A8:A26
F8:F26
G8:G26
I8:I26

Merci

@+