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

Probleme transfert de données/liste

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

ironangel

XLDnaute Occasionnel
Bonjour le forum,

Voici mon probleme, il est simple:
j'entre des données dans des cellulesde la feuille "déclaration", j'active la macro et ça les copie dans la feuille d'à coté "archive".
Probleme, étant donné que j'ai créé une liste sur la "archive", les données ne se copient pas comme il le faudrait.

Voir le fichier en piece jointe, vous comprendrez directement.
Merci d'avance
Cordialement
 

Pièces jointes

Trier par date Trier par votes
Re : Probleme transfert de données/liste

bonjour ironangel,

essaye avec ce code :
Code: 
Private Sub Déclaration_Click()

[B]'récupérer la première ligne libre de la feuille "Archive BAT"
With ThisWorkbook.Sheets("Archive BAT")
    lastLine = .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0).Row
End With[/B]

With ThisWorkbook.Sheets("Déclaration BAT")
    ThisWorkbook.Sheets("Archive BAT").Cells([B]lastLine[/B], 1).Value = .Range("A4").Value
    ThisWorkbook.Sheets("Archive BAT").Cells([B]lastLine[/B], 2).Value = .Range("B4").Value
    ThisWorkbook.Sheets("Archive BAT").Cells([B]lastLine[/B], 3).Value = .Range("C4").Value
    ThisWorkbook.Sheets("Archive BAT").Cells([B]lastLine[/B], 4).Value = .Range("D4").Value
    ThisWorkbook.Sheets("Archive BAT").Cells([B]lastLine[/B], 5).Value = .Range("E4").Value
    ThisWorkbook.Sheets("Archive BAT").Cells([B]lastLine[/B], 6).Value = .Range("F4").Value
    ThisWorkbook.Sheets("Archive BAT").Cells([B]lastLine[/B], 7).Value = .Range("G4").Value
    ThisWorkbook.Sheets("Archive BAT").Cells([B]lastLine[/B], 8).Value = .Range("H4").Value
    ThisWorkbook.Sheets("Archive BAT").Cells([B]lastLine[/B], 9).Value = .Range("I4").Value
    ThisWorkbook.Sheets("Archive BAT").Cells([B]lastLine[/B], 10).Value = .Range("J4").Value
    ThisWorkbook.Sheets("Archive BAT").Cells([B]lastLine[/B], 11).Value = .Range("K4").Value
    ThisWorkbook.Sheets("Archive BAT").Cells([B]lastLine[/B], 12).Value = .Range("L4").Value
    ThisWorkbook.Sheets("Archive BAT").Cells([B]lastLine[/B], 13).Value = .Range("M4").Value
    ThisWorkbook.Sheets("Archive BAT").Cells([B]lastLine[/B], 14).Value = .Range("N4").Value
End With
End Sub

a+
 
Vote positif 0 Vote négatif
Re : Probleme transfert de données/liste

Salut mromain,
merci pour ton aide, c'est cool ça marche! ça copie bien dans la derniere ligne de la liste ;-)
Par contre, petit probleme, je perd totalement ma mise en forme, à la base les cellules sont quadrillées, le contenu est centré. La je perd le quadrillage + le centrage, j'ai donc la mise en forme de base d'excel.
Aurais-tu une idée pour pallier à ce probleme?

Merci d'avance
Amicalement
 
Vote positif 0 Vote négatif
Re : Probleme transfert de données/liste

re,

essaye en copiant toute la ligne :
Code: 
Private Sub Déclaration_Click()
With ThisWorkbook.Sheets("Archive BAT")
    ThisWorkbook.Sheets("Déclaration BAT").Rows(4).Copy .Range("A" & .Rows.Count).End(xlUp).Offset(1, 0)
End With
End Sub

a+
 
Vote positif 0 Vote négatif
Re : Probleme transfert de données/liste

Salut mromain,

Merci effectivement, cette fois ci, ça garde la mise en page comme sur la page "declaration" cependant, les données ne sont plus introduites dans la derniere ligne de la liste mais en dehors de celle-ci, il faudrait qu'elle continue à ce placer dans cette liste.
est-ce possible?

Amicalement
 
