Bonjour ,
j'aimerais connaitre le code qui me permettrait de sélectionner voir de connaitre la valeur d'une cellule dans une plage variables.


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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Dim table As Range
Dim table2 As Range
Dim Ligne_table  As Byte
Dim Cln_table  As Byte
 
Dim hauteur_brut As Currency
Dim Øext_brut As Integer
Dim Øint_brut As Integer
 
With Feuil5
Øext_brut = .Range("W2").Value
Øint_brut = .Range("X2").Value
hauteur_brut = .Range("Y2").Value
 
If hauteur_brut <= 50 Then
Set table = .Range("A2:A19")
ElseIf hauteur_brut > 50 And hauteur_brut <= 100 Then
Set table = .Range("A2:A19")
Set table2 = .Range("A20:A37")
End If
 
End With
 
Ligne_table = 1
Cln_table = 2
 
For i = 300 To 2000 Step 100
If Øext_brut > i And Øext_brut < i + 100 Then
If Øext_brut - 50 < i Then
Ligne_table = Ligne_table
Exit For
Else
Ligne_table = Ligne_table + 1
Exit For
End If
Else
Ligne_table = Ligne_table + 1
End If
Next
 
For i = 200 To 1800 Step 100
If Øint_brut > i And Øint_brut < i + 100 Then
Cln_table = Cln_table
Exit For
Else
Cln_table = Cln_table + 1
End If
Next
avec ce code j'obtient un numero ligne et un numéro de colonne.
comment obtenir la valeur de ma cellule correspondante contenue ds ma plage "table" ?

un truc du genre

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
dim x as currency 
 
x = cells(table.rows(ligne_table) , table.columns(cln_table)).value
mais ça ne fonctionne pas.

Merci de votre aide