Tb array avec cellules variables

Bonjour,

Besoin d'un petit coup de pouce.

Actuellement j'utilie ce bout de macro

Code:

---

1 2	Dim Tb TB= Array (75, 76, 77, 78, 79, 80)

---

Ces chiffres peuvent varier et j'aimerais en faite dans une feuille de donnée de la cellule A1 à A6 mettre ces données et les récupérer.

A1=75
A2=76
A3=77
etc...

Cela ferai un code de ce genre (cela ne fonctionne pas)

Code:

---

1 2 3 4

Dim Tb Dim Numero Numero = Range ("A1":A6").value Tb = Array (Numero)

---

Merci pour vos infos

Tu étais presque

Code:

---

1 2 3 4 5

Dim Numero   Numero = Application.Transpose(Range("A1:A6").Value) MsgBox Numero(3)

---

Ou bien

Code:

---

1 2 3 4 5

Dim Numero   Numero = Range("A1:A6").Value MsgBox Numero(3, 1) MsgBox Nimero(5, 1)

---

je sais pas si je me suis bien expliquer en faites le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Dim Tb Dim LastLig As Long Dim i As Byte   Tb = Array(75, 76, 185, 186) With Sheets("Feuil1") LastLig = .Range("A1").End(xlDown).Row For i = 0 To 3 With .Range("A" & 26 + i) .Formula = "=SumProduct((E2:E" & LastLig & "=""TTF" & Format(Tb(i), "000") & """)*(J2:J" & LastLig & "="" hors astreinte""))" .Value = .Value End With Next i End With End Sub

---

Apres array j'ai des valeurs 75 76 185 186, j'aimerais les recuperer à partir d'une plage de cellule sachant que ces valeurs peuvent etre variable

Qu'est ce que tu as compris de ma réponse?

Edit: à adapter

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Dim LastLig As Long Dim i As Byte Dim Tb   Tb = Application.Transpose(Sheets("Feuil2").Range("A1:A6").Value) With Sheets("Feuil1") LastLig = .Range("A1").End(xlDown).Row For i = 1 To UBound(Tb) With .Range("A" & 25 + i) .Formula = "=SumProduct((E2:E" & LastLig & "=""TTF" & Format(Tb(i), "000") & """)*(J2:J" & LastLig & "="" hors astreinte""))" .Value = .Value End With Next i End With

---