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

Coller des plages nommées avec liaison.

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion patapock
  • Date de début Date de début

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
P

patapock

XLDnaute Nouveau
Bonjour a tous.
J'ai réalisé un classeur qui comprends plusieurs feuilles:"Français";"Anglais";"Italiens", "Espagnols".

Chaques feuilles comprend les mêmes colonnes: Nom, Prénom, Date de Naissance, Licence.

Les lignes de ces différents tableaux s'alimentent grâce à un Userform qui ventile les nouvelles entrées en fonction de la nationalité renseignée.

J'ai créé une "plage nommée" pour chaque tableau de chacune de ces feuilles:
"Data_Français";"Data_Anglais";"Data_Italiens", "Data_Espagnols"

Je souhaiterai maintenant remplir une nouvelle feuille "Data" qui accueillerai l'une en dessous de l'autre, les données des différentes feuilles précédentes en appelant les plages nommées.

J'y arrive avec le code suivant:

Private Sub Worksheet_Activate()

Range("Data_Français").Copy Sheets("Data").Range("A" & Range("A65536").End(xlUp).Row)
Range("Data_Anglais").Copy Sheets("Data").Range("A" & Range("A65536").End(xlUp).Row)
Range("Data_Italiens").Copy Sheets("Data").Range("A" & Range("A65536").End(xlUp).Row)
Range("Data_Espagnols").Copy Sheets("Data").Range("A" & Range("A65536").End(xlUp).Row)

End Sub

Seulement, avec ce code, chaque fois que je bascule sur une autre feuille de mon classeur, et que je reviens sur la feuille "Data", cette dernière ajoute à chaque reprise une nouvelle fois chaque plage nommée !

Ma formule n'est donc pas la bonne.

Par ailleurs, je souhaiterai que, si par la suite, je modifie une cellule de ma feuille " Data", ces modifications se répercutent dans les autres feuilles concernées.

J'ai essayé avec un copier coller ou un tableau croisé dynamique, mais je ne connais pas les formulations VBA pour collage spécial avec liaisons.

Si quelqu'un avait une idée qui me permettrai d'avancer.

Merci
 
Trier par date Trier par votes
Re : Coller des plages nommées avec liaison.

Bonjour patapok

A tester:

VB: 
Private Sub Worksheet_Activate()
ActiveSheet.Cells.clear
Range("Data_Français").Copy Sheets("Data").Range("A" & Range("A65536").End(xlUp).Row)
Range("Data_Anglais").Copy Sheets("Data").Range("A" & Range("A65536").End(xlUp).Row)
Range("Data_Italiens").Copy Sheets("Data").Range("A" & Range("A65536").End(xlUp).Row)
Range("Data_Espagnols").Copy Sheets("Data").Range("A" & Range("A65536").End(xlUp).Row)

End Sub
 
Vote positif 0 Vote négatif
Re : Coller des plages nommées avec liaison.

pierrejean, merci de te pencher sur mon "cas".

J'ai essayé ton code, et je constate un nouveau problème non remarqué jusqu'à présent:
Ton code fonctionne parfaitement si je le met dans mon Userform de saisie.

Par contre, si je le mets dans le code de ma feuille "Data", dans le Sub
Code: 
Private Sub Worksheet_Activate()
Il provoque une "Erreur d'exécution '1004':
"Erreur définie par l'application ou par l'objet"

Ce n'est pas le cas si je met par exemple:
Code: 
MsgBox "test Coucou!"

😕

L'autre interrogation, est la suivante:
Si je comprends bien, ta fonction
Code: 
ActiveSheet.Cells.clear
efface les données précédentes de la feuille "Data"

Or, e souhaiterai que les données insérées par le code VBA dans la feuille "Data" (mes plages nommées), s'actualisent automatiquement dans mes plages nommées issues des autres feuilles, si je dois modifier à la main certaines cellules.

L'équivalent d'un collage spécial, avec liaison

Qu'en penses-tu?
 
Vote positif 0 Vote négatif
Re : Coller des plages nommées avec liaison.

Re

A tester
VB: 
Private Sub Worksheet_Activate()
ActiveSheet.Cells.Clear
Range("Data_Français").Copy Sheets("Data").Range("A" & Sheets("Data").Range("A65536").End(xlUp).Row)
Range("Data_Anglais").Copy Sheets("Data").Range("A" & Sheets("Data").Range("A65536").End(xlUp).Row)
Range("Data_Italiens").Copy Sheets("Data").Range("A" & Sheets("Data").Range("A65536").End(xlUp).Row)
Range("Data_Espagnols").Copy Sheets("Data").Range("A" & Sheets("Data").Range("A65536").End(xlUp).Row)
End Sub

