Cases à cocher sur 3 colonnes

Bonjour à tous,

J'aurais besoin de vos conseils avisés car je tourne en rond depuis un moment sans trouver de réelles solutions à mon problème..

J'ai un fichier qui est composé d'une centaine de lignes avec une douzaine de colonnes, et sur trois des colonnes je souhaiterais mettre une case à cocher avec la condition de ne cocher q'une seule case.

Les trois colonnes se nomment comme suit : OUI / NON / Ni l'un Ni l'autre (un seul choix possible)

J'ai essayé avec une marcro, en passant par l'active X, avec un script, mais je n'arrive pas à aboutir à ce que je veux...

Avez-vous une idée pour m'aider ?

Merci d'avance pour vos réponses.

Fred

Bonjour

Coche/décoche par double clic dans la cellule.

Nommer ta plage hors titre (ou chacune de tes plages) par un nom commençant par Groupe suivi de 1 à n (Groupe1 pour le 1ère)

Mettre en police Wingdings

Dans le module de la feuille

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    Dim zzone As Range
    Dim goon As Boolean

    goon = False
    For i = 1 To 2 'nombre de groupes nommés définis
        Set zzone = Range("Groupe" & i)
        If Not Intersect(Target, zzone) Is Nothing Then
            goon = True
            Exit For
        End If
     Next i
     If goon = False Then Exit Sub

    Call iniligne(Target, zzone)
    Cancel = True
End Sub

Dans un module standard

Option Explicit
Sub iniligne(celll As Range, ByVal zzone As Range)
    Dim ligne As Range
    Dim xx, y, yy As Integer

    y = celll.Row
    xx = zzone.Column
    yy = zzone.Columns.Count + xx - 1
    Set ligne = Range(Cells(y, xx), Cells(y, yy))
    Call coche(celll, ligne)
End Sub

Sub coche(ByVal cel As Range, ByVal plage As Range)

Dim etatcel As String

    etatcel = cel.Value
    plage.ClearContents
    If etatcel = "" Then cel.Value = "ü"

End Sub

Merci beaucoup Chris !!!

C'est exactement ce que je cherchais