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

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 6 Mai 2020

• #2

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: 6 Mai 2020

Vote positif 0 Vote négatif

Jacky67

XLDnaute Barbatruc

• 6 Mai 2020

• #3

berru76 à dit:

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

Cliquez pour agrandir...

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: 6 Mai 2020

Vote positif 0 Vote négatif

J

jmfmarques

XLDnaute Accro

• 6 Mai 2020

• #4

Bonjour Jacky67
pourquoi ne pas alors écrire :

VB:

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

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

 

Vote positif 0 Vote négatif

Jacky67

XLDnaute Barbatruc

• 6 Mai 2020

• #5

jmfmarques à dit:

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

Cliquez pour agrandir...

Bonjour jmfmarques,
Certes, mais plantage si count >1

 

Vote positif 0 Vote négatif

J

jmfmarques

XLDnaute Accro

• 6 Mai 2020

• #6

Certes, mais plantage si count >1

Cliquez pour agrandir...

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

VB:

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

 

Vote positif 0 Vote négatif

B

berru76

XLDnaute Occasionnel

• 6 Mai 2020

• #7

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

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 6 Mai 2020

• #8

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

 

Pièces jointes

• Doublettes essai.xlsm

  106.3 KB · Affichages: 9

Vote positif 0 Vote négatif

B

berru76

XLDnaute Occasionnel

• 6 Mai 2020

• #9

Merci

 

Vote positif 0 Vote négatif

B

berru76

XLDnaute Occasionnel

• 6 Mai 2020

• #10

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 6 Mai 2020

• #11

Done.

 

Pièces jointes

• Doublettes essai (2).xlsm

  108.2 KB · Affichages: 13

Vote positif 0 Vote négatif

Solution

B

berru76

XLDnaute Occasionnel

• 6 Mai 2020

• #12

Super merci

 

Vote positif 0 Vote négatif