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
Partager