XL 2021 Comment préserver la première valeur d'une cellule uniquement si

Valtrase à dit:

RE,
Edit Si sujet résolu c'est bien.
Nous allons commencer par supprimer le code de wDog66 (Qui fonctionne bien...)
La procédure de wDog66 est dans le module : Module1 pour y accéder :
ALT + F11 (pour passer dans l’environnement VBE).
Dans le menu Affichage cliquer sur Explorateur de projet.
Regarde la pièce jointe 1222680
Là vous pouvez voir le module Module. Faites un double clic ou bien sélectionnez-le puis cliquez sur l’icône de code (Celui de gauche en haut de la fenêtre)
Vous aurez accès au code. Vous sélectionnez tout [CTRL + A] puis vous faites [Suppr]
Vous pouvez aussi supprimer directement le module celui-ci ne servira plus

Ensuite retournez sur le code de la feuille (Sous Excel clic droit sur l'onglet de la feuille, puis, Visualiser le code.)
Remplacer le code existant par celui ci-dessous :

VB:

Option Explicit

'@Description "Code pour le bouton effacer données de la feuille."
Private Sub CommandButton1_Click()
    Dim rangeToClear As Excel.Range
    On Error Resume Next
    Set rangeToClear = Me.Range("vr_Répartitions")
    On Error GoTo 0
    If Not rangeToClear Is Nothing Then
        rangeToClear.ClearContents
    Else
        MsgBox "Oupss... Impossible de trouver le champ nommé : ""vr_Répartitions"""
    End If
End Sub

'@Description "
Private Sub SauvDonnées(ByVal LigSel As Long)
    Dim PlgD As Range
    With Me
        ' On sauvegarde les valeurs
        .Range("D" & LigSel).Value = .Range("E13")
        .Range("F" & LigSel).Value = .Range("F14")
        .Range("G" & LigSel).Value = .Range("F23")
        .Range("H" & LigSel).Value = .Range("F30")
    End With
    ' Petit message
    MsgBox "Valeurs sauvegardées !"
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' Vérifier si on change la sélection dans les cellules A4 à A7
    If Not Intersect(Me.Range("A4:A7"), Target) Is Nothing Then
        ' Tu as sélectionné une cellule verte = on lance l'inscrition des résultats
        SauvDonnées (Target.Row)
    End If
End Sub

Concernant la remise à zéro du formulaire nous allons créer un champ Nommé.
Pour créer le champ nommé sélectionnez les cellules qui devront être effacées; Puis donnez leurs un nom comme sur l'image (vr_Répartitions)
Regarde la pièce jointe 1222681
Il ne vous reste plus qu'a ajouter un bouton Onglet Développeur/Groupe Contrôles/Insérer/Contrôle activeX/Bouton.
Je n'ai pas renommer le bouton celui-ci se nomme 'CommandButton1 par défaut.

Cliquez pour agrandir...