La valeur apparait lors de la selection

Fermé
jipé - 21 janv. 2010 à 13:59
Raymond PENTIER Messages postés 57157 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 28 mars 2023 - 21 janv. 2010 à 23:10
Bonjour,
je souhaiterais qu une valeur prédéfinie s affiche lorsque je selectionne la cellule;
Merci jipe

6 réponses

Farfadet88 Messages postés 6285 Date d'inscription lundi 28 janvier 2008 Statut Membre Dernière intervention 29 avril 2020 1 394
21 janv. 2010 à 14:50
Tu veux qu'en cliquant sur n'importe quelle cellule une valeur apparaisse?
0
bonjour
si c'est LA cellule je ferai ainsi:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Range("a1").Value = 1

End Sub
0
Farfadet88 Messages postés 6285 Date d'inscription lundi 28 janvier 2008 Statut Membre Dernière intervention 29 avril 2020 1 394
21 janv. 2010 à 16:03
Et pour n'importe quelle case:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ActiveCell.Value = 1
0
re
j'en ai un autre de derriere les fagots
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("C6:R36")) Is Nothing Then: Exit Sub
Cancel = True
Target = "1"
End Sub
a+
0
re
le double clic c'est bien mais attention a la manip , il me semble qu'il existe un code avec one shoot mais cela sera precisé par une pointure (pas moi)
a+
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Farfadet88 Messages postés 6285 Date d'inscription lundi 28 janvier 2008 Statut Membre Dernière intervention 29 avril 2020 1 394
21 janv. 2010 à 16:42
Et en voilà une autre de derrière la remise!

Pour afficher 1 dans une case ou l'enlever

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

If Target.Value = "1" Then
Target.Value = ""
Else
Target.Value = "1"
End If
End Sub

0
re
avec la gomme c'est mieux
a+
0
Raymond PENTIER Messages postés 57157 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 28 mars 2023 17 156
21 janv. 2010 à 23:10
ça va, jipé ? t'es satisfait ?
0