Sub CreerSeries_nonStandart()
Dim Message, Title, Default
Dim r As Integer
Application.ScreenUpdating = False
Sheets("série").Select 'Sélectionne la feuille "série"
DL = Cells(65536, 2).End(xlUp).Row 'On va trouver la dernière ligne utilisée de la colonne B
'Si le numéro de la ligne est plus grand que 2, alors on va supprimer la ligne
If DL > 2 Then Range(Cells(2, 1), Cells(DL, 1)).EntireRow.Delete
'Les informations requises au imputbox
Message = "Combien de concurents au départ ...?"
Title = "Nombre de concurrents dans la série?"
Default = "1"
'L'affichage du imputbox
r = InputBox(Message, Title, Default)
'Si l'utilisateur saisi un chiffre plus grand que 0 alors on continu, sinon on sort
If r > 0 Then
Sheets("parametre").Select 'sélectionner la feuille parametre
'Dans l'onglet paramètres, on va aller copier les entêtes ainsi que la première ligne
'contenant de l'information. On veut principalement récupérer les formats
Range(Cells(3, 1), Cells(4, 14)).Copy
Sheets("série").Select 'Sélectionne la feuille "série"
Cells(2, 1).Select 'On va sélectionner la cellule A2
ActiveSheet.Paste
Application.CutCopyMode = False 'Sort du mode collage
Else
Exit Sub 'Si le nombre est inférieur à 0, alors on sort de la macro
End If
If r > 1 Then 'Si le nombre saisi par l'utilisateur est plus grand que 1, alors
Range(Cells(3, 1), Cells(3, 14)).Copy 'On va copier la ligne après les entêtes
Range(Cells(4, 1), Cells(2 + r, 1)).Select 'On va sélectionner notre range de collage, soit a4:a(2+r)
ActiveSheet.Paste 'Colle notre information
Application.CutCopyMode = False 'Sort du mode collage
End If
For i = 4 To 4 + r - 2 'pour i (qui représente ici les lignes) =4 à r-2
Cells(i, 2).Value = i - 2 'la valeur de la cellule(Bi)= i-2
Next i 'Prochain i
Application.Goto Range("A1"), True 'aller à la cellule a1
End Sub
