titiborregan5
XLDnaute Accro
Bonjour à tous,
je rencontre des difficultés pour ma macro, pourtant pas si compliquée que cela.
J'ai dans une feuille appelée "test" une liste de nom, leur date d'entrée, de sortie si besoin, et les colonnes 2008 2009 2010 2011 et 2012 respectivement dans les colonnes O, P, Q, R, S.
A l'aide d'une formule, il me renvoie un 1 si la personne était présente durant cette année.
Avec la macro j'aimerai copier (depuis feuille test) coller (dans la feuille accueil) par année, afin de pouvoir dupliquer si besoin (une personne présente plusieurs années doit avoir plusieurs lignes dans la nouvelle feuille), mais je n'arrive pas à lui faire copier coller toutes les valeurs présentes, il ne me colle que la dernière.
Mon code est le suivant :
Cette ligne n'est que pour 2008, et il ne me renvoie que la personne la plus en bas dans la liste...
Comment faire pour qu'il prenne TOUTES les personnes?
Merci d'avance
Ci-joint mon fichier
Cordialement
je rencontre des difficultés pour ma macro, pourtant pas si compliquée que cela.
J'ai dans une feuille appelée "test" une liste de nom, leur date d'entrée, de sortie si besoin, et les colonnes 2008 2009 2010 2011 et 2012 respectivement dans les colonnes O, P, Q, R, S.
A l'aide d'une formule, il me renvoie un 1 si la personne était présente durant cette année.
Avec la macro j'aimerai copier (depuis feuille test) coller (dans la feuille accueil) par année, afin de pouvoir dupliquer si besoin (une personne présente plusieurs années doit avoir plusieurs lignes dans la nouvelle feuille), mais je n'arrive pas à lui faire copier coller toutes les valeurs présentes, il ne me colle que la dernière.
Mon code est le suivant :
Code:
Sub Bouton1_Clic()
Sheets("TEST").Activate
dernligne = Sheets("TEST").Range("A" & Rows.Count).End(xlUp).Row
dernligne2 = Sheets("accueil").Range("A" & Rows.Count).End(xlUp).Row + 1
For i = 1 To dernligne
If Cells(i, 15) = "" Then
Else: Rows(i + 1).Copy Sheets("accueil").Range("A" & dernligne2)
End If
Next
End Sub
Cette ligne n'est que pour 2008, et il ne me renvoie que la personne la plus en bas dans la liste...
Comment faire pour qu'il prenne TOUTES les personnes?
Merci d'avance
Ci-joint mon fichier
Cordialement