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

copy d'une feuille modele avec un bouton

Créer une discussion

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
Y

yblotiere

XLDnaute Occasionnel
Bonjour

lorsque j'appuie sur mon bouton qui doit copier les feuille modèle en prenant l'immat dans ma liste
j'ai un message d"erreur je vous joint mon fichier c'est une copie

merci pour votre aide

yannick
 

Pièces jointes

Trier par date Trier par votes
Re : copy d'une feuille modele avec un bouton

Effectivement JM
les 2 sont en lien mais n’ayant plus de réponse sur l'autre et ayant réussi a avancer un petit peu je me suis dit que cela serait peut être aussi simple




merci

yannick
 
Vote positif 0 Vote négatif
Re : copy d'une feuille modele avec un bouton

Bonsoir à tous

yblotiere
Quel message d'erreur s'affiche-t-il donc?
Au niveau de quelle ligne de ton code ?

EDITION: Bonjour Lonely Wolfy
 
Dernière édition:
Vote positif 0 Vote négatif
Re : copy d'une feuille modele avec un bouton

Bonsoir yblotiere, Staple.


Code: 
Sub Creer_Feuilles()
Dim MaCellule As Range, Mysheet As Worksheet, MyName$
Range("A5", Range("A5").End(xlDown)).Select
For Each MaCellule In Selection 'liste des immats
MyName = MaCellule.Value
If MyName <> "" Then
On Error Resume Next
Set Mysheet = Sheets(MyName)
On Error GoTo 0
If Mysheet Is Nothing Then Sheets.Copy.Sheets("saisi GO MODELE").Copy After:=Sheets(1)
Sheets("saisi GO MODELE 2").Copy After:=Sheets(1) = "Saisi go " & MyName
End If
Next MaCellule
Sheets("creation").Select
Range("A5", Range("A5").End(xlDown)).Select
For Each MaCellule In Selection 'liste des immats
MyName = MaCellule.Value
If MyName <> "" Then
On Error Resume Next
Set Mysheet = Sheets(MyName)
On Error GoTo 0
If Mysheet Is Nothing Then Sheets.Copy.Sheets("ventil MODELE").Copy After:=Sheets(1)
Sheets("ventil MODELE 2").Copy After:=Sheets(1) = "Ventil " & MyName
End If
Next MaCellule
End Sub

Je suppose que MyName$ = Range("A5", Range("A5").End(xlDown)).Select.




Une idée (lignes à modifier)
Met les noms de feuille en Majuscule comme on les vois dans le classeurs.

Dim MaCellule As Range, Mysheet As Worksheet, MyName$

MaCellule = Sheets("creation").Range("A5", Range("A5").End(xlDown)).Text
MaCellule.Select


Au lieu de Sheets("creation").Select ( Select répétitifs )

Dim sh As Worksheet

Set sh = Feuil23 (qui est Sheets("Creation"))
sh.Range("A5", Range("A5").End(xlDown)).Select.

Pour les copies

Sheets.Copy.Sheets("ventil MODELE").Copy After:=Sheets(1)
Il y a deux fois Sheets.Copy.

EDIT: Regarde si le fichier joint peut t'aider.


A+ 😎
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : copy d'une feuille modele avec un bouton

re
merci à tous les 2
mais je me suis embrouillé dans le code je crois
j'ai un message erreur de compilation a ce niveau

Code: 
If Mysheet Is Nothing Then Sheets.Copy.Sheets("Saisi Go Modele").Copy After:=Sheets(1)

voici le code que j'ai

Code: 
Sub Creer_Feuilles()
Dim MaCellule As Range, Mysheet As Worksheet, MyName$
Range("A5", Range("A5").End(xlDown)).Select
Dim sh As Worksheet
Set sh = Feuil23
sh.Range("A5", Range("A5").End(xlDown)).Select
MaCellule = Sheets("creation").Range("A5", Range("A5").End(xlDown)).Text
MaCellule.Select
For Each MaCellule In Selection 'liste des immats
MyName = MaCellule.Value
If MyName <> "" Then
On Error Resume Next
Set Mysheet = Sheets(MyName)
On Error GoTo 0
If Mysheet Is Nothing Then Sheets.Copy.Sheets("Saisi Go Modele").Copy After:=Sheets(1)
Sheets("saisi Go Modele 2").Copy After:=Sheets(1) = "Saisi Go " & MyName
End If
Next MaCellule
Sheets("Creation").Select
Range("A5", Range("A5").End(xlDown)).Select
For Each MaCellule In Selection 'liste des immats
MyName = MaCellule.Value
If MyName <> "" Then
On Error Resume Next
Set Mysheet = Sheets(MyName)
On Error GoTo 0
If Mysheet Is Nothing Then Sheets.Copy.Sheets("Ventil MODELE").Copy After:=Sheets(1)
Sheets("ventil MODELE 2").Copy After:=Sheets(1) = "Ventil " & MyName
End If
Next MaCellule
End Sub

merci

yannick
 
Vote positif 0 Vote négatif
Re : copy d'une feuille modele avec un bouton

Re,


Ceci est incorrect
MaCellule = Sheets("creation").Range("A5", Range("A5").End(xlDown)).Text
MaCellule.Select

Cela devrait être
Set MaCellule = Sheets("creation").Range("A5", Range("A5").End(xlDown))
MaCellule.Select

