Cocher une cellule ?

Bonjour je cherche à savoir comment peut-on cocher une cellule.

Quand je place ma souris sur la cellule et que je clique une fois (ou deux fois) la cellule est remplie par un grand X. Possible ? merci à vous ?

Bonjour,

Met ce code suivant dans la feuille concernée et teste avec double click sur n'importe quelle cellule :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Target.Value = "X"
End Sub

Bonjour,

Avec un double click, ce code met un "X" si on est dans la plage B2:B10 ou D2:D10

Si on double clique dans une cellule de la plage qui contient un "X" il sera effacé

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  temp = Array("X", "")
  If Not Application.Intersect(Target, Range("B2:B10, D2:D10")) Is Nothing Then
    With Target
  p = Application.Match(Target, temp, 0)
  If Not IsError(p) Then
    If p = UBound(temp) + 1 Then p = 0
  Else
    p = 0
  End If
  Target = temp(p)
  Cancel = True
  End With
  End If
End Sub

Amicalement

Nad

171classeur2.xlsx (89.52 Ko)

Merci, mais je ne connais pas le système des macros. J'utilise excel 2007: je fais :

  • affichage
  • macro
  • enregistrer une macro
et je colle dans la case vide ? c'est ça ?

Bonjour

click droite sur le nom de l'onglet et visualiser le code. (ou "alt+F11")

double click sur le nom de ta feuil (a gauche) et colle la macro sur la page vide qui s'affiche

Cordialement

Merci, ça fonctionne !!!!

Rechercher des sujets similaires à "cocher"