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
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