Formule qui detecte plusieurs cellules non vide d'une ligne

bonjour,

un exemple valant mille explication je vous envoie en piece un exemple du fichier

sur les colonnes C, D, E, F, G il ne peut y avoir qu'une seule case cochées pour une ligne donnée

comment dans ma formule detecter que plus d'une case a été cochée?

Merci

Lionel

Salut Lio,

peut-être ainsi, avec une MsgBox qui t'avertit.
- si tu cliques sur le seul "X", il s'efface ;
- si tu cliques dans une Range vide, le "X" s'affiche ;
- dans les autres cas, la MsgBox s'affiche.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'
Dim iRow%, iNb%
'
If Not Intersect(Target, Range("C:G")) Is Nothing Then
    iRow = Target.Row
    iNb = WorksheetFunction.CountIf(Range("C" & iRow & ":G" & iRow), "X")
    Select Case iNb
        Case 0
            Target = "X"
        Case Is > 0
            If iNb = 1 And UCase(Target) = "X" Then
                Target = ""
            Else
                MsgBox "              ! ATTENTION !" & Chr(10) & Chr(10) & "Vous avez déjà coché une option !", vbInformation + vbOKOnly, "Info-contrôle"
            End If
    End Select
End If
'
End Sub

A+

bonjour et merci mais ca ne correspond pas completement a ma recherche...

car si je coche une case apres le message il y aura deux cases cochées (ma formule du total prendra en compte la case cochée dans l'ordre inscrit dans la formule premier ecrit premier servi.... il faudrait que si je coche une nouvelle case que les autres cases soient vides...

Merci

Salut Lio,

effectivement, ça peut se passer ainsi... quand il y a des saboteurs!
Version anti-terroriste.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'
If Not Intersect(Target, Range("C:G")) Is Nothing Then
    Target = IIf(Target = "", "X", "")
    sItem = Target
    Range("C" & Target.Row & ":G" & Target.Row).Value = ""
    Target = sItem
    Range("B" & Target.Row).Select
End If
'
End Sub

A+

bonjour

une contribution

Bonjour à tous,

une autre possibilité est d'empêcher l'utilisateur de mettre 2 x avec une validation de données.

Tu pourrais aussi ne mettre qu'une seule colonne, et mettre une liste de choix où il ne peut en sélectionner qu'un seul.
Avec l'avantage de pouvoir faire des stats par moyen de paiement plus facilement.
Voir liste déroulante en C6
eric

Bonsoir …

Je pense que les données font partie d'un ensemble plus développé.

Voici donc une proposition* avec l'utilisation de tableaux (structurés) avec cette image du contexte

et le fichier exemple correspondant avec l'évènementielle

* même idée que False Eric True

je viens de tenir compte des idées et je viens d'adapter...

d'autre besoins se sont fait jour.. voir fic

hier joint

Besoin des totaux entre periode de recherche (jour mois année) et par denomination (prevoir possiblités que dénomination ne soit pas prise en compte,
j'avais pensé a sommeprod mais je ne vois pas comment comparer des dates avec cette formule

Merci de l'aide

Lionel

Bonjour,

déjà il faudrait que tu mettes des vraies dates 01/01/2020 dans une colonne.
Mettre tes données dans un tableau structuré te facilitera aussi les choses.
Met toujours une colonne vide pour séparer un tableau d'autres données.
Ensuite un TCD avec des segments te permettra de faire ça facilement.
eric

Edit : ajout fichier exemple
Clic-droit sur le TCD et 'Actualiser' si les données changent

PS : j'ai simplifié ta formule ENCAISSÉ REEL : =C3-SOMME(G3:I3)

salut

c'est super mais je ne maitrise rien en TCD

comment rajouter les stat sur les frais?

besoin de quelques explications pour pouvoir adapter par la suite....

Merci.

Lionel

Un peu de lecture.
Ca vaut le coup de prendre 1/2h pour suivre attentivement.
Les TCD sont d'une grande puissance, c'est un outil à connaitre.
Tableau Croisé Dynamique (TCD) : http://www.mdf-xlpages.com/modules/smartsection/item.php?itemid=109
et http://www.mdf-xlpages.com/modules/publisher/item.php?itemid=130
eric