Modification d'un code VBA

JJ1 · 22 Octobre 2012

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 · 22 Octobre 2012

Re : Modification d'un code VBA

Tu modifies ton code comme suit :

Code:

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 · 22 Octobre 2012

Re : Modification d'un code VBA

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

JJ1 · 22 Octobre 2012

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 · 22 Octobre 2012

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.

Modification d'un code VBA

JJ1

Guest

Pièces jointes

Dormeur74

XLDnaute Occasionnel

Dormeur74

XLDnaute Occasionnel

Pièces jointes

JJ1

Guest

Dormeur74

XLDnaute Occasionnel

Discussions similaires

Modification d'un code VBA

JJ1

Guest

Pièces jointes

Dormeur74

XLDnaute Occasionnel

Dormeur74

XLDnaute Occasionnel

Pièces jointes

JJ1

Guest

Dormeur74

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency