XL 2013 Concours formule ou macro / valider par simple clic une inscription par un X

[berru76]

Bonjour
je cherche comment faire pour que lors des inscriptions un simple clic inscrive un x dans la cellule adjacente pour valider comme EX
Merci

 

[sylvanu]

Bonjour Berru,
En PJ une illustration avec Worksheet_SelectionChange.
V2 : Quelque soit la cellule en D cliquée.
V3 : Uniquement si la ligne comporte un participant.

 

[Jacky67]

Bonjour
je cherche comment faire pour que lors des inscriptions un simple clic inscrive un x dans la cellule adjacente pour valider comme EX
Merci

Bonjour à tous,
Dans le module de la feuille inscriptions
*Oupss set…. modifié

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim Plage
    If Target.Count > 1 Then Exit Sub
    Set Plage = Range("d4:d" & Cells(Rows.Count, "A").End(xlUp).Row)
    If Not Intersect(Target, Plage) Is Nothing Then
        If Target.Offset(, -1) <> "" Then
            Target = IIf(Target = "X", "", "X")
            Target.Offset(, -3).Activate
        End If
    End If
End Sub

 

[jmfmarques]

Bonjour Jacky67
pourquoi ne pas alors écrire :

Target.Value = String((Target.Offset(, -1).Value <> "" And Target.Value = "") * -1, "X")

et ainsi éviter 3 If (1 if et un iif)

 

[Jacky67]

et ainsi éviter 3 If (1 if et un iif)

Bonjour jmfmarques,
Certes, mais plantage si count >1

 

[jmfmarques]

Certes, mais plantage si count >1

Je n'ai pas suggéré de changer quoi que ce soit à cette condition-là !
Seule cette partie est concernée :

If Target.Offset(, -1) <> "" Then ' -->> = 1 if
            Target = IIf(Target = "X", "", "X") ' -->> = 1 iif = 2 If
            Target.Offset(, -3).Activate
        End If

 

[berru76]

Excusez moi je me suis trompé de fichier et pas assez de connaissance pour rectifier moi même
je joins le bon fichier la solution V3 serait idéale
ou m'expliquer comment faire le changement
Merci a vous

 

[sylvanu]

Bonsoir,
Même approche que la V3 du post précédent.

 

[berru76]

Merci

 

[berru76]

J'abuse mais peut on rajouter une ligne pour que le x s'efface lorsqu'on enlève le nom
Merci

 

[sylvanu]

Done.

 

[berru76]

Super merci