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

berru76

XLDnaute Occasionnel
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
 

Pièces jointes

  • Validation X.xlsm
    73.7 KB · Affichages: 13

sylvanu

XLDnaute Barbatruc
Supporter XLD
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.
 

Pièces jointes

  • Validation X(V2).xlsm
    79.7 KB · Affichages: 9
  • Validation X(V3).xlsm
    79.9 KB · Affichages: 7
Dernière édition:

Jacky67

XLDnaute Barbatruc
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é
VB:
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
 
Dernière édition:

berru76

XLDnaute Occasionnel
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
 

Pièces jointes

  • Doublettes essai.xlsm
    106.8 KB · Affichages: 5

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 907
Membres
101 836
dernier inscrit
karmon