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

copier le contenu d'une feuille vers un onglet ayant le mem nom qu'une cellule

  • Initiateur de la discussion Initiateur de la discussion altinea
  • Date de début Date de début

altinea

XLDnaute Accro
Bonsoir,
je recherche à faire l'opération suivante,

à partir du contenu d'une feuille dans laquelle j'importe des données, je souhaite transferer ces données dans un onglet qui porte le nom d'une des cellules de la feuille import.


ex, feuille "import" des données sont stockées là, une cellule comporte un texte, ce texte correspond à une feuille dont l'onglet est le même que dans la cellule de la feuille import. Je peux avoir les mêmes infos autant de fois que j'ai de noms différents et d'onglets déjà nommés.

Ici dans le fichier joint j'ai mis en cellule C3, l'info qui doit etre correspondre à l'onglet vers lequel doivent etre copier les cellules de la feuille 'import'.

merci pour votre aide
 

Pièces jointes

  • altinea_copier_onglet_v1701.xlsx
    15.8 KB · Affichages: 29
Trier par date Trier par votes
K

Kim75

XLDnaute Occasionnel
Re : copier le contenu d'une feuille vers un onglet ayant le mem nom qu'une cellule

Salut altinea,

Un début de solution :

Code: 
Sub Transfert()
ActiveSheet.Cells(2, 2).Select
valeur = Cells(3, 3)
With Sheets("import")
.Range("C5:K" & .Cells(Rows.Count, "K").End(xlUp).Row).Copy Destination:=Sheets(valeur).Range("A65535").End(xlUp).Offset(1, 0)
End With
End Sub

Crdlt, Kim.
 

Pièces jointes

  • altinea_copier_onglet_v1701.xlsm
    22.8 KB · Affichages: 33
Vote positif 0 Vote négatif

altinea

XLDnaute Accro
Re : copier le contenu d'une feuille vers un onglet ayant le mem nom qu'une cellule

bonsoir le forum, Kim75, merci ca fonctionne parfaitement, peux tu m’expliquer s'il te plait comment éventuellement changer la zone pour la recopie, ici A1, mais si je veux recopier au même endroit que le modèle soit à partir de C2.
Merci
 
Vote positif 0 Vote négatif

altinea

XLDnaute Accro
Re : copier le contenu d'une feuille vers un onglet ayant le mem nom qu'une cellule

re, Kim75, en fait je souhaiterai pouvoir recopier la totalité de qu'il y a en feuille import, soit de C2 à K. Je fait le modifs dans ce sens mais le résultat n'est pas bon.
merci
 
Vote positif 0 Vote négatif
K

Kim75

XLDnaute Occasionnel
Re : copier le contenu d'une feuille vers un onglet ayant le mem nom qu'une cellule

salut altinea,

Tu règles avec les Offset :

Sub Transfert()
valeur = Cells(3, 3)
With Sheets("import")
.Range("C5:K" & .Cells(Rows.Count, "K").End(xlUp).Row).Copy Destination:=Sheets(valeur).Range("A65535").End(xlUp).Offset(4, 2)
End With
End Sub

Cdlt, Kim.
 

Pièces jointes

  • altinea_copier_onglet_v1701B.xlsm
    23.2 KB · Affichages: 26
Dernière édition:
Vote positif 0 Vote négatif

altinea

XLDnaute Accro
Re : copier le contenu d'une feuille vers un onglet ayant le mem nom qu'une cellule

re j'ai fait comme cela :
Sub Transfert()
ActiveSheet.Cells(3, 2).Select
valeur = Cells(3, 3) 'cellule contenant le nom de l'onglet recherché
With Sheets("import")
.Range("C2:K" & .Cells(Rows.Count, "K").End(xlUp).Row).Copy
Destination:=Sheets(valeur).Range("C65535").End(xlUp).Offset(1, 0)
End With
End Sub
 
Vote positif 0 Vote négatif

altinea

XLDnaute Accro
Re : copier le contenu d'une feuille vers un onglet ayant le mem nom qu'une cellule

Re encore une petite question, est il possible lors de la copie vers un autre onglet de conserver la mise en forme d'origine, largeur colonne etc... merci
 
Vote positif 0 Vote négatif

altinea

XLDnaute Accro
Re : copier le contenu d'une feuille vers un onglet ayant le mem nom qu'une cellule

Bonjour le Forum, Kim 75, j'ai repris la formule que tu m'as donnée avec le fichier doriginal, j'ai je pense adapté la macro aux diverses plages concernées mais ça bg, peux tu em dire où ça plante et pourquoi merci
 

Pièces jointes

  • altinea_suvi_ve_v1801.xls
    95.5 KB · Affichages: 32
  • altinea_suvi_ve_v1801.xls
    95.5 KB · Affichages: 34
  • altinea_suvi_ve_v1801.xls
    95.5 KB · Affichages: 27
Vote positif 0 Vote négatif
K

Kim75

XLDnaute Occasionnel
Re : copier le contenu d'une feuille vers un onglet ayant le mem nom qu'une cellule

Hello altinea,

Le nom de la cellule et celui de l'onglet sont différents, l'erreur vient de là :
Dans la cellule tu as mis : CZ-023-ML
Alors que le nom de l'onglet est : CZ023ML

