clic = valeur 1

[Katoch]

bonjour et meilleurs voeux à tous !
Quel est le code pour que lorsque je clique sur une cellule , celle-ci prend automatiquement la valeur 1.

merci.

 

[Pierrot93]

Re : clic = valeur 1

Bonjour,

essaye ceci à placer dans le module de la feuille concernée :

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target = 1
End Sub

bonne journée
@+

 

[fhoest]

Re : clic = valeur 1

Bonjour,
qu'entend tu par cliquez (se positionner ??) et dans quel cellule spécifique ??

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveCell.Value = 1
End Sub

Meilleurs vœux également.

 

[pascal21]

Re : clic = valeur 1

bonjour katoch, fhoest, pierrot, le forum

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)On Error Resume Next
If Intersect(Target, Columns("f:j")) Is Nothing Then Exit Sub
If IsEmpty(ActiveCell.Value) Then
ActiveCell.Value = "1"
ElseIf ActiveCell.Value = "1" Then
ActiveCell.Value = ""
End If
Cancel = True
End Sub

sur clic droit inscrit 1 et efface 1 si besoin pour les colonnes F à J pour ce code

 

[Katoch]

Re : clic = valeur 1

Ok , merci !

2 autres questions :
1)quel code , rajouté à celui-ci ci dessous , me permettrait de revenir à l'état initial de la cellule , par autre double clic sur cette cellule?
2) quelle code me permettrait de sommer les valeurs des cellules de même couleur ?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True 'annule le mode édition lié au double-clic
'récupère la couleur de la cellule en colonne A et la place dans la cellule double-cliquée
Target.Interior.ColorIndex = Cells(Target.Row, 1).Interior.ColorIndex
End Sub


voir fichier joint.

 

[Pierrot93]

Re : clic = valeur 1

Re,

le lien ci-dessous devrait t'aider à solutionner ta 1ère question :
https://www.excel-downloads.com/threads/afficher-la-date-sur-un-clic.175691/