Microsoft 365 Nombre aléatoire ordre croissant dans une zone sélectionnée

wiwi520 · 5 Avril 2020

Bonjour,

Je cherche un code en VBA pour générer des nombres dans un ordre croissant sur une colonne (A par exemple) de manière aléatoire et que cette macro s'applique sur une sélection que je ferais manuellement. En d'autres mots je veux que cette macro ne s'applique que sur les cellules que je sélectionne.
Par exemple:
Si je sélectionne les cellules (A1:A10) et j'active la commande macro, seules ces cellules afficheront des nombres croissants de manière aléatoire. Je pourrais aussi sélectionner les cellules (A3:A7), ou (A8 : A25) pour avoir le même résultat.

Alors j'ai jamais fait des macros.

Merci pour votre aide précieuse.

CISCO · 5 Avril 2020

Bonjour

Est-ce indispensable que cela soit avec une macro ?

@ plus

Staple1600 · 5 Avril 2020

Bonjour

Un petit exemple tout simple
(Voir si cela t'inspire)

VB:

Sub Nombres()
Dim NBL&
Randomize 1600
NBL = Selection.Rows.Count
For i = 1 To NBL
Selection.Item(i) = Application.RandBetween(123, NBL + 1600)
Next
Selection.Sort Key1:=Selection.Item(1), Order1:=xlAscending
End Sub

Pour copier le code VBA
1) Dans Excel: ALT+F11 puis Insertion/Module
Et pour la suite voir les nombreux tutoriels sur le net.

wiwi520 · 5 Avril 2020

CISCO à dit:
Bonjour

Est-ce indispensable que cela soit avec une macro ?

@ plus

Re-bonjour,

Non pas forcément. J'ai pensé aux macros parce que je ne sais pas le faire sans VBA. Alors j'ai déjà essayé avec les formules aléa et aléa.entre.bornes mais les nombres ne sont croissants.

wiwi520 · 5 Avril 2020

Staple1600 à dit:
Bonjour

Un petit exemple tout simple
(Voir si cela t'inspire)

VB:

Sub Nombres() Dim NBL& Randomize 1600 NBL = Selection.Rows.Count For i = 1 To NBL Selection.Item(i) = Application.RandBetween(123, NBL + 1600) Next Selection.Sort Key1:=Selection.Item(1), Order1:=xlAscending End Sub

Pour copier le code VBA
1) Dans Excel: ALT+F11 puis Insertion/Module
Et pour la suite voir les nombreux tutoriels sur le net.

Merci de votre réponse.

Par contre j'ai oublié de préciser les nombres aléatoire doivent être compris entre 1 et 35.

Merci de votre retour

Staple1600 · 5 Avril 2020

Re

Bah, cela coule (presque de source), non ? 😉
Application.RandBetween(1,35)
NB: je te laisse modifier et tester la macro du message#3

EDITION: Bonjour jmfmarques

jmfmarques · 5 Avril 2020

Bonjour
Je lis :
1)

Par contre j'ai oublié de préciser les nombres aléatoire doivent être compris entre 1 et 35.

2)

pour générer des nombres dans un ordre croissant

et
3)

Si je sélectionne les cellules (A1:A10) et j'active la commande macro, seules ces cellules afficheront des nombres croissants de manière aléatoire.

Ce qui a pour moi la conséquence suivante: si (par exemple et entre autres) 35 est le premier nombre tiré aléatoirement entre 1 et 35, seule sera remplie la celle A1
Aurais-je mal lu ? Te serais-tu mal ou incomplètement exprimé ?

Staple1600 · 5 Avril 2020

Bonjour à toi aussi jmfmarques...

jmfmarques · 5 Avril 2020

bonjour Staple.
Excuse-moi . Pris entre mille feux (une infirmière fragile - une nécessité de remonter mon épouse et son harnais à un niveau permettant l'utilisation du lève-personne - une sonde de gastrostomie "glissée") .
Amitiés

wiwi520 · 5 Avril 2020

jmfmarques à dit:
Bonjour
Je lis :
1)

2)pour générer des nombres dans un ordre croissant
et
3)
Ce qui a pour moi la conséquence suivante: si (par exemple et entre autres) le premier nombre tiré aléatoirement entre 1 et 35, seule sera remplie la celle A1
Aurais-je mal lu ? Te serais-tu mal ou incomplètement exprimé ?

Bonjour,