Cordialement, Kim.
 
Vote positif 0 Vote négatif

altinea

XLDnaute Accro
Re : copier le contenu d'une feuille vers un onglet ayant le mem nom qu'une cellule

bonsoir Kim, j'ai vu lerreur mais uen fois réparée, c'est pareil, ci joint fichier

Sub Transfert()
ActiveSheet.Cells(1, 1).Select
valeur = Cells(3, 5) 'cellule contenant le nom de l'onglet recherché
With Sheets("import")
.Range("A1:Bb" & .Cells(Rows.Count, "Bb").End(xlUp).Row).Copy Destination:=Sheets(valeur).Range("A65535").End(xlUp).Offset(1, 0)
End With
End Sub

c'est ici que ça bug

merci de me dire
 

Pièces jointes

  • altinea_suvi_ve_v1801.xls
    89.5 KB · Affichages: 35
  • altinea_suvi_ve_v1801.xls
    89.5 KB · Affichages: 39
  • altinea_suvi_ve_v1801.xls
    89.5 KB · Affichages: 37
Vote positif 0 Vote négatif
K

Kim75

XLDnaute Occasionnel
Re : copier le contenu d'une feuille vers un onglet ayant le mem nom qu'une cellule

Slt altinea,

L'échec du copy-paste vient du fait de la fusion de cellules
Je te tiens au courant si je trouve une alternative

Cdlt, Kim.
 
Vote positif 0 Vote négatif
K

Kim75

XLDnaute Occasionnel
Re : copier le contenu d'une feuille vers un onglet ayant le mem nom qu'une cellule

Slt altinea,

Voici, ça fonctionne :
Code: 
Sub Transfert()
valeur = Cells(3, 5) 'cellule contenant le nom de l'onglet recherché
Worksheets("import").Range("A1:BA28").Copy Destination:=Worksheets(valeur).Range("A1")
End Sub
Bonne continuation,

Cdlt, Kim.
 

Pièces jointes

  • altinea-1.xls
    77.5 KB · Affichages: 35
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

F
  • Question Question
XL 2021 VBA bouton pour copier le contenu d'une cellule
Réponses
3
Affichages
200
fuioplde
F
C
  • Question Question
Microsoft 365 Insérer le contenu d'une cellule dans le texte d'une autre cellule
Réponses
2
Affichages
436
chris427
C
A
  • Résolu(e)
Microsoft 365 Enregistrer copie d'un fichier avec pour nom le contenu d'une cellule excel (macro)
2
Réponses
15
Affichages
836
firecarl
F
Z
  • Question Question
Microsoft 365 Rendre visible un onglet en fonction du contenu d'une cellule
Réponses
2
Affichages
124
zorol
Z
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
461
Nel'
N
F
  • Résolu(e)
Microsoft 365 Donner a une cellule le nom de la feuille
Réponses
5
Affichages
441
Faroyo
F
F
  • Résolu(e)
Microsoft 365 copier coller des colonnes en fonction de la valeur d'une cellule
Réponses
8
Affichages
657
loloboc
L
S
  • Résolu(e)
XL 2016 copier des données d'une feuille à une autre selon critères et protection de la feuille 1
Réponses
6
Affichages
455
steph_29120
S
A
  • Question Question
Microsoft 365 INDEX+EQUIV dont le resultat duplique les lignes par erreur
Réponses
5
Affichages
228
aeca
A
  • Question Question
Microsoft 365 VBA : copier / coller d'un onglet à l'autre en fonction d'une valeur
Réponses
8
Affichages
568
Lisette
T
  • Question Question
XL 2021 Utiliser le résultat d'une cellule pour un onglet
Réponses
1
Affichages
282
chris
Z
  • Question Question
XL 2016 Macro pour copier plusieurs cellules vers un fichier :(
Réponses
3
Affichages
315
zendb
Z
  • Résolu(e)
Microsoft 365 Variabiliser le nom de l'onglet de recherche selon le contenu d'une cellule
Réponses
8
Affichages
432
nat54
G
  • Résolu(e)
Microsoft 365 Copie d'une ligne vers une autre feuille VBA
Réponses
4
Affichages
738
Dranreb
  • Question Question
Power Query Data Model - renvoyer le résultat d'une requête PQ sans passer par une feuille
Réponses
11
Affichages
432
Staple1600
F
  • Résolu(e)
Microsoft 365 Copier à tour de rôle les éléments d'une liste vers une même cellule
Réponses
1
Affichages
331
flint125
F
M
  • Résolu(e)
XL 2010 Code VBA pour Appeler un onglet avec texte + variable
Réponses
9
Affichages
799
Phil69970
  • Résolu(e)
XL 2019 Définir un nom d'un champ lors d'une macro
2
Réponses
28
Affichages
1 K
vgendron
R
  • Résolu(e)
XL 2019 creer une macro pour copier des info d un onglet a un autre dans le meme classeur
Réponses
4
Affichages
542
robpellan52
R
  • Résolu(e)
Microsoft 365 Save qu'une feuille d'un classeur
Réponses
4
Affichages
728
Electron24
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…