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

Code VBA pour copier/coller onglet selon nombre

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
T

tamatave33

XLDnaute Occasionnel
Bonjour le forum,

Dans un classeur composé comprenant :
- un onglet "Initialisation"
- un onglet "Colonne (1)"
- ...

En fonction du nombre (n) indiqué dans la cellule (D7) de l'onglet "Initialisation", je voudrais écrire un code pour faire (n-1) copies de l'onglet "Colonne (1)".

Quelqu'un pourrait-il m'aider ?
Merci d'avance.
 

Pièces jointes

Trier par date Trier par votes
Re : Code VBA pour copier/coller onglet selon nombre

Bonsoir tamatave,

Copie ceci dans la feuille Initialisation

Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i, k, x, nb
Application.ScreenUpdating = False
If Target.Address <> "$D$7" Then Range("d7").Activate
nb = Range("d7")
For i = 1 To nb
    Sheets("Colonne(1)").Copy After:=Sheets(i)
    ActiveSheet.Name = "Colonne" & "(" & i + 1 & ")"
Next i
Range("d7").ClearContents

For Each x In ActiveWorkbook.Sheets
For k = 3 To ActiveWorkbook.Sheets.Count
If Sheets(k - 1).Name > Sheets(k).Name Then
Sheets(k - 1).Move After:=Sheets(k)
End If
Next
Next
End Sub


À bientôt 😎
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Code VBA pour copier/coller onglet selon nombre

Bonjour Lone-wolf,

Merci pour ton aide.
J’ai un petit problème : ça bloque à l’instruction "Sheets("Colonne(1)").Copy After:=Sheets(i)" avec le message suivant : "Erreur d’exécution ‘9’:l’indice n’appartient pas à la sélection."
As-tu une idée ?
Merci.
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Code VBA pour copier/coller onglet selon nombre

Bonjour tamatave,

Oui c'est le nom de la feuille "Colonne (1)" qui causait problème.

Voici la correction que je viens de tester.


Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i, k, x, nb
Application.ScreenUpdating = False
If Target.Address <> "$D$7" Then Range("d7").Activate
nb = Range("d7")
For i = 1 To nb
    Feuil2.Copy After:=Sheets(i)
    ActiveSheet.Name = "Colonne" & " (" & i + 1 & ")"
Next i
Range("d7").ClearContents

For Each x In ActiveWorkbook.Sheets
For k = 3 To ActiveWorkbook.Sheets.Count
If Sheets(k - 1).Name > Sheets(k).Name Then
Sheets(k - 1).Move After:=Sheets(k)
End If
Next
next
End Sub

Désolé pour cette erreur. 😱


À bientôt 😎
 
Dernière édition:
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

P
  • Question Question
Microsoft 365 VBA copier-coller selon conditions
Réponses
4
Affichages
285
vgendron
  • Résolu(e)
Microsoft 365 Récupération d'une valeur particulière dans un tableau...
Réponses
13
Affichages
341
nightswan
  • Question Question
XL 2021 Copier coller qui ajoute une référence absolu Toute seule
2
Réponses
24
Affichages
1 K
TooFatBoy
T
  • Question Question
XL 2013 Impression, choix de feuilles et nombre de copie
Réponses
11
Affichages
728
AtTheOne
  • Résolu(e)
Microsoft 365 Découper un fichier en plusieurs fichiers
2
Réponses
24
Affichages
677
nat54
J
  • Question Question
Microsoft 365 Naviguer dans un tableau pour copier des données dans un modèle et copier l'un derrière l'autre
Réponses
11
Affichages
512
AtTheOne
R
  • Question Question
Microsoft 365 Tableau de progressions
Réponses
10
Affichages
482
Rosario.
R
  • Résolu(e)
Autres Copier/ Coller plage de données dans une autre cellule d'un même onglet
Réponses
6
Affichages
435
fenec
  • Question Question
Microsoft 365 VBA : copier / coller d'un onglet à l'autre en fonction d'une valeur
Réponses
8
Affichages
868
Lisette
  • Résolu(e)
XL 2021 Une aide pour optimiser du code VBA
2
Réponses
16
Affichages
592
jeff1494
O
  • Question Question
Autres recopie de cellules selon la date
Réponses
3
Affichages
337
olivier Clech
O
  • Résolu(e)
XL 2016 copier/coller en VBA
Réponses
11
Affichages
575
chinel
A
  • Question Question
Microsoft 365 Tri sur feuille protégée +Aide protection de données déjà saisies
Réponses
2
Affichages
445
TooFatBoy
F
  • Résolu(e)
Microsoft 365 copier coller des colonnes en fonction de la valeur d'une cellule
Réponses
8
Affichages
1 K
loloboc
L
N
  • Question Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
975
Nel'
N
E
  • Résolu(e)
Microsoft 365 Copier Coller selon condition
Réponses
5
Affichages
435
TooFatBoy
K
  • Résolu(e)
XL 2019 Aide pour macro vba
2
Réponses
20
Affichages
1 K
Kev1407
K
P
  • Question Question
Microsoft 365 Joindre un fichier PDF dans un mail + inclure date envoi du mail dans un autre onglet
Réponses
1
Affichages
654
kiki29
E
  • Question Question
Microsoft 365 Couleurs de fichiers qui changent
Réponses
1
Affichages
444
mapomme
B
  • Question Question
Microsoft 365 compiler onglets excel avec VBA
Réponses
6
Affichages
787
Boubie
B
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…