bonjour, 

J'ai créé un programme en VBA, et je souhaite insérer une boucle WHILE pour automatiser les nouvelles valeurs pour éviter la répétion.

Voilà ce que j'ai écris:

Sub CalculRegard2()

    Dim NbRegardACalpiner As Integer

    Dim NumeroRegard As Variant

    Dim FilDeau As Double

    Dim CoteTampon As Double

    Dim LongueurReseau As Double

    NumeroRegard = Application.InputBox("Veuillez indiquer le N°du Regard amont.", Type:=2)

      Sheets("TERRASSEMENTS ASST").Range("A2") = NumeroRegard

    FilDeau = Application.InputBox("Veuillez indiquer le Fil d'eau du regard amont.", Type:=2)

    Sheets("TERRASSEMENTS ASST").Range("C2") = FilDeau

    CoteTampon = Application.InputBox("Veuillez indiquer la cote Tampon du regard amont.", Type:=2)

    Sheets("TERRASSEMENTS ASST").Range("D2") = CoteTampon

    HauteurRegard = CoteTampon - FilDeau

    Sheets("TERRASSEMENTS ASST").Range("E2") = HauteurRegard

    LongueurReseau = Application.InputBox("Veuillez indiquer la Longueur du réseau.", Type:=2)

    Sheets("TERRASSEMENTS ASST").Range("I2") = LongueurReseau

    NumeroRegard = Application.InputBox("Veuillez indiquer le N°du Regard Aval.", Type:=2)

    Sheets("TERRASSEMENTS ASST").Range("B2") = NumeroRegard

    FilDeau = Application.InputBox("Veuillez indiquer le Fil d'eau du regard Aval.", Type:=2)

    Sheets("TERRASSEMENTS ASST").Range("F2") = FilDeau

    CoteTampon = Application.InputBox("Veuillez indiquer la cote Tampon du regard Aval.", Type:=2)

    Sheets("TERRASSEMENTS ASST").Range("G2") = CoteTampon

    HauteurRegard = CoteTampon - FilDeau

    Sheets("TERRASSEMENTS ASST").Range("H2") = HauteurRegard

        Select Case MsgBox("Nouveau Linéaire", vbYesNo, "Titre de la MsgBox")

            Case vbYes

                Sheets("TERRASSEMENTS ASST").Select

                Rows("2:2").Select

                Selection.Insert Shift:=xlDown

                LongueurReseau = Application.InputBox("Veuillez indiquer la Longueur du réseau.", Type:=2)

                Sheets("TERRASSEMENTS ASST").Range("I2") = LongueurReseau

                NumeroRegard = Application.InputBox("Veuillez indiquer le N°du Regard Aval.", Type:=2)

                Sheets("TERRASSEMENTS ASST").Range("B2") = NumeroRegard

                FilDeau = Application.InputBox("Veuillez indiquer le Fil d'eau du regard Aval.", Type:=2)

                Sheets("TERRASSEMENTS ASST").Range("F2") = FilDeau

                CoteTampon = Application.InputBox("Veuillez indiquer la cote Tampon du regard Aval.", Type:=2)

                Sheets("TERRASSEMENTS ASST").Range("G2") = CoteTampon

                HauteurRegard = CoteTampon - FilDeau

                Sheets("TERRASSEMENTS ASST").Range("H2") = HauteurRegard

            Case vbNo

        End Select

End Sub