Case a cocher pour une colonne

Salut a tous, j'aimerais avoir des cases a cocher sur toute une colonne d'une feuille. J'aimerais egalement pouvoir lire par VBA l'etat de la cellule de la ligne active.

Quelqu'un peu m'aider a partir,

Merci!

Bonjour,

Regardez cette discussion peut être cela pourra vous aider

https://forum.excel-pratique.com/excel/case-a-cocher-en-colonne-t30067-10.html

Bonjour,

Des cases à cocher sur une colonne entière?

Quelle est l'utilité d'une telle mesure?

Quel est l'objectif?

Merci de joindre un fichier et des explications .

Cdlt

Salut Jean-Eric

Je t'envoi un fichier tres reduit qui devrais faire l'affaire. L'explication est dans le fichier. Mon application excel est un editeur /assembleur/debugger pour processeur Z80 et il fonctionne a merveille. La carte processeur est branche au port serie du PC et un software permet de communiquer avec mon application Excel. Ma demande permettra d'ajouter une petite fonction a l'application.

Michel

Re,

Une solution sans case à cocher, avec une case à cocher en Wingdings 2.

A tester avec un clic droit en colonne D.

A te relire

Cdlt.

Ca convient parfaitement. Il me reste a implanter mon code en fonction du tiens. Est-ce que cancel est une variable? je veux pouvoir verifier l'etat de la case en D pour la ligne active dans mon sub et employe IF then else.

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

If Not Application.Intersect(Target, Range("D3:D98")) Is Nothing Then

If Target.Count > 1 Then Exit Sub

Cancel = True

Select Case Target

Case ""

Target = "R"

Case "R"

Target = ""

End Select

End If

End Sub

Re,

Cancel=True empêche l'apparition du menu contextuel dans le plage concernée.

---> Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

Normalement, pas de souci

Cdlt.

ok. Comment en VBA peut-on verifier l'etat de la cellule en D (case a cocher), pour la la ligne courante?

Re,

Exemple

    For i = 3 To 98
        If Cells(i, 4) = "R" Then
            ' mon code
        End If
    Next

Je devrais etre capable d'adapter ton bout de code. J'essaie ca ce soir.

Merci pour tout, Jean-Eric!

tout a marche! l'idee de mettre une case a cocher a meme la police de caractere Winding 2 etait excellente.

Je ferme le post.