Discussion :

[ople2013]

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 :

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

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

[Daniel.C]

Bonjour,

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