bonjour je suis débutant dans la programmation en vba
j'ai un exercice a réaliser en informatique appliqués à la biologie et je suis bloquer
 
j'ai un tableau avec 20 acides aminés, mon programme doit tirer un acide aminé au hasard (dans la case 30E) 100 fois et au final je doit obtenir une protéine avec 100 acides aminés(dans la case B26)
pour l'instant mon programme tire 100 fois un acide aminé donc une lettre mais à chaque fois il remplace la précédente par la nouvelle au lieu de l'ajouter a la suite.  
je sais que je doit utiliser une concaténation avec le "&" mais je n'arrive pas à l'appliquer au cas présent.
merci de votre aide
 
mon programme :
 
 
Sub tirage_acide_aminés()
Dim i, x As Integer
Dim acide_aminés(1 To 20) As String
acide_aminés(1) = "A"
acide_aminés(2) = "C"
acide_aminés(3) = "D"
acide_aminés(4) = "E"
acide_aminés(5) = "F"
acide_aminés(6) = "G"
acide_aminés(7) = "H"
acide_aminés(8) = "I"
acide_aminés(9) = "K"
acide_aminés(10) = "L"
acide_aminés(11) = "M"
acide_aminés(12) = "N"
acide_aminés(13) = "P"
acide_aminés(14) = "Q"
acide_aminés(15) = "R"
acide_aminés(16) = "S"
acide_aminés(17) = "T"
acide_aminés(18) = "V"
acide_aminés(19) = "W"
acide_aminés(20) = "Y"
For i = 1 To 20
Worksheets("exercice 2" ).Cells(26, 2).Value = ""
Next i
For i = 1 To 100
x = Int(Rnd() * 20) + 1
Worksheets("exercice 2" ).Cells(30, 5).Value = acide_aminés(x)
Worksheets("exercice 2" ).Cells(26, 2).Value = Worksheets("exercice 2" ).Cells(30, 5).Value
Next i
End Sub

As-tu vu en cours les incrémentations de variables ?
Genre : i = i + 1
Là c'est pareil, à ceci près qu'il s'agit d'une concaténation au lieu d'une addition, et que tu utilises acide_amines(x) comme opérande au lieu de la constante 1.

 
oui j'ai vu ça en cours, je viens de trouver,  
j'ai créer une variable VBA (moyenne)
et j'ai fait:  moyenne = moyenne + acide_amines(x)
et après j'ai tout stocké dans la case b26 et sa fonctionne  
merci beaucoup pour ton aide