Re: Traitement de données automatisé |
Titre du sujet : Re: Traitement de données automatisé par Megaolive le 13/07/2007 12:36:23 Ci dessous le code finalement édité, un peu différent de l'approche proposé mais qui fonctionne tout aussi bien. Si vous remarquez des choses qui peuvent ou doivent être faites autrement, N'hésitez pas à critiquer ce code. Merci encore pour votre aide ! [Code] Sub TestComment() 'Init des variables Feuille & Range source et destination Dim f_comm As Worksheet Dim r_peri As Integer Dim r_pays As Integer Dim c_dept As Integer Dim f_dest As Worksheet Dim r_dest As Integer 'Affectation de valeurs aux variables "définition des feuilles" Set f_comm = Worksheets("Commentsource" ) Set f_dest = Worksheets("sheet1" ) 'Initialisation des variables Colonne Periode, Pays, et ligne Departement '( Celle la m'a bien fait batailler alors que c'est une évidence) r_peri = 14 r_pays = 13 c_dept = 28 'Initialisation de la variable Ligne d'arrivée r_dest = 1 'Test sur cellule de la zone source For Each cell In f_comm.Range("AB15:AG31" ) If cell.Value <> "" Then ' Definition de la valeur à reporter sur la feuille destination en fonction des références de la zone source f_dest.Cells(r_dest, 1).Value = Cells(r_peri, cell.Column).Text & " - " & _ Cells(r_pays, cell.Column).Text & " - " & _ Cells(cell.Row, c_dept).Text & " - " & _ cell.Text ' Ligne de destination + 1 pour décaler vers le bas au fur et à mesure des recopie ( Ca c'est génial :p) r_dest = r_dest + 1 'Fin de SI End If 'Redemarrage en haut de boucle Next End Sub [/Code] |
Forums