Autoriser qu'un seul choix

Bonjour toutes et tous

D'après l'idée du code de Jean-Eric, merci à lui ici

je bloque sur une formule ou une macro

Je dois mettre qu'un seul choix unique et non pas les trois sur la même ligne

Exemple 1 possibilité sur 3 uniquement:

Si B2 est coché alors C2 et D2 seront non coché ou nul (0) de ma feuill1:

Si C2 est coché alors B2 et D2 seront non coché ou nul (0) de ma feuill1:

Si D2 est coché alors C2 et B2 seront non coché ou nul (0) de ma feuill1:

etc pour les autres

je m'arrache les cheveux merci de votre aide

    
    with Sheets("Feuil1")
    .Cells("B2").Value = "ü" Then ' Police de caractère Webdings
     .Cells("C2").Value = ""
      .Cells("D2").Value = ""
   ElseIf .Cells("C2").Value = "ü" Then
      .Cells("B2").Value = ""
      .Cells("D2").Value = ""
   ElseIf .Cells("D2").Value = "ü" Then
      .Cells("C2").Value = ""
      .Cells("B2").Value = ""
  End If
End With
  

merci à vous

1seul choix

Salut Andre13

Problème on ne peut plus simple

Voici le code de ta feuille

Option Explicit

Const Rng As String = "B2:D11"

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Dim Lig As Long
  If Not Intersect(Target, Me.Range(Rng)) Is Nothing Then
    Cancel = True: Lig = Target.Row
    If IsEmpty(Target) Then
      Range("B" & Lig & ":D" & Lig).ClearContents
      Target.Value = "ü"
    Else
      Target.Value = vbNullString
    End If
  End If
End Sub

A+

Merci BrunoM45

Je sais que je l'avais déjà vu mais, je me suis mélangé les pinceaux un grand merci à toi

Trop content cela fonctionne à merveille

bonjour

une contribution sans vba

15andre13.xlsm (18.79 Ko)

cordialement

Salut Bruno

J'aime beaucoup ta solution ... !!!

Merci Tulipe_4

ah oui jolie ! même avec validation des données et sans vba ^^^^

=NB.SI($B2:$D2;"P")=1

formule à garder sous le coude merci

Tiens un autre allergique au VBA

Tiens un autre allergique au VBA

allergique , non..... mais bien ignorant en la matière par manque cruel de bases en la matière

cordialement

Bonjour toutes et tous,

En attendant, vos soutiens m'ont énormément fait progresser car, j'étais en train de devenir fou avec une multitude d'option de case à cocher en nommant les groupes un truc de folie

(voir image ci-présente)

et le bout de code de folie

Private Sub Opt1aQmod1_1_Change()
' C3
If Opt1aQmod1_1.Value = False Then
Sheets("QMod01").Range("c3").Value = "0"
End If
End Sub

Private Sub Opt1aQmod1_1_Click()
' C3
If Opt1aQmod1_1.Value = True Then
Sheets("QMod01").Range("C3").Value = "1"
Sheets("QMod01").Range("D3").Value = "0"
Sheets("QMod01").Range("E3").Value = "0"
End If
End Sub

Alors, un grand merci à vous tous

exemple
Rechercher des sujets similaires à "autoriser seul choix"