Bonjour à tous,
Déjà BsAlv, si tu as téléchargé le fichier tu n'as pas bien lu le message posté qui l'accompagnait. La limite de participation était samedi 27.
Donc tes réponses ne sont pas acceptables. C'est donc le handicap maximum soit 400 points pour celle-ci et 1100 points pour les autres puisque de fait elles sont aussi inexistantes et hors-délais. Soit au total 1500.
De plus elle sont encore moins acceptables puisque celles proposées sont toutes fausses. Ton premier code reporté ci-dessous.
'Code 1 BsAlv
With Range("A1:ZZ1")
.Name = "A"
.Formula = "=column()+1"
.Offset(1).Formula2 = "=--(SUM(--(TRUNC(A1/($A$1:A1))*$A$1:A1=A1))=1)"
Range("A11:A55") = Application.Transpose(Split("1 " & Join(Filter([if(offset(a,1,,,)=1,a,"x")], "x", 0))))
Range("B10:B11") = 1
Range("B12:B55").FormulaR1C1 = "=R[-2]C+R[-1]C"
End With
ressort ceci en colonnes de gauche (les lignes en surbrillance rose) à comparer au résultat exacte demandé sur les colonnes de droite. Les lignes en
surbrillance verte sont toutes les lignes d'écart 4 et qui sont divisibles par 3. Et explique l'exception au nombre premier 3 de Fibonacci situé sur un rang non 1ier.
Idem pour ton deuxième code ci-dessous.
'Code 2 BsAlv
With Range("A1:A45")
.Resize(, 4) = 1
.Formula = "=row()"
.Offset(1, 1).Formula2 = "=--(Sum(--(Trunc(A2/($A$2:A2))*$A$2:A2=A2))=1)"
End With
Range("C3:C45").FormulaR1C1 = "=R[-2]C+R[-1]C"
Donc, même si tu avais participé dans les délais, quelque soit le code présenté, tu n'aurais pas inquiété Ausecour.
Avec 236 points sur cette question et un code juste tu étais à 164 points plus loin que lui. Et d'autres étaient aussi avant les 400 points.