reconstrution de sequence avec randomisation en fonction des occurences

Bonjour
En qq mots, ma macro lit un tableau et récupere :
1)- le premier caractere à gauche dans la colonne A (HRU) du tableau. Ce caractère est le C1.
- le premier caractere à droite dans la colonne A (HRU) du tableau. Ce caractère est la lettre

2)Ensuite elle lit une table de correspondance, et fait la correspondance entre lettre une autre chaine de caracteres, le LU.

3) Ensuite elle reconstruit la chaine de caracteres du LU (LU2 donc) de la table de correspondance, mais en démarrant du caractere C1.

Mon problème :
Quand j'ai plusieurs occurrences du C1 dans la chaîne LU, la macro démarre toujours par la première occurrence, alors que je voudrais qu'aléatoirement elle démarre par la 1iere, 2ième ou 3ième.

Exemple : avec C1 = C et LU = ADCCCU je ne voudrais pas toujours avoir CCCUAD mais également CCUADC et CUADCC !

voici l'endroit maudit :
#

Code:

---

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

lettre = Right(HRU, 1) Sheets("table_corresp").Activate C1 = Left(HRU, 1)   With ActiveSheet.Range("A2:B12") Set Cellule = .Find(lettre, lookat:=xlPart, MatchCase:=True) Do If Not Cellule Is Nothing Then firstAddress = Cellule.Address LU= Cellule.Offset(0, -1).Value nbrcrop = Len(LU) LU2= Right(LU, Len(LU) + 1 - InStr(1, LU, C1, 1)) & Left(LU, InStr(1, LU, C1, 1) - 1)

---

#

Comment faire ?

Merci d'avance,

Bien cordialement,
OPLE

Bonjour,

Code:

---

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

Dim NbCar As Integer, Pos As Integer Randomize lettre = Right(HRU, 1) Sheets("table_corresp").Activate C1 = Left(HRU, 1)   With ActiveSheet.Range("A2:B12") Set Cellule = .Find(lettre, lookat:=xlPart, MatchCase:=True) Do If Not Cellule Is Nothing Then firstAddress = Cellule.Address lu = Cellule.Offset(0, -1).Value nbrcrop = Len(lu) NbCar = Len(lu) - Len(Application.Substitute(lu, C1, "")) Pos = Application.RandBetween(1, NbCar) LU2 = Right(lu, Len(lu) + 1 - Pos) & Left(lu, Pos - 1)

---