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

Copier/coller tableau et remise a zero

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion ced5076
  • 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
C

ced5076

Guest
Bonjour,

Un petit cas d'école, que j'ai réussi à résoudre, mais je pense qu'il y a surement plus simple:

Contexte:

2 feuilles (EXP et DEST) avec un tableau dans chaque feuille (plages nommées EXP et DEST). Le tableau EXP contient les données sources. Le tableau DEST doit à l'ouverture du fichier être remis à zéro (effacement des données et supprime les lignes sauf une pour garder la zone nommée). Pour que ce soit pratique, j'ai pas mis le code de la mise à zéro à l'ouverture mais sur un bouton.
Le 2 ème bouton permet de copier les données sources (tableau EXP) au tableau DEST.

Pour la mise à zéro je n'ai pas réussi à faire plus simple que sélectionner la zone nommée > effacer le contenu>décaler la sélection d'une ligne vers le bas>réduire la sélection - 1 ligne> supprimer. Ca me permet de conserver 1 ligne pour la zone nommée.
Sinon, si je fais:

Application.Goto Reference:="DEST"
selection.delete

Je n'ai plus de tableau donc plus de zone "DEST"...

Merci pour vos avis et commentaires.

@ ++
 

Pièces jointes

Trier par date Trier par votes
Re : Copier/coller tableau et remise a zero

Bonjour Ced,

Voici une solution possible pour les 2 fonctions :

Code: 
Sub Copie_Clic()
 Range("EXP").Copy Destination:=Range("Dest")
End Sub


Sub Zero_Clic()
'Sécurité pour ne pas effacer si vide
If Range("Dest").Rows.Count > 1 Then
  Range("Dest").Rows(1 & ":" & Range("Dest").Rows.Count).Delete
End If
End Sub
 
Vote positif 0 Vote négatif
Re : Copier/coller tableau et remise a zero

Bonsoir,

Je ne sais pas exactement ce que tu veux faire apres mais tu peux essayer aussi ceci :
Code: 
Sub Zero_Clic()
Sheets("DEST").Range("A1").CurrentRegion.Offset(1, 0).Clear
End Sub
Sub Copie_Clic()
Sheets("EXP").Range("A1").CurrentRegion.Offset(1, 0).Copy Sheets("DEST").Range("A2")
End Sub
 
Vote positif 0 Vote négatif
Re : Copier/coller tableau et remise a zero

Bonjour et merci pour cette aide. Les 2 solution fonctionnent.
Il me reste undétail à régler: pouvoir faire monter et descendre une ligne du tableau (que la ligne du tableau pas tout la ligne de la feuille !!). J'ai essayé, mais pas si simple pour moi...

@++
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Copier/coller tableau et remise a zero

Bonjour,

Une solutions dans le fichier joint
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : Copier/coller tableau et remise a zero

🙂Merci, nickel !!
Ca va beaucoup m'aider.
@ ++ pour de nouvelles question...

PS: vous pouvez me dire comment passer le post en "résolu" ?
 
Dernière modification par un modérateur:
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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Résolu(e)
XL 2019 copier des valeurs de la verticale à l'horizontale. Possible d'un coup ?
2
Réponses
20
Affichages
476
gosselien
P
  • Question Question
Autres moyenne de plusieurs lignes et colonnes sous deux conditions
Réponses
8
Affichages
408
podarck
P
G
  • Question Question
XL 2016 filtrer, copier et coller les données avec la macro
Réponses
4
Affichages
317
job75
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
543
AtTheOne
M
  • Résolu(e)
Microsoft 365 $ Macro pour copier un exemple et$.....
Réponses
9
Affichages
513
sousou
M
  • Résolu(e)
XL 2021 VBA Ajouter ligne tableau + autres cellules hors tableau
Réponses
3
Affichages
246
sylvanu
S
  • Résolu(e)
XL 2013 Copier-Coller une ligne dans tableau variable, et la manipuler.
Réponses
4
Affichages
374
StéphaneDeLà
S
G
  • Résolu(e)
XL 2021 Mise à jour d'un graphique, avec les données qui s'empilent
Réponses
12
Affichages
463
gerardphi
G
N
  • Question Question
Microsoft 365 Propagation de formule dans un tableau avec des valeurs existantes (saisies manuellement)
Réponses
4
Affichages
392
NikonvsWild
N
C
  • Résolu(e)
XL 2019 User Form qui renvoi dans un tableau avec celulle fusionnée
2
Réponses
16
Affichages
347
Piment
P
P
  • Question Question
Microsoft 365 VBA copier-coller selon conditions
Réponses
4
Affichages
320
vgendron
  • Question Question
XL 2019 Copier et coller automatiquement une nouvelle donnée par un bouton, ListView décallée à la sur la page (Multipage) et vibration du Userform
2
Réponses
16
Affichages
951
TooFatBoy
M
  • Question Question
XL 2016 pb création de tableau par macro
Réponses
10
Affichages
408
ChTi160
M
  • Question Question
Microsoft 365 Ajout de cas à cocher et mise en forme conditionnelle dans un tableau Excel
Réponses
9
Affichages
631
mimednejma
M
  • Question Question
XL 2021 FINDXTREME: Je compte sur vos avis sur ce projet … Par avance MERCI
Réponses
10
Affichages
348
p'tit vieux
S
  • Résolu(e)
XL 2013 Questions déjà traitée ici mais... (Insérer cellule dans nom de PDF)
Réponses
10
Affichages
521
StéphaneDeLà
S
M
  • Question Question
XL 2019 Transposer des données d'une feuille vers une autre sous forme de synthèse
Réponses
8
Affichages
760
mromain
  • Question Question
XL 2021 Détecter un changement dans un des contrôles de formulaire et mettre à jour un TS correspondant.
2
Réponses
15
Affichages
697
jeff1494
N
  • Résolu(e)
XL 2019 Macro pour copier ligne avec case à cocher liée
Réponses
12
Affichages
556
Phil69970
B
  • Résolu(e)
Microsoft 365 Calcul horamètres avec remise à zéro des compteurs
2
Réponses
19
Affichages
2 K
Laurent78
L
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…