La philosophie du GoTo

Bonjour,

j'explore les contrée du VBA depuis peu et donc tel l'Ingenu de Voltaire je n'ai d'a priori sur rien néanmoins.

Néanmoins, en quelques message il m'apparait assez net qu'il y a sur un sujet 2 clans:

Pour ou Contre le Goto?

a priori:

Pour

Pratique

Contre

code spaghetti (risque de ne plus s'y retrouver)

Donc a l'heure actuelle pour moi les deux se valent, deplus on (JoyeuxNoel) m'a filé un bout de code pour une macro dont j'avais besoin

est-il faisable sans goto?

Dim plage As Range
    Dim cel As Range
    Dim alea As Double    

    Set plage = Range("S3:S202")
    plage.Value = ""
    If plage.Count > 202 Then Exit Sub
    Randomize

    For Each cel In plage
    4
        alea = WorksheetFunction.RandBetween(1, 201)
        If Application.CountIf(plage, alea) Then GoTo 4 Else cel = alea
    Next

Salut Victor,
Salut JoyeuxNoël,

plus joli ainsi, par exemple...

    For Each cel In plage
        Do
            alea = WorksheetFunction.RandBetween(1, 201)
        Loop While Application.CountIf(plage, alea) > 0
        cel = alea
    Next

A+