Offset de colonne relative

[Pitoo]

Salut El Forum, mon probleme est le suivant : j'essaie d'extraire les elements et leur prix en fonction de leur mois d'affectation, et de me faire un joli tableau presentant les items en une colonne, et leur prix dans la colonne du mois correspondant.

Du coup je me fais ca :

Sub items_12m_rf()

Dim i, j, k As Integer
k = 0
j = 12

'i numero de ligne du calendrier de prix
'k module les mois
'j lignes du tableau de resultats

For i = 7 To 2684
If Sheet3.Range('X' & i).Value = Sheet11.[E6].Value + k Then
Sheet11.Range('I' & j).Value = Sheet3.Range('N' & i).Value
ActiveCell.Offset(0, k + 1).Select
ActiveCell.Value = Sheet3.Range('Q' & i).Value
ActiveCell.Offset(0, -k - 1).Select

End If
j = j + 1
k = k + 1
Next

End Sub

Mais ca ne me sort que le premier element...

Pourquoi donc ?

PS impossible de vous mettre un exemple, en revanche :
Sheet3 colonne X = mois
Sheet3 colonne N = description du bidule
Sheet3 colonne Q = son prix
Sheet11 ma feuille pour le tableau

Merci d'avance a tous les lecteurs !

Pito

 

[Robert]

Bonjour Pito, bonjour le forum,

Sans l'exemple c'est difficle. J'imagine que tu as au préalablement déclaré et défini les variables Sheet3 et Sheet11... J'ai pensé que peut-être l'incrémentation de J et K devait ce faire anvant le End If. J'ai aussi supprimé les sélections qui ralentissent l'exécution du code :

Sub items_12m_rf()

Dim i, j, k As Integer
k = 0
j = 12

'i numero de ligne du calendrier de prix
'k module les mois
'j lignes du tableau de resultats

For i = 7 To 2684
If Sheet3.Range('X' & i).Value = Sheet11.[E6].Value + k Then
Sheet11.Range('I' & j).Value = Sheet3.Range('N' & i).Value
ActiveCell.Offset(0, k + 1).alue = Sheet3.Range('Q' & i).Value
j = j + 1
k = k + 1
End If
Next
End Sub

 

[Pitoo]

salut bernard, le forum,

en fait sheet3 et sheet11 ce sont mes feuilles de calcul. je comprends qu'en freestyle ce soit pas evident, mais toujours est-il que ton code ne passe pas plus que le mien ! B)

en fait il faut aller chercher les montants correspondants au bon mois et le rapatrier dans sa colonne idoine
d'ou le probleme de colonnes relatives et l'introduction de k pour faire varier l'affectation

je suis clair la ?