Effectivement lorsque la feuille Data sera activée la totalité des infos sera actualisée
Si des titres ou autre infos doivent subsister il faut revoir l'effacement qui est ici integral
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Coller des plages nommées avec liaison.

pierrejean,
je viens d'essayer ton nouveau code.
J'ai la même erreur que précédemment...😕

Je vois pas ou ça coince car ce code aussi fonctionne si je le place dans le sub qui ferme mon formulaire de saisie et enregistre les nouvelles données, soit entre les balises
Code: 
Private Sub CommandButton_VALIDATE_Click()
et
Code: 
End Sub

Etrange non?

Pour ce qui est de l'effacement des données, lors de l'appel de la feuille "Data", je sais pas si , une fois le problème précédent résolu, ça va "coller", car par la suite, j'aurai souhaité pouvoir modifier certaines cellules de la feuille "Data" et que ces modifications se répercutent dans les autres plages nommées.

Je souhaiterai aussi pouvoir, dans la feuille "Data", masquer certaines lignes, ou encore colorier des cellules avec une mise en forme conditionnelle.

Si le tableau est effacé et recréé à chaque appel de "Data", ne perdrais-je pas la mise en forme?

En fait, sans faire appel à VBA, ce dont j'ai besoin, n'est ni plus ni moins qu'un copier/collage Spécial avec liaison des données.

Seulement, je ne sais pas le faire en VBA, avec des plages nommées qui sont amenées à varier.

Je sèche depuis 15j malgré de multiples recherches.
Pour l'instant, mon projet est à l'arrêt, mais j'apprends doucement les bases du VBA.
C'est toujours ça de pris.

Merci pour ta patience.
 
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

S
  • Résolu(e)
XL 2016 Coller nom classeur sur plage cellules
Réponses
9
Affichages
214
safranien
S
S
  • Résolu(e)
Microsoft 365 Ecrasement d'une ligne si déjà existante
Réponses
2
Affichages
254
sebastien176
S
J
  • Question Question
Microsoft 365 Copie des onglets dans un fichier séparé depuis une liste en VBA
Réponses
3
Affichages
143
job75
N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
110
patricktoulon
  • Question Question
Microsoft 365 Trier des données et les afficher sur une autre feuille
Réponses
10
Affichages
508
Jojo973
T
  • Question Question
XL 2013 Impression, choix de feuilles et nombre de copie
Réponses
11
Affichages
490
AtTheOne
S
  • Résolu(e)
Microsoft 365 Récupérer la date dans un calendrier
Réponses
2
Affichages
449
sebastien176
S
L
  • Résolu(e)
Microsoft 365 Trie par Date & Heure
Réponses
8
Affichages
493
Le Rouky
L
F
  • Question Question
XL 2021 probleme dans la macro
Réponses
4
Affichages
179
kiki29
S
  • Résolu(e)
Microsoft 365 VBA Concaténer contenu de plusieurs cellules dans une seule avec séparateurs / évolutifs
Réponses
3
Affichages
300
spike29
S
M
  • Question Question
XL 2013 MACRO VBA pour imprimer tous les bulletins d'un établissement scolaire
Réponses
4
Affichages
506
MBEPID
M
  • Résolu(e)
Microsoft 365 Vba : Transférer des données d'un tableau dans un autre fichier
Réponses
7
Affichages
570
Chaton77
B
  • Question Question
XL 2013 Comment trier les nom des feuilles et fusionner leur tableaux dans une une autre feuille ?
Réponses
10
Affichages
696
Compte Supprimé 979
C
S
  • Résolu(e)
XL 2016 Besoin d'aide pour un code d'extraction
Réponses
14
Affichages
894
Phil69970
E
  • Question Question
XL 2013 Code VBA
Réponses
12
Affichages
972
eutrophisation
E
C
  • Résolu(e)
Autres Code VBA pour recherche et copie/coller de ligne avec mot clé.
Réponses
12
Affichages
683
Corentin26270
C
A
  • Question Question
Microsoft 365 Macro pour récupérer des colonnes qui ne sont pas conjointes
Réponses
4
Affichages
385
Anthony_51
A
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
490
telemarrk
T
L
  • Question Question
Microsoft 365 Faire agir une macro en fonction de l'emplacement du bouton
Réponses
2
Affichages
446
AtTheOne
M
  • Question Question
XL 2010 Calcul possible dans la zone de liste pour le débit et le crédit lors d'une recherche basée sur la zone de texte
Réponses
0
Affichages
707
Mody200
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…