Bonjour,
pour le travail j'ai un petite blocage et je pense même que c'est impossible, je m'explique
je reçois tout les "X" jours des chaîne de caractère de cette forme, "Partit fixe""R"" 240""Y" Avec "R" et "Y" des chaîne de caractère aléatoire.
Normalement il y a un espace entre la première partit aléatoire "R" et le "240". Mais il arrive que je reçoive la chaîne de caractère sans l'espace, mon souci, c'est de détecter le "240" pour insérer l'espace manquant, le souci c'est que dans les chaîne variable il peut y avoir "240" donc je voulais savoir si il était possible de détecter le "bon" "240".
Pour ceux qui n'aurait pas compris le texte ^^, j'ai crée un code VBA qui est sur se principe :
Sub code_alea()
lettre_aleatoire = ""
lettre_aleatoire2 = ""
Randomize
carac = "ABCDE0FGHIJK1LMNO2PQR3ST4UV5W6X7YZ801923456789"
Longueurx = Int(30 * Rnd) + 3
For i = 1 To Longueurx
nombre_aleatoire = Int(Len(carac) * Rnd) + 1
lettre_aleatoire = lettre_aleatoire & Mid(carac, nombre_aleatoire, 1)
Next
Longueury = Int(30 * Rnd) + 3
For i = 1 To Longueury
nombre_aleatoire2 = Int(Len(carac) * Rnd) + 1
lettre_aleatoire2 = lettre_aleatoire2 & Mid(carac, nombre_aleatoire2, 1)
Next
'Partit Fixe 'Variable R 'Variable Y
Feuil1.Cells(1, 1) = "Fgzer524dsf" & lettre_aleatoire & "240" & lettre_aleatoire2
Next
End Sub
Merci pour toute vos réponse.