Contenu récent par BavariaBier

Re : excell marc Comme ceci peut-être?? Sub numero() Dim a As Single, b As Single, c As Single, d As Single, e As Single a = WorksheetFunction.RandBetween(1, 10) b = WorksheetFunction.RandBetween(1, 10) c = WorksheetFunction.RandBetween(1, 10) d = WorksheetFunction.RandBetween(1...

Re : excell marc REBONSOIR C'est quoi toute ses questions la? Essais selectcase.. BavariaBier

Re : excell marc Bonsoir et bienvenu sur le forum Ton message n'est pas très clair mais essais cela: Sub Excel_Marc() Dim nombre As Integer Dim total As Integer Dim moyenne As Integer Do nombre = InputBox("entrez le nombre de nombre") Loop While nombre > 15 For i = 1 To nombre...