Afficher 8 deniéres valeur cellule aléatoire

bonjour à tous et bonne année 2017, je suis nouveau et vous remercie déjà de l aide que vous m'apporterez.

voilà ma question comment afficher les huit dernières valeur d 'une cellule aléatoire, sachant que la valeur de la cellule change ,le tableau doit se réinitialiser a chaque nouvelle valeur , pour n afficher que les huit dernières merci beaucoup .

70907nico.xlsm (16.42 Ko)

Bonjour,

Pas la solution mais je te propose cette formule :

=CAR(64+ALEA.ENTRE.BORNES(1;26))

Bonjour,

Sub start()
    Dim T8, x%, i%, L$
    With ActiveSheet
        With .Range("N13:N20")
            For i = 1 To 8
                T8 = T8 & " " & .Cells(i)
            Next i
        End With
        Randomize
        x = Int(26 * Rnd + 1): L = Chr(x + 64)
        T8 = L & T8: T8 = Left(T8, 15): T8 = Split(T8)
        Application.ScreenUpdating = False
        .Range("AA10") = L
        .Range("N13:N20").Value = WorksheetFunction.Transpose(T8)
    End With
End Sub

Il ne reste plus grand chose de ton code... ! Mais en VBA mieux vaut travailler avec les moyens VBA, inutile de chercher à en emprunter à Excel quand on a déjà ce qu'il faut en VBA...

Cordialement.

30907nico.xlsm (21.87 Ko)

Pas plus simple ?

Sub start()
    Dim i As Integer
    Range("AA10").Calculate
    For i = 20 To 14 Step -1
        Range("N" & i) = Range("N" & i - 1)
    Next i
    Range("N13") = Range("AA10")
End Sub

Bonjour,

Moins rapide ! on écrit 9 fois sur la feuille, on a une formule et on jongle avec le recalcul...

Ce que je propose : pas de formule, on prélève les données, tous les calculs se passent hors Excel et on n'écrit que 2 fois à la suite.

D'accord avec toi, mais pour une appli de cette envergure, ça reste plus simple, non ?

Ce topic va me permettre de m'intéresser à Randomize et à Calculation.

merci beaucoup de votre aide la version de fernand et excellente merci comment changer les valeurs de la cellule aleatoire sur le nouveaux fichier merci encore

comment changer les valeurs de la cellule aleatoire

Qu'est-ce que tu entends par là ?

Merci beaucoup ferrand pour ton fichier j aimerai juste

savoir comment tu change les valeurs de la cellule aléatoire si je voulais par exemple mettre des chiffres au lieu des lettre merci encore

Il faut savoir quelles sont les valeurs parmi lesquelles tu veux faire un tirage.

Voila le fichier avec les nouvelles valeurs merci encore f errand

30907nico.xlsm (19.29 Ko)

Adaptation.

20907nico.xlsm (22.12 Ko)

merci encore


donne tu des cours excel f errand

Rechercher des sujets similaires à "afficher denieres valeur aleatoire"