Forcer valeur cellule

[glm]

Bonjour,
je cherche à forcer la valeur de cellule d'une colonne
En tapant n'importe quelle valeur dans cette colonne
le résultat sera "r" (pour afficher une croix grâce au choix d'une police)
voir le fichier joint
Merci
Gilles

 

[ROGER2327]

Re : Forcer valeur cellule

Bonjour glm

Essayez d'utiliser le format personnalisé

"r";"r";"r";"r"​

pour les cellules concernées.​

ROGER2327
#3133

 

[Compte Supprimé 979]

Re : Forcer valeur cellule

Salut Glm,

Avec un p'tit code VBA à mettre dans Feuille1

Private Sub Worksheet_Change(ByVal Target As Range)
  If Intersect(Target, Range("C:C")) Is Nothing Then Exit Sub
  Application.EnableEvents = False
  Target.Value = "r"
  Application.EnableEvents = True
End Sub

Oups : Salut Roger2327
Pas bête sauf si on veux ensuite comptabiliser les croix

A+

 

[phlaurent55]

Re : Forcer valeur cellule

Bonjour glm,

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C2:C19")) Is Nothing Then
Target.Value = "r"
End If
End Sub

en mettant ce code dans la feuille, n'importe quelle saisie dans une cellule concernée sera remplacée par "r"
à+
Philippe

Edit: Salut à tous .......................je ne serai jamais un bon sprinteur

 

[Guiv]

Re : Forcer valeur cellule

Bonsoir à tous,
Juste avec un doubleclic, c'est encore plus rapide pour faire des croix dans les cellules...!

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("C2:C19")) Is Nothing Then
        Cancel = True
        Target.Value = "r"
    End If
End Sub

Cordialement,
Guiv

 

[ROGER2327]

Re : Forcer valeur cellule

Re...

(...) Pas bête sauf si on veux ensuite comptabiliser les croix (...)

Pas vu cela dans la demande, mais, au cas où :

[COLOR="DarkSlateGray"][B]=NB.SI(C2:C19;"<>")[/B][/COLOR]

comptera parfaitement les croix.
​

ROGER2327
#3134

 

[glm]

Re : Forcer valeur cellule

Bravo pour ces réponses multiples
Lucky Luke peut aller se rhabiller...
De la solution simple (format perso) à la solution double click sur la cellule
j'ai le choix
Merci, Merci et merci....à vous tous
Gilles