Macro déplacer/lister des cellules-->autre feuille

Résolu/Fermé

timtamtoum Messages postés 25 Date d'inscription jeudi 19 novembre 2015 Statut Membre Dernière intervention 10 octobre 2023 - 23 mai 2018 à 18:32
timtamtoum Messages postés 25 Date d'inscription jeudi 19 novembre 2015 Statut Membre Dernière intervention 10 octobre 2023 - 23 mai 2018 à 21:13

Bonjour,

J'ai finalisé une fiche d'évaluation pour mes élèves en Badminton, mais cette fiche est dans la feuil#1 et je voudrais copier/coller certaines cellules vers la feuil#2 sans écraser les résultats précédents.

Concrètement:

Je crée une macro qui transfère les données des cellules i2:M2 & les cellules i32:M32 vers la feuil#2 (jusque là tout va bien).
Cependant à chaque nouvel élève les résultats dans ces cellules vont changer puisque leurs résultats seront différents.
Comment, de ce fait, transférer ces nouveaux résultats des cellules i2:M2 & les cellules i32:M32 vers la feuil#2 en A3:H3 (sous les premiers résultats obtenus par l'élève précédent qui ont eu comme destination A2:H2) ?

Merci d'avance...

Je peux encore mieux m'exprimer s'il le faut...

A voir également:

Macro déplacer/lister des cellules-->autre feuille
Déplacer une colonne excel - Guide
Formule excel pour additionner plusieurs cellules - Guide
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Verrouiller des cellules excel - Guide
Macro word - Guide

2 réponses

Réponse 1 / 2

ccm81 Messages postés 10903 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 19 novembre 2024 2 428
23 mai 2018 à 20:26

1. Toute les manips à faire (macro comprise) sont elles dans le même fichier "macro bac bad 2018.xlsm", si oui tu peux supprimer Workbooks("macro bac bad 2018.xlsm"). dans toutes tes lignes
2. Pour ce qui est de la récupération de la première ligne disponible de la feuille Bilan Classe
lifin = sheets("Bilan Classe").Range("A" & rows.count).end(xlup).row+1
puis
Sheets("Bilan Classe").Range("A" & lifin).Value = Sheets("Fiche d'éval").Range("I32").Value
etc ...

Cdlmnt

timtamtoum Messages postés 25 Date d'inscription jeudi 19 novembre 2015 Statut Membre Dernière intervention 10 octobre 2023
23 mai 2018 à 21:13

Je n'ai pas tout compris tout de suite (mon niveau est encore débutant)
Mais en essayant plusieurs façons de comprendre votre "etc..." j'ai enfin réussi !

Mille mercis !

Réponse 2 / 2

ccm81 Messages postés 10903 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 19 novembre 2024 2 428
23 mai 2018 à 18:46

Bonjour

La derniere ligne non vide de la colonne A
lifin = sheets(nom_feuile).Range("A" & rows.count).end(xlup).row
et lifin+1 te donnera la preimère ligne qui suit

Cdlmnt

timtamtoum Messages postés 25 Date d'inscription jeudi 19 novembre 2015 Statut Membre Dernière intervention 10 octobre 2023
23 mai 2018 à 19:18

Merci ccm81,
sincèrement désolé mais je ne visualise pas où je dois entrer cette formule?

Voici ma macro pour coller mes données brutes sur ma feuil#2:

Sub rangecopy()
Workbooks("macro bac bad 2018.xlsm").Worksheets("Bilan Classe").Range("A2").Value = Workbooks("macro bac bad 2018.xlsm").Worksheets("Fiche d'éval").Range("I32").Value
Workbooks("macro bac bad 2018.xlsm").Worksheets("Bilan Classe").Range("B2").Value = Workbooks("macro bac bad 2018.xlsm").Worksheets("Fiche d'éval").Range("K32").Value
Workbooks("macro bac bad 2018.xlsm").Worksheets("Bilan Classe").Range("C2").Value = Workbooks("macro bac bad 2018.xlsm").Worksheets("Fiche d'éval").Range("M32").Value
Workbooks("macro bac bad 2018.xlsm").Worksheets("Bilan Classe").Range("D2").Value = Workbooks("macro bac bad 2018.xlsm").Worksheets("Fiche d'éval").Range("i2").Value
Workbooks("macro bac bad 2018.xlsm").Worksheets("Bilan Classe").Range("E2").Value = Workbooks("macro bac bad 2018.xlsm").Worksheets("Fiche d'éval").Range("j2").Value
Workbooks("macro bac bad 2018.xlsm").Worksheets("Bilan Classe").Range("F2").Value = Workbooks("macro bac bad 2018.xlsm").Worksheets("Fiche d'éval").Range("k2").Value
Workbooks("macro bac bad 2018.xlsm").Worksheets("Bilan Classe").Range("G2").Value = Workbooks("macro bac bad 2018.xlsm").Worksheets("Fiche d'éval").Range("l2").Value
Workbooks("macro bac bad 2018.xlsm").Worksheets("Bilan Classe").Range("H2").Value = Workbooks("macro bac bad 2018.xlsm").Worksheets("Fiche d'éval").Range("m2").Value
End Sub

Dois-je rajouter ici en début ou fin ou sur chaque ligne?

Merci d'avance et chapeau pour ta réactivité !

Discussions similaires

Reporter valeur sur autre feuille avec critere

Feuille de score belote