Modification d'un code VBA

[JJ1]

Bonjour,

Je joins un exemple de fichier où en Feuil1 (visualiser le code) il y a une procédure qui permet de copier chaque clic en zone bleue vers la zone jaune.

Je voudrais y apporter 2 modifications:
- qu'au bout de 5 clic le code stoppe tout autre clic (au lieu de passer à la ligne suivante) et que je sois obligé d'effacer.
- que la zone jaune s'efface soit volontairement en cliquant sur la cellule N4 OU si la cellule N1 passe rouge (via une formule que je mettrai ensuite, N1 n'étant pas coloré avant la formule vraie)

Est-ce possible de réaliser cette modification. Merci beaucoup.
Bon lundi

 

[Dormeur74]

Re : Modification d'un code VBA

Tu modifies ton code comme suit :

Option Explicit

Public NbrClics As Integer

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    NbrClics = NbrClics + 1
    If NbrClics = 6 Then Exit Sub
    
    If Target.Address = "$N$4" Then
        Range("A6:E6").Value = ""
        NbrClics = 0
    End If
    
    If Intersect(ActiveCell, Range("I14:L17")) Is Nothing Then Exit Sub
    Cells(6, NbrClics) = ActiveCell.Value
End Sub

 

[Dormeur74]

Re : Modification d'un code VBA

Désolé, j'avais oublié le coup de la case rouge. Alors fichier joint.

 

[JJ1]

Re : Modification d'un code VBA

Bonjour Dormeur74,

Merci pour ta rapide modification.
Juste un souci, le 6ème clic ne fait rien mais le 7ème et suivant inscrivent les nombres en G, H ...sur la ligne.
Peut-on bloquer jusqu'à effacement?
merci à toi.

 

[Dormeur74]

Re : Modification d'un code VBA

Effectivement.

Avec If NbrClics >= 6 Then Exit Sub au lieu de If NbrClics = 6 Then Exit Sub ça devrait être un peu mieux.