J'ai du mal à comprendre mais mon code ne marche pas, j'ai beau chercher. Je veux juste un paramètre d'incrémentation entre deux cellules.

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
Sub Show_Selection()
Dim claim_id1 As Variant ' first dev of claim id
Dim claim_id2 As Variant ' Second dev of claim id
Dim incre_claim_id As Variant ' parametre d'incrémentation entre les claims ID
Dim Range1 As Range
Dim ws As Worksheet
Dim ws1 As Worksheet
 
Set ws = Sheets("intput") ' whorksheet entree
Set ws1 = Sheets("Parameters") ' whorksheet parameter
 
 
' selection claims ID
claim_id1 = ws.Cells(2, 12) 'B17
claim_id2 = ws.Cells(2, 13) 'B20
claim_id1 = ws1.Cells(5, 16)
claim_id2 = ws1.Cells(5, 17)
incre_claim_id = Range1.RowDifferences("A1:A2") ' la différence entre les deux
 
End Sub