Vote positif 0 Vote négatif
Re : Probleme transfert de données/liste


re,

je ne comprend pas ce que tu veux dire...

a+
 
Vote positif 0 Vote négatif
Re : Probleme transfert de données/liste

Bonjour mromain,

pour t'expliquer mon probleme, je te joins un fichier en piece jointe, comme tu peux le voir ta macro fonctionne elle m'ajoute bien une ligne dans la liste, cependant je perd ma mise en forme et le quadrillage instauré à la base sur toute la feuille "archive BAT"
N'hésite pas si ce n'est pas clair
Merci d'avance
Amicalement
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Probleme transfert de données/liste

Bonjour le forum, mromain,

Si quelqu'un pouvait m'aider pour finaliser ce projet ce serait cool,
PS: mromain, je suis sur que tu as une solution pour moi ;-)

Merci d'avance et bon week end à vous

Amicalement
 
Vote positif 0 Vote négatif
Re : Probleme transfert de données/liste

Bonjour à tous,

Je ne comprends pas trop...
Tu as une mise en forme sans quadrillage sur certaines cellules.
J'ai rajouté une MeFC sur les colonnes A à N et un format % sur les colonnes I et L sur le code de l'ami MRomain 🙂.

A++ 🙂
A+ à tous
 

Pièces jointes

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

  • Question Question
Microsoft 365 Excel VBA: manipuler des fichiers partagés via Teams / Sharepoint
Réponses
2
Affichages
156
Eric 888
  • Question Question
XL 2021 Mise à jour d'un tableau depuis une feuille Excel
Réponses
5
Affichages
405
thunder23
  • Résolu(e)
XL 2021 Liste de validation de données à partir d'une table
Réponses
3
Affichages
508
Zdz16
D
  • Question Question
XL 2021 Liste déroulante et RECHERCHEV
Réponses
5
Affichages
637
Dubuyz1
D
  • Question Question
XL 2021 Déclaration de variables à partir d'une liste de noms
Réponses
8
Affichages
597
PMG
S
  • Question Question
XL 2013 Copier automatiquement des données dans plusieurs onglets
Réponses
4
Affichages
695
Phil69970
C
  • Question Question
Microsoft 365 macro copie de feuilles (avec formules à adapter)
Réponses
9
Affichages
517
caseras
C
T
  • Question Question
Microsoft 365 Garder les doublons dans une liste déroulante
Réponses
3
Affichages
593
djidji59430
  • Question Question
XL 2021 Automatisation Extraction de données et de sommes
Réponses
1
Affichages
276
chris
R
  • Question Question
XL 2016 Extraction de données
Réponses
5
Affichages
648
ROI1482
R
P
  • Question Question
XL 2021 Ajout/adaptation de code VBA sur feuille qui en contient déjà
Réponses
3
Affichages
427
Pierreavecunp
P
I
  • Question Question
XL pour MAC Xlsm - Fichier permettant de gérer un cross d'établissement scolaire
Réponses
8
Affichages
714
iruri
I
D
  • Résolu(e)
Microsoft 365 Graphique avec plage de données glissante en partant d'une date
Réponses
5
Affichages
1 K
Dégé59
D
M
  • Question Question
Microsoft 365 Impression et transfert de donné.
Réponses
5
Affichages
502
manga419
M
  • Question Question
XL 2016 Transfert de données d'un tableau en différenciant les libellés
Réponses
8
Affichages
687
Magnio
XLSM : Copie massive de ligne de données vers la grille
Réponses
3
Affichages
770
oguruma
C
  • Résolu(e)
XL 2021 filtrer données puis envoi sur une autre feuille
Réponses
3
Affichages
659
sylvanu
F
  • Question Question
Microsoft 365 liste validation des données qui se réduit après sélection
Réponses
6
Affichages
863
fabchaninarom
F
T
  • Question Question
XL 2016 Transfert de données d'un tableau à un autre
2
Réponses
16
Affichages
2 K
merinos-BernardEtang
  • Question Question
XL 2021 Comment supprimer des noms du gestionnaire de noms dans un classeur
Réponses
7
Affichages
1 K
jeff1494
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…