Boucle d'argument de sub

Bonjour,

J'aurai besoin de votre aide, en effet, j'ai crée une procédure avec plusieurs arguments, tous numérotés dans un ordre croissant, je voulais savoir s'il était possible d'effectuer une boucle lors de l'utilisation de ces arguments

Code :

Sub Test(s1, s2, s3)

For i = 1 To 3

Range("A" & i).value = "s" & i

Next

End Sub

Sub Fruits ()

Bouton "Pomme", "Ananas", "Banane"

End sub

C'est donc la ligne <Range("A" & i).value = "s" & i> où je coince, existe-il un mot-clé pour dire à Excel de ne pas prendre <"A" & i > comme un string mais comme <s1> et qu'il m'affiche "Banane" ?

Je vous remercie d'avance pour le temps que vous m'accorderez ^^

Bonjour,

Il suffit de transmettre un tableau en argument :

Option Explicit
Option Base 1
Sub Fruit()
Dim t As Variant
  t = Array("Pomme", "Ananas", "Banane")
  Call Test(t)
End Sub
Sub Test(t As Variant)
Dim i As Long
  For i = LBound(t) To UBound(t)
    Worksheets("Feuil1").Cells(i, "A").Value = t(i)
  Next i
End Sub

Bonjour Patrice33740,

Merci, c'est exactement ce qu'il me fallait !

Bonne journée