Discussion :

[teddy72000]

Bonjour,

Besoin d'un petit coup de pouce.

Actuellement j'utilie ce bout de macro

Code :

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

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 :

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

1
2
3
4
Dim Tb
Dim Numero
Numero = Range ("A1":A6").value
Tb = Array (Numero)

Merci pour vos infos

[mercatog]

Tu étais presque

Code :

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

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

Ou bien

Code :

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

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

[teddy72000]

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

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
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

[mercatog]

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

Edit: à adapter

Code :

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

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