nbcol = 23 nblig = 3 compte = nblig * 2 - 1 For i = nbcol - compte To 1 Step -1 compte = compte + (i * (nblig - 1)) / (nblig-1) Next
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionnbcol = 23 nblig = 3 compte = nbcol - (nblig - 1) For i = nbcol - 1 - nblig - 1 To (nblig - 1) Step -1 compte = compte + (i * (nblig)) / (nblig - 1) Next
nbcol = 23 nblig = 3 compte = nbcol - (nblig - 1) For i = nbcol - 1 - nblig - 1 To (nblig - 1) Step -1 compte = compte + (i * (nblig)) / (nblig - 1) Next
Private Function dudule(nb As Integer) As Integer t = nb For i = 1 To t - 1 nb = nb * (t - i) Next dudule = nb End Function
nblettres = 25 nbcol = 23 nblig = 3 compte = ((nblettres - 1) * nbcol) / dudule(nblig - 1)
Si toujours pas cela, j'arrête (c'est une torture).
Je travaille avec des chiffres car, dans ton "enoncé", le contenu des cases n'a aucun sens particulier
ABCDEFGHIJKLMNOP BCDEFGHIJKLMNOPQ CDEFGHIJKLMNOPQR DEFGHIJKLMNOPQRS EFGHIJKLMNOPQRST FGHIJKLMNOPQRSTU GHIJKLMNOPQRSTUV HIJKLMNOPQRSTUVW IJKLMNOPQRSTUVWX JKLMNOPQRSTUVWXY KLMNOPQRSTUVWXYZ LMNOPQRSTUVWXYZ0 MNOPQRSTUVWXYZ01 NOPQRSTUVWXYZ012 OPQRSTUVWXYZ0123