Rapport de message :*
 

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]