Ajustement tableaux

Bonjour à toutes et à tous,

Avec des amies on a créer un tableaux pour compter les piles ou face. La fonctionnalité que je souhaite, c'est ajuster le nombre du tableau Pile ou face en fonction de la cellule Nb de lancée et que la formule s'applique a toutes les cellules du tableau, par exemple il a écris 4 dans la cellule souche et le tableau s'ajuste à 4 lignes. Vous retrouvez le fichier en pièce joint .

Merci d'avance pour votre aide

Cordialement le fast

Bonjour Le Fast, le forum,

Un essai....

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Application.Intersect(Target, Range("C4")) Is Nothing Then
  cancel = True
  If Not IsNumeric(Target.Value) Then Exit Sub
  If Not Me.ListObjects("Tableau1").DataBodyRange Is Nothing Then Me.ListObjects("Tableau1").DataBodyRange.Delete
   Me.ListObjects("Tableau1").Resize Me.ListObjects("Tableau1").Range.Resize(Target.Value + 1, 1)
   Range("A2").FormulaR1C1 = "=IF(RANDBETWEEN(1,2)=1,""Pile"",""Face"")"
 End If
End Sub

Code à placer dans le module de la feuille concernée, il s’exécute à chaque changement dans C4.

Cordialement,

Super merci beaucoup xorsankukai, ça fonctionne parfaitement.