Discussion :

[alxdlx2704]

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

[LawNasK]

Bonjour,

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

Code :

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

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

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

[Igloobel]

Bonjour,

Tu dis :

Code :

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

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 c'est plus lisible

[alxdlx2704]

Merci pour vos réponses

B17 est la valeur de la cellule

[geogeo70]

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 :

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

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

je vais essayer

geogeo70