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

Résolu
timtamtoum Messages postés 25 Date d'inscription   Statut Membre Dernière intervention   -  
timtamtoum Messages postés 25 Date d'inscription   Statut Membre Dernière intervention   -
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:

2 réponses

Réponse 1 / 2
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
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
1
timtamtoum Messages postés 25 Date d'inscription   Statut Membre Dernière intervention  
 
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 !
0
Réponse 2 / 2
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
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
0
timtamtoum Messages postés 25 Date d'inscription   Statut Membre Dernière intervention  
 
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é !
0

Discussions similaires

Feuille de score belote
nulleeninfo -
brucine -

7 réponses
Les feuilles Diddl
TiiteBaakaa -
soso -

8 réponses