Créer une feuille Excel et y copier les données d'une autre
Résolu/Fermé
titikio
Messages postés
3
Date d'inscription
jeudi 24 janvier 2013
Statut
Membre
Dernière intervention
26 mars 2013
-
24 janv. 2013 à 16:07
baladur13 Messages postés 46399 Date d'inscription mercredi 11 avril 2007 Statut Modérateur Dernière intervention 26 avril 2024 - 28 janv. 2013 à 10:24
baladur13 Messages postés 46399 Date d'inscription mercredi 11 avril 2007 Statut Modérateur Dernière intervention 26 avril 2024 - 28 janv. 2013 à 10:24
A voir également:
- Vba créer une feuille
- Créer un compte gmail - Guide
- Créer un compte google - Guide
- Créer une liste déroulante excel - Guide
- Créer un groupe whatsapp - Guide
- Créer une adresse hotmail - Guide
6 réponses
eriiic
Messages postés
24570
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
23 avril 2024
7 214
25 janv. 2013 à 13:31
25 janv. 2013 à 13:31
Bonjour,
Effectivement, je n'avais pas assez testé, sorry.
Voilà qui doit être mieux.
https://www.cjoint.com/c/CAznFbeGn5n
eric
Effectivement, je n'avais pas assez testé, sorry.
Voilà qui doit être mieux.
Sub DupliquerFeuille() Dim sh As Worksheet, sh2 As Worksheet Set sh = ActiveSheet For Each sh2 In Worksheets If sh2.Name = [B3] Then Sheets([B3].Value).Activate If MsgBox("Feuille " & [B3] & " existante. La supprimer ?", vbCritical + vbYesNo) = vbNo Then sh.Activate Exit Sub Else Application.DisplayAlerts = False Sheets([B3].Value).Delete Application.DisplayAlerts = True Exit For End If End If Next sh2 sh.Copy after:=Sheets(Sheets.Count) ActiveSheet.Name = [B3] sh.Activate End Sub
https://www.cjoint.com/c/CAznFbeGn5n
eric
via55
Messages postés
14405
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
25 avril 2024
2 703
24 janv. 2013 à 21:45
24 janv. 2013 à 21:45
Bonjour,
Il faut te servir de l'enregistreur de macro
Onglet Developpeur Enregistrer une macro
Tu fais toutes tes manipulations puis tu arrêtes l'enregistrement et tu va voir dans Macros le code (Pas à pas détaillé)
Tu peux ensuite appeler la macro Macros Exécuter
ou créer un bouton qui lancera la macro quand on clique dessus
Il faut te servir de l'enregistreur de macro
Onglet Developpeur Enregistrer une macro
Tu fais toutes tes manipulations puis tu arrêtes l'enregistrement et tu va voir dans Macros le code (Pas à pas détaillé)
Tu peux ensuite appeler la macro Macros Exécuter
ou créer un bouton qui lancera la macro quand on clique dessus
Roberto 1959
Messages postés
24
Date d'inscription
samedi 19 janvier 2013
Statut
Membre
Dernière intervention
27 février 2013
24 janv. 2013 à 21:46
24 janv. 2013 à 21:46
Bonjour,
Pourquoi ne pas faire une sauvegarde dans un autre classeur, soit en faisant "fichier enregistrer sous" soit en utilisant un petit logiciel de sauvegarde.
Si tu perds ton fichier ou s'il est endommagé tu pourras ainsi le récupérer.
Cordialement
Pourquoi ne pas faire une sauvegarde dans un autre classeur, soit en faisant "fichier enregistrer sous" soit en utilisant un petit logiciel de sauvegarde.
Si tu perds ton fichier ou s'il est endommagé tu pourras ainsi le récupérer.
Cordialement
eriiic
Messages postés
24570
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
23 avril 2024
7 214
24 janv. 2013 à 23:57
24 janv. 2013 à 23:57
Bonsoir,
Agit sur la feuille active :
Si la feuille est existante la macro te l'affiche, te propose de la supprimer pour continuer ou abandonner.
Attention aux caractères interdits dans B3 (/ par exemple).
eric
Agit sur la feuille active :
Sub DupliquerFeuille() Dim sh As Worksheet Set sh = ActiveSheet On Error GoTo suite Sheets([B3]).Activate On Error GoTo 0 If MsgBox("Feuille " & [B3] & " existante. La supprimer ?", vbCritical + vbYesNo) = vbNo Then Exit Sub End If Application.DisplayAlerts = False Sheets([B3]).Delete Application.DisplayAlerts = True suite: On Error GoTo 0 sh.Copy after:=Sheets(Sheets.Count) ActiveSheet.Name = [B3] sh.Activate End Sub
Si la feuille est existante la macro te l'affiche, te propose de la supprimer pour continuer ou abandonner.
Attention aux caractères interdits dans B3 (/ par exemple).
eric
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
titikio
Messages postés
3
Date d'inscription
jeudi 24 janvier 2013
Statut
Membre
Dernière intervention
26 mars 2013
25 janv. 2013 à 08:22
25 janv. 2013 à 08:22
Bonjour à tous,
Eriiic, ta macro duplique bien la feuille active, mais ne la nomme pas avec le contenu de la cellule B3 .
De plus, j'ai un message d'erreur 1004, qui me dit qu'il est impossible de renommer une feuille comme une autre.
Eriiic, ta macro duplique bien la feuille active, mais ne la nomme pas avec le contenu de la cellule B3 .
De plus, j'ai un message d'erreur 1004, qui me dit qu'il est impossible de renommer une feuille comme une autre.
Bonjour Eriiic,
C'est exactement ça qu'il me fallait.
Merci pour ton aide précieuse.
Titikio
C'est exactement ça qu'il me fallait.
Merci pour ton aide précieuse.
Titikio
baladur13
Messages postés
46399
Date d'inscription
mercredi 11 avril 2007
Statut
Modérateur
Dernière intervention
26 avril 2024
13 223
28 janv. 2013 à 10:24
28 janv. 2013 à 10:24
Bonjour
A toutes fins utiles ==> https://www.commentcamarche.net/infos/25917-marquer-un-fil-de-discussion-comme-etant-resolu/
A toutes fins utiles ==> https://www.commentcamarche.net/infos/25917-marquer-un-fil-de-discussion-comme-etant-resolu/