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

XL 2013 [Résolu par CISCO] Copier un tableau d'une feuille vers une autre avec une macro

bellenm

XLDnaute Impliqué
Bonjour les excleliens et autres,

J'ai un petit problème j'essaye depuis plusieurs jours de copier des tableaux depuis une feuille vers une autre qui est protégée. Dans les cellules il y a pleins de formules donc j'ai essayer avec des copier coller des rangées mais cette méthode n'est pas rapide. une macro bien faconnée serait bien, il y aura huit tableaux dans cette disposition copier depuis la feuille "RESULTATS bis" vers la feuille "RESULTATS"

Merci à tous ceux qui me lirons puis me permettrait de trouver la solution.
Ci-joint un fichier avec un modèle de tableau.

Marc
 

Pièces jointes

  • tableau marc.xlsm
    359.5 KB · Affichages: 52
Trier par date Trier par votes

JBARBE

XLDnaute Barbatruc
Bonjour à tous,

Ce fichier pose problème lors de la mise en marche d'une macro afin de faire des copies car il contient beaucoup d'irrégularités !

Veuillez y remédier si vous voulez avoir une solution !

Bonne journée !
 
Vote positif 0 Vote négatif

bellenm

XLDnaute Impliqué
Bonjour WTF,

Merci pour ta réponse rapide, mais dans ta formule ou je me suis mal expliquer ou tu aurais oublié dans le copier coller les formules des cellules tu copie juste le contenus!

Si non c'est super.

si tu sais mettre la mise à jour, merci d'avance.

Marc
 
Vote positif 0 Vote négatif

bellenm

XLDnaute Impliqué
Bonjour JBARBE,
JBARBE à dit:
Ce fichier pose problème lors de la mise en marche d'une macro afin de faire des copies car il contient beaucoup d'irrégularités !

Veuillez y remédier si vous voulez avoir une solution !
Cliquez pour agrandir...
Les problème que tu expose cce son des liens avec d'autres feuille de mon fichier , tu fais ignorer et ca fonctionne. Si je n'ai pas mis les autres feuilles vers lesquelles les liens sont fait c'est par ce que cela n'apporte rien à mon problème si ce n'est des données personnel a enlever .

Merci d'avoir quand m^me voulus jeter un oeil.

Marc.
 
Vote positif 0 Vote négatif

CISCO

XLDnaute Barbatruc
Bonjour

Peut être en modifiant le code proposé par WTF comme suit
Code: 
Sub BellenmTest()
'
' BellenmTest Macro
'

'Déprotection de l'onglet résultat bis
    Sheets("RESULTATS bis").Select
    ActiveSheet.Unprotect
  
'Sélection, copie des champs à reporter et collage dans RESULTATS bis!E5
    Sheets("RESULTATS").Select
    Range("E5:X14").Select
    Selection.Copy Sheets("RESULTATS bis").Range("E5")

'Protection de l'onglet
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    Sheets("RESULTATS").Select
    Range("B17:AC18").Select
End Sub

@ plus
 
Vote positif 0 Vote négatif

bellenm

XLDnaute Impliqué
Bonjour CISCO,

C'est bien ça la formule merci
Il y a un problème: Il me dit que le nom "CA" excite déjà donc je clic sur et pas de problème, mais c'est mettre la réponse dans la macro?

Ps: sur l'ancienne demande ici j'avais constater un problème si tu as du temps pour y regarder, ce serrais super.

Merci déjà beaucoup et a bientôt.

Marc
 
Dernière édition:
Vote positif 0 Vote négatif

CISCO

XLDnaute Barbatruc
Bonjour

Tu peux faire encore plus court en mettant au milieu uniquement
Code: 
'Sélection, copie des champs à reporter et collage dans RESULTATS bis!E5
    Sheets("RESULTATS").Range("E5:X14").Copy Sheets("RESULTATS bis").Range("E5")

