Re,
je viens de refaire des tests, j'ai bien réussis à reculer l'écriture dans les bonnes colonnes
avec ce code: mais je souhaite que toutes les lignes et colonnes s'efface lorsqu'on relance le programme.
Sub Main()
'Déclaration variables
's valeur client et valeur étalon ou nombre de mesure???
'
Dim C#, E#, s$, n&, i&, Etalon$, Palier&, Max&, Min&
Max = InputBox("Entrez la capacité max")
Min = InputBox("Entrez la capacité min")
Palier = (Max - Min) / 9
Range("I1").Value = Application.RoundDown(Palier, -1) 'fonction pour tronquer la valeur de la variable palier
'Initialisation de la colonne "Palier de charge"
'A2=Palier
'A3 à A...selon n nombre mesure =A2+Palier
'Range("A2").Value = Palier
'effacer le contenu de toutes les lignes
n = Cells(Rows.Count, 1).End(3).Row
If n > 1 Then [A2].Resize(n - 1, 2).ClearContents 'je n'arrive pas à décaler sur la celulleB2
s = InputBox("Quel est le nombre de mesures ?")
n = Val(s) 'ici on affecte le nombre de mesure s à n???
For i = 1 To n
Etalon = InputBox("Quel étalon utilisez-vous")
s = InputBox("Saisir la valeur client")
C = Val(Replace$(s, ",", ".")) 'je ne comprends pas à quel moment au lui demande de mettre C en A2 et E en B2???
s = InputBox("Saisir la valeur étalon")
E = Val(Replace$(s, ",", "."))
With Cells(i + 1, 2)
.Value = C: .Offset(, 1) = E
End With
If i < n Then
MsgBox ("Passez au palier suivant")
End If
Next i
End Sub