Microsoft 365 Tirage au sort de 2 numéros sans doublon

[Sissou71]

Bonjour,
Pour un regroupement de communes, ayant des listes papiers d'inscrits, je cherche à leur créer un fichier Excel qui génèrerait une commune puis une page et sur cette page 2 numéros de lignes.De fait j'ai un Excel avec toutes mes communes, un numéro affecter à chaque commune. et ensuite j'utilise la fonction aléatoire entre bornes mais évidement j'ai des doublons et je voudrais ne pas en avoir. J'ai vu plusieurs posts dans ce sens mais je n'ai pas réussi à m'en sortir avec.
Du coup si quelqu'un sait m'aider sur le fichier ci-joint

 

[job75]

Bonsoir Sissou71,

Pour éviter un doublon en C6 vous pouvez utiliser cette fonction VBA :

Function AleaSansDoublon&(borne1&, borne2&, v&)
Do
    AleaSansDoublon = Application.RandBetween(borne1, borne2)
    If AleaSansDoublon <> v Then Exit Do
Loop
End Function

A+

 

[Sissou71]

Bonsoir Sissou71,

Pour éviter un doublon en C6 vous pouvez utiliser cette fonction VBA :

Function AleaSansDoublon&(borne1&, borne2$, v&)
Do
    AleaSansDoublon = Application.RandBetween(borne1, borne2)
    If AleaSansDoublon <> v Then Exit Do
Loop
End Function

A+

Merci Job75, ca marche parfaitement
mais je ne la comprends pas du tout :
comment cette fonction trouve les bornes ?
Je ne vois pas comment sont définis borne1 et borne2 ? j'aurai pense que dans le code VBA on disait que borne1 = 1 et borne2 = recherchev()
Merci en tout cas

 

[job75]

Je ne vois pas comment sont définis borne1 et borne2 ?

La fonction est utilisée dans la formule en C6 :

=AleaSansDoublon(1;RECHERCHEV(C2;Tableau1;5;FAUX);C5)

On voit bien que borne1=1 et borne2=RECHERCHEV(C2;Tableau1;5;FAUX)

Je vois que vous ne savez pas ce que sont une fonction et ses arguments.

 

[job75]

Au poste #2 j'avais mis borne2$ c'est bien sûr borne2& (c'est à dire As Long au lieu de As String).

 

[Sissou71]

Ah merci je viens de comprendre !
Du coup je peux aussi intégrer le tirage de la commune dans le code VBA comme ça la commune ne se modifiera pas à chaque clic sur une cellule
Merci beaucoup

 

[job75]

Bonjour Sissou71,

Du coup je peux aussi intégrer le tirage de la commune dans le code VBA

Bien sûr avec une seule macro, plus besoin de formules :

Sub Tirage()
Dim r&, r1&
With [Tableau1] 'tableau structuré
    r = Application.RandBetween(1, .Rows.Count)
    [C2] = r
    [C3] = Application.VLookup(r, .Cells, 2, 0)
    [C4] = Application.RandBetween(1, Application.VLookup(r, .Cells, 4, 0))
    [C5] = Application.RandBetween(1, Application.VLookup(r, .Cells, 5, 0))
    Do
        r1 = Application.RandBetween(1, Application.VLookup(r, .Cells, 5, 0))
        If r1 <> Range("C5") Then [C6] = r1: Exit Do
    Loop
End With
End Sub

A+

 

[Sissou71]

Bonjour Sissou71,

Bien sûr avec une seule macro, plus besoin de formules :

Sub Tirage()
Dim r&, r1&
With [Tableau1] 'tableau structuré
    r = Application.RandBetween(1, .Rows.Count)
    [C2] = r
    [C3] = Application.VLookup(r, .Cells, 2, 0)
    [C4] = Application.RandBetween(1, Application.VLookup(r, .Cells, 4, 0))
    [C5] = Application.RandBetween(1, Application.VLookup(r, .Cells, 5, 0))
    Do
        r1 = Application.RandBetween(1, Application.VLookup(r, .Cells, 5, 0))
        If r1 <> Range("C5") Then [C6] = r1: Exit Do
    Loop
End With
End Sub

A+

Merci Job75 c'est super