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

archivage d'une ligne dans un tableau récapitulatif

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

smirk

Guest
Bonjour,
je souhaiterais avoir l'aide de quelqu'un parce que là je bloque totalement sur l'archivage d'une ligne et j'ai pourtant longuement cherché sur le forum une solution...

Alors je souhaiterais que la ligne en Feuil1 soit archivée dans mon tableau en Feuil2 de sorte que lorsque je change les données de la feuil1 je puisse à nouveau enregistrer la ligne dans mon tableau de la Feuil2 (cette nouvelle ligne se mettra sous la précédente et ainsi de suite...). J'espère avoir été suffisamment claire^^ lol

Donc si quelqu'un pouvait me dire ce qu'il faut mettre dans la macro pour que cela se réalise simplement je lui en serait plus que reconnaissant ^^

Merci d'avance : )
 

Pièces jointes

Trier par date Trier par votes
Re : archivage d'une ligne dans un tableau récapitulatif

Bonjour smirk, bienvenue sur XLD,

Affecter au bouton cette macro :

Code: 
Sub Archiver()
If IsEmpty(Feuil1.Range("B4")) Then MsgBox "Il faut entrer au moins le nom...": Exit Sub
Feuil1.Range("B4:O4").Copy Feuil2.Range("B" & Rows.Count).End(xlUp)(2) 'Feuil1 et Feuil2 sont les CodeNames
'Feuil2.Activate 'facultatif
End Sub

Fichier joint.

Edit : téléchargez d'abord le fichier...

A+
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : archivage d'une ligne dans un tableau récapitulatif

Re,

Une solution plus élaborée, mais à vous de voir :

Code: 
Sub Archiver()
Dim F1 As Worksheet, F2 As Worksheet, SS As Range
Dim lig As Variant, newlig As Long, destination As Range
Set F1 = Feuil1 'CodeName de la feuille
Set F2 = Feuil2 'CodeName de la feuille
Set SS = F1.Range("J4")
If IsEmpty(SS) Then MsgBox "Il faut entrer au moins le numéro de SS...": Exit Sub
lig = Application.Match(SS, F2.Columns("J"), 0)
newlig = F2.Range("J" & Rows.Count).End(xlUp)(2).Row
Set destination = F2.Range("B" & IIf(IsError(lig), newlig, lig))
F1.Range("B4:O4").Copy destination
'Feuil2.Activate 'facultatif
'destination.Resize(, 14).Select 'facultatif
End Sub

Fichier (2) joint.

Edit : pour ceux qui n'ont pas Excel 2007 ou 2010, je joins le fichier .xls.

A+
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : archivage d'une ligne dans un tableau récapitulatif

Merci beaucoup pour cette réponse rapide : ) mais j'ai un problème, sur le fichier que tu as mis ça marche très bien mais quand j'intègre cette macro à mon logiciel qui contient d'autres feuilles et bien ça ne marche plus, ça me met "il faut entrer dabord le nom" (je sais que la ligne est pleine mais pourtant elle l'est aussi dans le fichier que tu as joint et ça marchait...).
Bref je ne comprend plus ^^
si tu pouvais m'aider...merci
 
Vote positif 0 Vote négatif
Re : archivage d'une ligne dans un tableau récapitulatif

Re,

smirk à dit:
(...) ça me met "il faut entrer dabord le nom" (...)
Cliquez pour agrandir...

Donc vous parlez de la 1ère solution, mais ça sera le même problème pour la 2ème.

Allez dans VBA (Alt+F11) et regardez en haut à gauche les noms des feuilles (avant ceux qui sont entre parenthèses).

Ce sont les CodesNames des feuilles.

Et dans la macro remplacez Feuil1 et Feuil2 par les CodeNames adéquats.

Pourquoi les CodeNames ? Parce qu'ils ne changent pas quand on modifie les noms des feuilles.

A+
 
Vote positif 0 Vote négatif
Re : archivage d'une ligne dans un tableau récapitulatif

merci beaucoup ça marche ! j'arrive à copier la ligne : )
mais j'ai encore un soucis (et de taille...) ça me copie la ligne mais dans la dernière ligne de mon tableau et non sur celle qui se trouve tout en haut ; c'est quand même problématique...
donc si tu as une solution ^^ je suis preneuse : )
 
