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

Saisie sur une feuille à récapituler sur une autre feuille

  • Initiateur de la discussion Initiateur de la discussion schmoll91
  • 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

schmoll91

Guest
Bonjour,

J'ai sur une feuille la saisie de résultats de matchs d'une équipe sur une seule ligne dont 80% des champs sont remplis via des listes de choix.

Je souhaite qu'une fois la saisie d'une ligne terminée, les infos viennent compléter une seconde feuille en les positionnant sur la première ligne vide de façon à avoir un récapitulatif permanent des résultats d'une équipe.

Si quelqu'un a la bonté de m'aider sur ce coup là, je lui en serais très reconnaissant.

Le sénior schmoll91
 

Pièces jointes

Re : Saisie sur une feuille à récapituler sur une autre feuille

Bonjour schmoll91

Petit essai en PJ, la macro se lance en cliquant sur le bouton "clic", vois si cela peut t'aider.
Code:
Sub copier()
Dim Plage As Range, Desti As Range
Dim Lig As Long
Set Plage = Sheets("Saisie").Range("A11:H11")
Lig = Sheets("Synthèse").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
Set Desti = Sheets("Synthèse").Range("A" & Lig & ":H" & Lig)
Desti.Value = Plage.Value

End Sub

Bonne soirée,

mth
 

Pièces jointes

Re : Saisie sur une feuille à récapituler sur une autre feuille

Bonjour mth,

Merci beaucoup pour ton aide, ça fonctionne comme je le souhaitais !

J'avais fini par trouver la solution suivante, mais insatisfaisante car il ne faut pas qu'il y ait de lignes vides avant le début du tableau.

Code pour info :

Sub Image9_QuandClic()
Sheets("Synthèse").Cells(Application.Rows.Count, 1).End(xlUp).Offset(1, 0).EntireRow.Range("A1:H1").Value = Range("A11:H11").Value

MsgBox "Transfert effectué"

End Sub


Encore merci et bonne journée !

Schmoll91
 
- 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

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…