DEFI de la Rentrée

bonjour le fil, @X Cellus,

Mon but n'était pas à inquiéter Ausecour, même pas à distance, c'était hors compétition regarder pour une solution VBA.

J'ai commencé ce teste, mais mon excel n'est pas francophone, c'est pourquoi mes formules pouvaient donner des mauvaises résultats, quelque seraient plus long, d'autres plus courtes et pour traduire tous les formules ... .

Je vais regarder pour la disposition souhaitée ....

ce code ne gagnera jamais un concours de beauté mais ne compte que 211 charactères (-28)

Sub AuSe()
     [J2:K4].Formula = "=max(1,row()-1)"
     For i = 4 To 46
          Set C = Cells(i, "J")
           b = C(0, 1) + C(-1, 1)
          C(1, 1) = b
          a = 1
          For x = 2 To Sqr(b)
               If b \ x = b / x Then a = 0
          Next
          If a And b > 3 Then C(1, 2) = i
     Next
End Sub

A nouveau,

Mais il gagnera, c'est certain un concours de la triche.

Ce n'est pas en produisant une copie des lignes de code formulés par des participants que tu te distingueras.

Et surtout une mauvaise copie. Puisqu'il produit des erreurs. Les 2 colonnes de gauche sont exactes, les tiennes à droite sont fausses.

Donc toujours 400 points de handicap.

Merci d'arrêter de poster sur ce fil.

D'ailleurs je viens de le clôturer. En validant le post du gagnant.