Pour ce qui est de CA, c'est normal à cause de la macro évènementielle Worksheet_SelectionChange que tu as dans Feuil8. Tu dois pouvoir corriger ce défaut avec une ligne du style
Code: 
If Activesheet.Name="CINT" then ActiveCell.Name = "CA" 'nomme la cellule active
à la place de
Code: 
ActiveCell.Name = "CA" 'nomme la cellule active

@ plus
 
Vote positif 0 Vote négatif

CISCO

XLDnaute Barbatruc
Bonsoir

Pour ce qui est de ton pb avec CA, Cf. la pièce jointe. Je ne te promet rien, vu mon niveau en VBA...

@ plus
 

Pièces jointes

  • Copy of tableau marc.xlsm
    409.4 KB · Affichages: 37
Vote positif 0 Vote négatif

bellenm

XLDnaute Impliqué
Bonsoir ou bonjour à CISCO, JBARBE, WTF et tous les autres,

Je remet un fichier plus complet car sur le précédent le problème ne se posait pas.

Donc pour faire court, CISCO ta solution fonctionnait bien mais une intégré au fichier complet toujours le même problème.

Donc j'aurais voulus pouvoir copier les cellules 'E13 à X22" de la feuille "RESULTATS bis" sur la feuille "RESULTATS" à l'emplacement "E13" mais j'ai une boîte de dialogue qui s'ouvre me disant que le nom "CA" existe déjà.
Cliquer sur oui. Y a t'il moyen de passer outre de la demande?

Si vous avez la solution cela terminera mon projet déjà super avancé avec "CISCO" pour mon club de ping.

merci d'avance à tous-ceux qui vont peut-être passer un peux de temps sur ce problème pour moi et sûrement une bétise pour vous!

Marc
 
Dernière édition:
Vote positif 0 Vote négatif

CISCO

XLDnaute Barbatruc
Bonjour

Il me semblait aussi, mais ne connaissant pas tous les tenants et tous les aboutissants de ton fichier...

Si c'est ça, tu double-cliques sur Feuil8 (RESULTATS) dans la fenêtre VBA obtenu avec Alt+F11 et tu effaces tout le code
Code: 
Private Sub Worksheet_SelectionChange(ByVal target As Range)
If ActiveSheet.Name = "RESULTATS" Then ActiveCell.Name = "CA" 'nomme la cellule active
End Sub

De même dans le code de la feuille Feuil2 (CINT), tu peux supprimer
Code: 
If ActiveSheet.Name = "CINT" Then ActiveCell.Name = "CA" 'nomme la cellule active
et garder uniquement (donc pas en commentaire)
Code: 
ActiveCell.Name = "CA" 'nomme la cellule active

Ensuite, tu supprimes dans le gestionnaire de noms les CA définis dans les feuilles RESULTATS et dans RESULTATS bis.

@ plus
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

  • Question
Microsoft 365 Copier une plage vers une autre feuille depuis un USF
Réponses
4
Affichages
190
chris6999
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
417
steph_29120
S
M
  • Question
Autres Copier la ligne complète d’un tableau dans un autre tableau sous condition
Réponses
1
Affichages
255
djidji59430
N
  • 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
444
Nel'
N
M
  • Question
XL 2019 Copier des lignes les unes a la suite des autres dans une autre feuille sous conditions et seulement certaines colonnes
Réponses
7
Affichages
634
MGH
M
M
  • Question
XL 2019 Transposer des données d'une feuille vers une autre sous forme de synthèse
Réponses
8
Affichages
261
mromain
A
  • Résolu(e)
XL 2016 Transfert de formule d'une feuille à une autre.
Réponses
2
Affichages
411
Al1_44
A
N
  • Résolu(e)
Microsoft 365 Lien vers une feuille du classeur
Réponses
2
Affichages
429
Nathan027
N
  • Résolu(e)
XL 2019 Créer un lien Hypertexte ancré à un mot sur une autre feuille
Réponses
8
Affichages
328
sylvanu
  • Résolu(e)
XL 2021 Copie cellules Excel vers Word avec mise à jour automatique
2
Réponses
29
Affichages
1 K
alexandre33260
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…