Sujet Précédent Sujet Suivant

Comment traduire "sauf" dans la formule ci-dessous?

Fermé
Thaiko82 Messages postés 3 Date d'inscription lundi 24 juin 2013 Statut Membre Dernière intervention 22 août 2013 - 21 août 2013 à 17:59
Thaiko82 Messages postés 3 Date d'inscription lundi 24 juin 2013 Statut Membre Dernière intervention 22 août 2013 - 22 août 2013 à 14:54
Bonjour à tous,

La formule suivante permet d'obtenir des codes à 6 caractères aléatoires avec pour seul caractère fixe le chiffre et première lettre du début.

Hors, j'aimerais ajouter une condition qui exclurait la lettre "L". ça fait un moment que je me casse la tête et je ne trouve pas comment faire, pourriez-vous m'aider, s'il vous plaît?

="8u"&(CHAR((INT(RAND()*26)+1)+64)&(CHAR((INT(RAND()*26)+1)+64)&(CHAR((INT(RAND()*26)+1)+64)&(CHAR((INT(RAND()*26)+1)+64)))))

Exemple de résultat: 8UBLFG

Merci beaucoup d'avance!

Meilleures salutations
A voir également:

3 réponses

Réponse 1 / 3
eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 216
21 août 2013 à 18:27
Bonjour,

J'ai l'impression qu'il faudrait utiliser 4 cellules intermédiaire pour fixer le nombre aléatoire qui doit être utilisé 2 fois (test+utilisation)
C'est plus simple avec une fonction personnalisée en VBA : 
Function code4L()
    Dim i As Long, L As String
    'Application.Volatile
    For i = 1 To 4
        L = Int(Rnd() * 25 + 1)
        code4L = code4L & Chr(IIf(L = 12, 26, L) + 64)
    Next i
End Function

Si tu veux que ce soit réévalué à chaque recalcul de la feuille (ou par F9) enlève l'apostrophe devant Application.Volatile

Alt+F11 pour voir le code dans le Module1
https://www.cjoint.com/c/CHvsBdr5MVW

eric

0
Réponse 2 / 3
tontong Messages postés 2549 Date d'inscription mercredi 3 février 2010 Statut Membre Dernière intervention 23 avril 2024 1 054
21 août 2013 à 18:59
Bonjour,
Si c'est pour une application volatile on y parvient par formule en ajoutant 2 Alea.entre.borne (RANDBETWEEN)
="7r"&CAR(64+ALEA.ENTRE.BORNES(1;11)+ALEA.ENTRE.BORNES(0;15))&CAR(64+ALEA.ENTRE.BORNES(1;11)+ALEA.ENTRE.BORNES(0;15))&CAR.....etc
0
Réponse 3 / 3
Thaiko82 Messages postés 3 Date d'inscription lundi 24 juin 2013 Statut Membre Dernière intervention 22 août 2013
22 août 2013 à 14:54
Merci beacuoup à vous deux!

Je vais tester si ça marche de l'une ou l'autre façon.
0

Discussions similaires

exo pix
Xtyller -
Raymond PENTIER -

2 réponses
je veut créer des codes
jonkiller -
Nhhi -

20 réponses
manon
manon -
bg62 -

5 réponses
Formule Excel : "SI" une cellule contient un mot, alors ?
Tonio5933 -
Mike-31 -

9 réponses
iPhone : je n'ai pas de son lors d'un appel sortant
Shark80080 -
Isabelle -

6 réponses