Utilisation de Rows difference

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:

---

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

---

Bonjour,

En regardant la page msdn, j'imagine qu'il faut essayer ceci:

Code:

---

incre_claim_id = Range1.RowDifferences(Range("A1:A2"))

---

Es-tu certain que tu peux comparer une plage et non pas une unique cellule ?

Bonjour,

Tu dis :

Citation:

---

Code:

---

1 2	claim_id1 = ws.Cells(2, 12) 'B17 claim_id2 = ws.Cells(2, 13) 'B20

---

---

Personellement j'aurais mis la methode .Value après l'adresse de Cells
Est-ce que B17 est la valeur de la cellule ou son adresse parce là l'adresse c'est L2 et M2 ?

Tu dis

A+

PS : Mets les Balises :tagcode: c'est plus lisible

Merci pour vos réponses

B17 est la valeur de la cellule

bonjour,
je ne sais si cela peut resoudre ton problème je te recopie un exemple de l'aide microsoft :

Exemple
Cet exemple montre comment sélectionner les cellules de la ligne Row1 de la feuille Sheet1 dont le contenu est différent de celui de la cellule D1.
VBA

Code:

---

1 2 3 4

Worksheets("Sheet1").Activate Set c1 = ActiveSheet.Rows(1).RowDifferences( _ comparison:=ActiveSheet.Range("D1")) c1.Select

---

je vais essayer

geogeo70