saisir pourcentage à l'avancée du chantier

Gardien de phare à dit:

Bonjour,
Bonjour Si... qui semble être en train de boire son café 🙂
Dans la deuxième procédure, met un apostrophe devant la ligne R="" avant le End If (cette ligne devient un commentaire et n'est plus exécutée, elle se colore en vert) et regardes si ça fait ce que tu veux : ce que tu viens de saisir reste affiché tant que tu ne fais pas un clic droit sur la cellule.

VB:

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal R As Range)
If R.Address = "$D$2" Then [B1] = "": [D3:I3] = "": [D3].Select
End Sub

Private Sub Worksheet_Change(ByVal R As Range)
If R.Address <> "$D$3" Then Exit Sub
Application.EnableEvents = 0
If [H3] > 0 And R > [H3] Then
MsgBox "ne pas dépasser " & [H3] * 100 & " % !", vbCritical, "Saisie invalidée..."
R = ""
Else
[B1] = [B1] + 1
[E3] = [C3] * R
[F3] = [F3] + R
[G3] = [C3] * [F3]
[H3] = 1 - [F3]
[I3] = [C3] - [G3]
'R = ""
End If
Application.EnableEvents = 1
If [H3] = 0 Then MsgBox "tout est payé !", vbInformation, "C'est fini...": [D2].Select

End Sub

Private Sub Worksheet_BeforeRightClick(ByVal R As Range, Cancel As Boolean)
If R.Address = "$D$3" Then
Application.EnableEvents = 0
R = "": Cancel = -1
Application.EnableEvents = 1
End If
End Sub

Cliquez pour agrandir...

Gardien de phare à dit:

Bonsoir,
Est-ce que tu peux confirmer que ton soucis c'est d'avoir plusieurs lignes (plusieurs chantiers) les unes au dessous des autres ?
Est-ce que tu sais déjà si tu vas avoir un nombre de lignes déterminé à l'avance ou est-ce que ce nombre va varier dans le temps ?

Cliquez pour agrandir...

Si... à dit:

Le principe peut s'adapter à d'autres lignes mais en faisant très attention au contexte et là je suis encore dans la partie obscure😛.

Cliquez pour agrandir...