Macro déplacer/lister des cellules-->autre feuille
Résolu
timtamtoum
Messages postés
25
Statut
Membre
-
timtamtoum Messages postés 25 Statut Membre -
timtamtoum Messages postés 25 Statut Membre -
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...
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...
2 réponses
-
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 -
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-
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é !
-
