nbcol = 23 nblig = 3 compte = nblig * 2 - 1 For i = nbcol - compte To 1 Step -1 compte = compte + (i * (nblig - 1)) / (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
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