Titre du sujet : Re: Copier une cellule vers une autre feuille en fonction d'une date par JeanMarie le 27/12/2012 14:58:29
Re....
Essaye avec ce code
Sub Sandy_mdf_xlpages()
'Déclaration des variales
Dim vLigne As Byte 'valeur de la ligne à affecter
Dim vColonne As Byte 'valeur de la colonne à affecter
Dim vCumul As Variant 'Valeur de la cellule pointée par vLigne et vColonne
'Action .xxxx pointant sur l'objet
With Worksheets("Feuil1")
'Recherche la dernière cellule de la colonne H contenant une donnée saisie
'Début de la boucle, on commence à la ligne 5
For K = 5 To .Range("H65536").End(xlUp).Row
'Quelle est la ligne à affecter, celle de Pierre, Paul ou Leo ?
'recherche du caractère "X" dans les trois premières colonnes
'vligne aura la valeur 4 , 7, 10
'la foncion Match correspond à la fonction EQUIV d'Excel
vLigne = (Application.Match("X", .Range("A" & K & ":C" & K), 1) * 3) + 1
'Calcul de la colonne à affecter en prenant la valeur du mois de la cellelule en colonne I
vColonne = Month(.Cells(K, "I")) * 2
'on additionne la valeur de la colonne E avec la valeur de la cellule déterminée par vLigne et vColonne
vCumul = Worksheets("Feuil2").Cells(vLigne, vColonne) + .Cells(K, "E")
'on écrit la valeur cumulée
Worksheets("Feuil2").Cells(vLigne, vColonne) = vCumul
'on passe à la ligne suivante
Next K
End With
End Sub
@+Jean-Marie
|