Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Sélectionner nouvelle feuille par macro

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Calvus
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

Calvus

XLDnaute Barbatruc
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é.
Code: 
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.
 
Trier par date Trier par votes
Re : Sélectionner nouvelle feuille par macro

Bonsoir,
Essaies comme ceci
Code: 
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
 
Vote positif 0 Vote négatif
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
Code: 
Name = "Tableau 2"

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

Merci
 
Vote positif 0 Vote négatif
Re : Sélectionner nouvelle feuille par macro

Bonsoir Calvus,

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

Code: 
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.
 
Dernière édition:
Vote positif 0 Vote négatif
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 😱) :

Code: 
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
 
Dernière édition:
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
Re : Sélectionner nouvelle feuille par macro

re 🙂

Tu peux essayer en remplaçant cette ligne:

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

par ceci:

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

@ +
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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

@+
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

E
  • Question Question
formulaire avec vba
Réponses
8
Affichages
986
vgendron
F
  • Question Question
Microsoft 365 désactiver les filtres de plusieurs onglets et incrémenter les lignes
2
Réponses
17
Affichages
2 K
TooFatBoy
G
  • Question Question
XL 2019 VBA / Macro Impression avec nombre de copies variables par feuille à imprimer
Réponses
5
Affichages
2 K
Gasner
G
  • Résolu(e)
XL 2016 Changer de feuille dans une macro
2
Réponses
28
Affichages
4 K
Staple1600
M
  • Question Question
XL 2016 Problème Macro
2
Réponses
17
Affichages
2 K
patricktoulon
P
  • Question Question
Microsoft 365 Sélectionner une cellule hors du champ affiché de la feuille active sans qu'elle s'affiche
Réponses
4
Affichages
849
Deadpool_CC
M
  • Question Question
XL 2019 Macro copier /coller une ligne dans un tableau (du menu insertion/tableau)
Réponses
9
Affichages
2 K
micsel
M
D
  • Résolu(e)
XL 2013 Incompréhension sur macro
Réponses
3
Affichages
712
débutantplus
D
D
  • Question Question
XL 2010 Actualiser un TCD en utilisant la macro VBA
Réponses
0
Affichages
2 K
Demha_2022
D
B
  • Question Question
XL 2019 Sélectionner dernières cellules non vide sur une ligne (VBA)
2 3
Réponses
39
Affichages
4 K
bluesky12000
B
V
  • Résolu(e)
Microsoft 365 Afficher filtres appliqués par macro dans la cellule B3 directement et non par F5 puis Réinitialiser
Réponses
12
Affichages
2 K
VirginieG
V
A
  • Question Question
Microsoft 365 Problème, ma macro change la plage de cellule dans une autre feuille
Réponses
6
Affichages
2 K
akira21
A
J
  • Question Question
XL 2016 utilisation de la macro "worksheet_change" plusieurs fois dans la même feuille
2
Réponses
19
Affichages
3 K
jannine NOLAM
J
N
  • Question Question
Autres Code macro verrouillage / déverrouillage feuille et classeur
Réponses
1
Affichages
2 K
Nonomix
N
M
  • Résolu(e)
Supprimer une ligne d'un tableau selon la valeur d'une cellule sous VBA (sans supprimer les lignes au dessus)
Réponses
14
Affichages
9 K
MaDesn
M
P
  • Question Question
XL 2013 Copie de données à l'aide d'une macro - Souci
Réponses
1
Affichages
974
paita
P
B
  • Question Question
Microsoft 365 Copier et coller dans une nouvelle feuille que les valeurs et non les formules
2
Réponses
25
Affichages
3 K
Bob 31
B
R
  • Question Question
XL 2019 Optimisation de longueur de barre en long multiple
Réponses
3
Affichages
4 K
Ryoken
R
M
  • Question Question
XL 2016 Copier/coller de plusieurs cellules non contigües d'une feuille vers une ligne d'une autre feuille
Réponses
8
Affichages
3 K
Makovitch
M
  • Question Question
XL 2016 Insérer le contenu d'une ListBox dans cellules
Réponses
2
Affichages
2 K
Yoyo01000
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…