Je soutiens Excel Downloads
Connexion
S'inscrire
Effectuez une recherche sur Excel Downloads...
Effectuez une recherche sur Excel Downloads...
Rechercher dans les titres uniquement
Par:
FORUMS
Nouveaux messages
Rechercher dans les forums
TÉLÉCHARGEMENTS
POUR LES PROFESSIONNELS
Gestion commerciale
Gestion de projets
Gestion du personnel
Tableaux de bord
Comptabilité
Immobilier
Bourse
POUR LES PARTICULIERS
Budgets et comptes
Plannings et calendriers
UTILITAIRES
LEÇONS ET TUTORIAUX
Fonctions Excel
Vba
RESSOURCES PEDAGOGIQUES
Rechercher une ressource
ACTUALITÉS
TUTOS
EXCEL
FORMULES ET FONCTIONS
VBA
POWER QUERY
POWER PIVOT
POWER BI
AUTRES APPLICATIONS
Recherche de tutos vidéos
Connexion
S'inscrire
Quoi de neuf
Effectuez une recherche sur Excel Downloads...
Effectuez une recherche sur Excel Downloads...
Rechercher dans les titres uniquement
Par:
Nouveaux messages
Rechercher dans les forums
Menu
Connexion
S'inscrire
Installer l'application
Installer
FORUMS
Questions
Forum Excel
Comment exporter les cellules nommées d'un classeur" A" dans classeur "B"
JavaScript est désactivé. Pour une meilleure expérience, veuillez activer JavaScript dans votre navigateur avant de continuer.
Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement.
Vous devez le mettre à jour ou utiliser un
navigateur alternatif
.
Répondre à la discussion
Message
<blockquote data-quote="Robert" data-source="post: 1027662" data-attributes="member: 40"><p><strong>Re : Comment exporter les cellules nommées d'un classeur" A" dans classeur "B"</strong></p><p></p><p><span style="color: navy">Bonjour le fil, bonjour le forum,</span></p><p></p><p><span style="color: navy">Si le nom des onglets des deux classeurs est <strong>identique</strong>, la macro ci-dessous récupère les plages nommées du classeur <strong>Source</strong> et les place au même endroit dans le classeur <strong>Cible</strong> :</span></p><p>[CODE]Sub Macro1()</p><p>Dim cs As Workbook 'déclare la variable cs (Classeur Source)</p><p>Dim cc As Workbook 'déclare la variable cc (Classeur Cible)</p><p>Dim pn As Name 'déclare la variable pn (Plage Nommée)</p><p>Dim o As String 'déclare la variable o (onglet)</p><p>Dim dest As Range 'déclare la variable dest (cellule de DESTination)</p><p> </p><p>Set cs = ThisWorkbook 'définit le classeur source</p><p>Set cc = Workbooks("Classeur_Cible.xls") 'définit le classeur source (à adapter à ton cas)</p><p>For Each pn In cs.Names 'boucle sur toutes les plages nommées du classeur source</p><p> With Range(pn) 'prend en compte la plage nommée</p><p> o = Range(pn).Worksheet.Name 'définit l'onglet de la plage nommée</p><p> Set dest = cc.Sheets(o).Range(pn) 'définit la cellule de destination</p><p> .Copy dest 'copie la plage nommée et la colle dans la cellule de destination</p><p> End With 'fin de la prise en compte de la plage nommée</p><p>Next pn 'prochaine plage nommé de la boucle</p><p>End Sub[/CODE]</p></blockquote><p></p>
[QUOTE="Robert, post: 1027662, member: 40"] [b]Re : Comment exporter les cellules nommées d'un classeur" A" dans classeur "B"[/b] [COLOR=navy]Bonjour le fil, bonjour le forum,[/COLOR] [COLOR=navy]Si le nom des onglets des deux classeurs est [B]identique[/B], la macro ci-dessous récupère les plages nommées du classeur [B]Source[/B] et les place au même endroit dans le classeur [B]Cible[/B] :[/COLOR] [CODE]Sub Macro1() Dim cs As Workbook 'déclare la variable cs (Classeur Source) Dim cc As Workbook 'déclare la variable cc (Classeur Cible) Dim pn As Name 'déclare la variable pn (Plage Nommée) Dim o As String 'déclare la variable o (onglet) Dim dest As Range 'déclare la variable dest (cellule de DESTination) Set cs = ThisWorkbook 'définit le classeur source Set cc = Workbooks("Classeur_Cible.xls") 'définit le classeur source (à adapter à ton cas) For Each pn In cs.Names 'boucle sur toutes les plages nommées du classeur source With Range(pn) 'prend en compte la plage nommée o = Range(pn).Worksheet.Name 'définit l'onglet de la plage nommée Set dest = cc.Sheets(o).Range(pn) 'définit la cellule de destination .Copy dest 'copie la plage nommée et la colle dans la cellule de destination End With 'fin de la prise en compte de la plage nommée Next pn 'prochaine plage nommé de la boucle End Sub[/CODE] [/QUOTE]
Insérer les messages sélectionnés…
Vérification
Répondre
FORUMS
Questions
Forum Excel
Comment exporter les cellules nommées d'un classeur" A" dans classeur "B"
Texte copié dans le presse-papier