Puisque on au début du code
Dim MaCellule As Range
 
Vote positif 0 Vote négatif
Re : copy d'une feuille modele avec un bouton

re

j'ai corrigé ce que tu m'a donné
le message arrive o niveau du copy
il m'affiche une erreur fonction ou variable attendue

Code: 
If Mysheet Is Nothing Then Sheets.Copy.Sheets("Saisi Go Modele").Copy After:=Sheets(1)

je remet le fichier en piece jointe

merci pour votre aide

yannick
 

Pièces jointes

Vote positif 0 Vote négatif
Re : copy d'une feuille modele avec un bouton

Rebonjour yblotiere, Staple.

If Mysheet Is Nothing Then Sheets.Copy.Sheets("Saisi Go Modele").Copy After:=Sheets(1)
Cliquez pour agrandir...

Sheets.Copy.Sheets("Saisi Go Modele").Copy After:=Sheets(1): ici tu dis copie la feuille xxx copie. C'EST FAUX!

Sheets("Saisi Go Modele") = Feuil10 par exemple, regarde le numéro de la feuille et tu fais comme ceci.

Feuil10.[A2:M65536].Copy Feuil12.[A2]; Feuil12 est la feuille qui reçois les données.

EDIT: c'est juste un exemple

Code: 
Private Sub Workbook_Open()
Dim ws As Worksheet, w As Worksheet
Set w = Feuil1
Set ws = Feuil2

w.[A2:M65536].Copy ws.[A2]

End Sub



A+ 😎

GROS BISOUS STAPLE! 😱 😉
 
Dernière édition:
Vote positif 0 Vote négatif
Re : copy d'une feuille modele avec un bouton

Re yblotière,

Voici un code basic pour copier et renommer une nouvelle feuille.


Code: 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Sheets("Feuil1").Copy After:=Sheets("Feuil3"): Sheets("Feuil1").Name = "Test Copie"
End Sub

Et un plus court (enfin si on veux)

Dim ws As Worksheet, w As Worksheet
Set ws = Sheets("Feuil1)
Set w = Sheets("Feuil3)

ws.copy After:=w: ws.Name = "Test Copie"


A+ 😎
 
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

A
  • Question Question
XL pour MAC Problème avec une macro dupliquant une feuille contenant une macro
Réponses
8
Affichages
388
AlineJ
A
B
  • Résolu(e)
XL 2021 VBA : activer une feuille dont le nom est la valeur d'une cellule
Réponses
2
Affichages
197
berru76
B
  • Question Question
XL 2021 création d'onglets en masse depuis un modele
Réponses
6
Affichages
325
Phil69970
B
  • Résolu(e)
XL 2019 Macro pour copier des cellules d'une feuille de barèmes
Réponses
6
Affichages
308
berru76
B
M
  • Résolu(e)
XL 2021 Problème d'activation d'une macro pour transférer des valeurs d'une feuille 1 à une feuille 2
Réponses
3
Affichages
417
MATLEA
M
C
  • Question Question
Microsoft 365 Incrémenter une liste par rapport à une 1ere liste
Réponses
2
Affichages
147
Chris5633
C
S
  • Résolu(e)
Autres Problème avec sélection d'une cellule puis glisser
Réponses
2
Affichages
248
SPARKLETOF
S
T
  • Question Question
XL 2019 macro pour un bouton avec lien "enregistrer sous"
Réponses
2
Affichages
378
patricktoulon
  • Question Question
XL 2019 Copier et coller automatiquement une nouvelle donnée par un bouton, ListView décallée à la sur la page (Multipage) et vibration du Userform
2
Réponses
16
Affichages
951
TooFatBoy
U
  • Résolu(e)
XL 2016 Création d'un fichier excel à partir d'un bouton
Réponses
7
Affichages
488
Utilisateur_X
U
N
  • Résolu(e)
XL 2010 Mémoriser l'action sur un bouton
2
Réponses
16
Affichages
812
sylvanu
P
  • Résolu(e)
XL 2021 Comment détecter la modification MANUELLE d'une cellule dans une feuille ?
Réponses
3
Affichages
327
PRy
P
B
  • Question Question
XL 2013 excel Copier coller feuille avec tout le contenue
Réponses
4
Affichages
306
Bodin44
B
D
  • Question Question
XL 2016 Format date
Réponses
3
Affichages
326
dadaze
D
N
  • Question Question
Microsoft 365 Créer une fenêtre de vente qui alimentera un cumul dans un tableau
Réponses
2
Affichages
377
job75
M
  • Résolu(e)
Microsoft 365 Erreur 9 macro
Réponses
3
Affichages
313
matmac
M
  • Question Question
Microsoft 365 Récupérer la liste d'un field d'une feuille dans combobox
Réponses
5
Affichages
257
xhudi69
  • Résolu(e)
Microsoft 365 Cohabitation des listbox avec des lignes "gelées"
Réponses
8
Affichages
339
fanch55
S
  • Question Question
XL 2019 Fichier de tirage au sort sans doublons avec valeurs en plus
Réponses
1
Affichages
490
sylvanu
B
  • Question Question
XL 2019 Conserver les formules qui sont enregistrées dans des cellules
Réponses
8
Affichages
601
Phil69970
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…