Vote positif 0 Vote négatif
Re : archivage d'une ligne dans un tableau récapitulatif

Re,

smirk à dit:
mais j'ai encore un soucis (et de taille...) ça me copie la ligne mais dans la dernière ligne de mon tableau et non sur celle qui se trouve tout en haut (...)
Cliquez pour agrandir...

Je suppose qu'il s'agit de la 1ère solution ?

Alors utilisez cette macro :

Code: 
Sub Archiver()
If IsEmpty(Feuil1.Range("B4")) Then MsgBox "Il faut entrer au moins le nom...": Exit Sub
Feuil1.Range("B4:O4").Copy
Feuil2.Range("B3:O3").Insert xlDown 'Feuil1 et Feuil2 sont les CodeNames
Application.CutCopyMode = False
'Feuil2.Activate 'facultatif
End Sub

A+
 
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

C
  • Résolu(e)
XL 2021 Filtrer sur la ligne active
Réponses
11
Affichages
211
Constantin
C
  • Résolu(e)
Microsoft 365 Récupération d'une valeur particulière dans un tableau...
Réponses
13
Affichages
414
nightswan
R
  • Question Question
XL 2021 Recherche formule pour compléter une cellule a partir des données d'une autre feuille du classeur (16/03/2026)
2
Réponses
18
Affichages
566
laurent950
C
  • Résolu(e)
XL 2019 User Form qui renvoi dans un tableau avec celulle fusionnée
2
Réponses
16
Affichages
361
Piment
P
N
  • Question Question
Microsoft 365 Vérifier si une référence existe dans un tableau Excel avant de la créer
2
Réponses
19
Affichages
1 K
nikeu01
N
P
  • Résolu(e)
XL 2021 peut on mettre plusieurs fonctions si erreur index les une à la suite des autres
Réponses
9
Affichages
281
PR.
P
M
  • Question Question
Microsoft 365 Chercher dernière valeur d'une ligne mais avec une particularité
Réponses
4
Affichages
345
Marie.
M
C
  • Résolu(e)
XL 2021 Reporter la valeur d'une cellule dans le pied de page.
2
Réponses
17
Affichages
302
sylvanu
R
  • Question Question
Microsoft 365 Ecrire un texte dans une cellule sous condition et changer couleur ligne
Réponses
4
Affichages
213
Rikko14
R
A
  • Question Question
XL 2019 Copie d'une valeur dans la cellule à côté d'une valeur trouvé
Réponses
1
Affichages
585
sylvanu
  • Résolu(e)
XL 2019 Erreur de Type à la ligne 5581
Réponses
5
Affichages
398
Titof06
N
  • Question Question
Microsoft 365 Propagation de formule dans un tableau avec des valeurs existantes (saisies manuellement)
Réponses
4
Affichages
398
NikonvsWild
N
Y
  • Question Question
XL 2019 Masquer automatiquement des lignes selon la valeur d'une cellule ?
Réponses
2
Affichages
560
Yogean
Y
  • Question Question
Microsoft 365 Tableau
2
Réponses
24
Affichages
2 K
jaclam
Y
  • Résolu(e)
XL 2016 Calculs automatique XO pour des valeurs dans un tableau
Réponses
3
Affichages
141
dysorthographie
P
  • Résolu(e)
XL 2019 Tri sur une ligne dans un tableau.
Réponses
4
Affichages
366
Paulle
P
T
  • Question Question
XL 2019 tableau , cellule protégé et ligne vide
Réponses
2
Affichages
262
sylvanu
  • Résolu(e)
Microsoft 365 Extraire les données d'une ligne d'un tableau dynamique piloté par un segment
Réponses
2
Affichages
297
ralph45
S
  • Résolu(e)
XL 2013 Copier-Coller une ligne dans tableau variable, et la manipuler.
Réponses
4
Affichages
375
StéphaneDeLà
S
T
  • Question Question
Microsoft 365 Afficher des résultats en colonne sous forme de ligne
Réponses
6
Affichages
403
JHA
J
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…