En effet mon explication est peut être incomplète🙁 Je vais essayer de reformuler:

Mon objectif est d'afficher de manière aléatoire et dans un ordre croissant des nombres compris en 1 et 35 sur les cellules que je sélectionne manuellement.

Merci d'avance

wiwi520 · 5 Avril 2020

Staple1600 à dit:
Re

Bah, cela coule (presque de source), non ? 😉
Application.RandBetween(1,35)
NB: je te laisse modifier et tester la macro du message#3

EDITION: Bonjour jmfmarques

Super !!!! ça marche

Merci beaucoup c'est gentil 🙂

jmfmarques · 5 Avril 2020

Ton nouvel exposé reprend très exactement le mécanisme déjà décrit.
Et ma réaction est donc elle également celle que j'ai déjà eu plus haut 😵

Staple1600 · 5 Avril 2020

Re

Oui, mais cela marche avec des doublons
Avec ce code ci-dessous remanié pour ta question (et issu des archives du forum), plus de doublons

Enrichi (BBcode):

Sub Nombre_Alea()
'source:Sub aleatoire [08/2015] - ROGER2327 / Magic_Doctor / job75

Dim dico As Object, i As Integer, NbLgn As Integer
Set dico = CreateObject("Scripting.Dictionary")
NbLgn = Selection.Rows.Count
Randomize
While dico.Count < NbLgn
dico(Round((35 - 1) * Rnd() + 1, 0)) = ""
Wend
Selection.Item(1).Resize(dico.Count) = Application.Transpose(dico.keys)
Selection.Item(1).Sort Key1:=Selection.Item(1), Order1:=xlAscending

End Sub

Staple1600 · 5 Avril 2020

Re

Un légère adaptation de mon adaptation précédente 😉
(juste un peu d'élagage 😉)

VB:

Sub Nombre_Alea_II()
'souce:Sub aleatoire [08/2015] - ROGER2327 / Magic_Doctor / job75
Dim dk As Object, NbLgn&: Set dk = CreateObject("Scripting.Dictionary")
Randomize
With Selection
    NbLgn = .Rows.Count
    While dk.Count < NbLgn
        dk(Round((35 - 1) * Rnd() + 1, 0)) = ""
    Wend
    .Value = Application.Transpose(dk.keys): .Sort .Item(1), 1
End With
End Sub

Le code tel que présenté présuppose que l'utilisateur sélectionne une seule et unique colonne* avant de lancer la macro.
*: et ne contenant pas de cellules fusionnées sinon...

wiwi520 · 5 Avril 2020

Staple1600 à dit:
Re

Un légère adaptation de mon adaptation précédente 😉
(juste un peu d'élagage 😉)

VB:

Sub Nombre_Alea_II() 'souce:Sub aleatoire [08/2015] - ROGER2327 / Magic_Doctor / job75 Dim dk As Object, NbLgn&: Set dk = CreateObject("Scripting.Dictionary") Randomize With Selection NbLgn = .Rows.Count While dk.Count < NbLgn dk(Round((35 - 1) * Rnd() + 1, 0)) = "" Wend .Value = Application.Transpose(dk.keys): .Sort .Item(1), 1 End With End Sub

Le code tel que présenté présuppose que l'utilisateur sélectionne une seule et unique colonne* avant de lancer la macro.
*: et ne contenant pas de cellules fusionnées sinon...

Haha super merci tu gères. ça marche à merveille

Une petite question par curiosité. Si je souhaite mettre un ordre décroissant, qu'est ce que je devrais modifier dans le code?

Microsoft 365 Nombre aléatoire ordre croissant dans une zone sélectionnée

wiwi520

XLDnaute Nouveau

CISCO

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

wiwi520

XLDnaute Nouveau

wiwi520

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

jmfmarques

XLDnaute Accro

Staple1600

XLDnaute Barbatruc

jmfmarques

XLDnaute Accro

wiwi520

XLDnaute Nouveau

wiwi520

XLDnaute Nouveau

jmfmarques

XLDnaute Accro

Staple1600

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

wiwi520

XLDnaute Nouveau

Discussions similaires

Microsoft 365 Nombre aléatoire ordre croissant dans une zone sélectionnée

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Accro

XLDnaute Barbatruc

XLDnaute Accro

XLDnaute Nouveau

XLDnaute Nouveau

XLDnaute Accro

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Nouveau

Discussions similaires

Privacy & Transparency

Privacy & Transparency