Discussion :

[jackito]

Bonjour a tous,
Comme l'indique le titre je suis novice en code vba, et je souhaiterai avoir un coup de main sur un code:
Le xlsm se compose de 2 onglets:
onglets 1:



onglets 2:



L'objectif est de remplir l'onglet2 par balayage en faisant pour une même ref et sur la même période:
ressource - conso jusqu’à atteindre le seuil quand le seuil est atteint (on incremente de 1 le nombre de reappro ) puis on continu a retranché la conso pendant le nombre de mois que dure le tps d'approvisionnement.
Lorsque le delais d'appro est atteint on ajoute le multiple de commande . . . sur toute la plage de tps puis on passe a la ref suivante.

Pour l'instant mon code est le suivant (ca vaut ce que ca vaut):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Sub nouveau()
Dim i, j As Integer
Dim cond1, cond2, cond3 As Double
Dim cellule, plage, multiple_cde, seuil As Range
'Initialiser a zero le tableau de valeurs a traiter
On Error Resume Next
    Set plage = Application.InputBox("Selection de la plage de cellules a initialiser à zéro:", "Sélectionnez la plage de cellules à initialiser a zéro:", Type:=8)
    On Error GoTo 0
    If plage Is Nothing Then MsgBox "Sélection annulée"
    plage.Value = "0"
'Initialisation des colonnes de frottement
'On Error Resume Next
 '   Set multiple_cde = Application.InputBox("Selection de la colonne de valeur multiple_cde:", "Sélectionnez la colonne plage de multiple_cde:", Type:=8)
  '  On Error GoTo 0
   ' If ressource Is Nothing Then MsgBox "Sélection multiple_cde annulée"
'On Error Resume Next
 '   Set seuil = Application.InputBox("Selection de la colonne de valeur seuil:", "Sélectionnez la colonne plage de seuil:", Type:=8)
  '  On Error GoTo 0
   ' If ressource Is Nothing Then MsgBox "Sélection seuil annulée"
'Boucle de remplissage de zone de traitement
For Each cellule In plage
indice_ligne = cellule.Row
indice_colonne = cellule.Column
 
cond1 = Cells(indice_ligne, 1).Value
cond2 = Cells(1, indice_colonne).Value
'cellule.Value = Evaluate("index(Feuil1!b2:t50,match(1,(Feuil1!a1:a5000=""" & cond1 & """)*(Feuil1!a1:t1=""" & cond2 & """),0))")
 
 
Next
End Sub