Titre du sujet : Re: Copier une cellule vers une autre feuille en fonction d'une date
par JeanMarie le 27/12/2012 07:18:00
Bonjour Sandy84, Didier, le Forum
Voici un code pour écrire la valeur "PO" dans la bonne cellule de ton tableau, code à mettre dans un module.
Sub Sandy_mdf_xlpages()
'Déclaration des variales
Dim vLigne As Byte
'Action .xxxx pointant sur l'objet
With Worksheets("Feuil1")
'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
vLigne = (Application.Match("X", .Range("A5:C5"), 1) * 3) + 1
'on écrit la valeur de la cellule E5
'dans la colonne "PO" du mois concerné et en fonction de la ligne vLigne
Worksheets("Feuil2").Cells(vLigne, (Month(.Range("I5")) * 2)) = .Range("E5")
End With
End Sub
Après il te faudra créer un bouton pour lancer le code.
Concernant la formule en I5, tu peux l'écrire de cette manière :
=SI(ESTVIDE($H5);"";$H5+$D5)
ou
=SI($H5="";"";$H5+$D5)
@+Jean-Marie
|
Didier FOURGEOT