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
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
A voir également:
- La valeur apparait lors de la selection
- L'indice n'appartient pas à la sélection vba - Forum VB / VBA
- L'en-tête du document comporte une information qui n’apparaît pas à l'impression car elle est de couleur blanche. de quelle information s'agit-il ? ✓ - Forum Bureautique
- Faites en sorte que la cellule a1 affiche exactement ce qui est montré sur cette image. quel mot apparaît en b1 ? - Forum Excel
- Supprimez les composantes rouge et verte de cette image. quel mot apparaît ? - Forum Photoshop
- Le fichier contient le nombre de voyageurs dans 3 gares. dans la cellule b5, saisissez une formule qui calcule le total et se met à jour si on change une valeur du tableau. quel total obtenez-vous ? quelle formule avez-vous saisie ? ✓ - Forum Excel
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
21 janv. 2010 à 14:50
Tu veux qu'en cliquant sur n'importe quelle cellule une valeur apparaisse?
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
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
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
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
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ActiveCell.Value = 1
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+
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+
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
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
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
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
21 janv. 2010 à 23:10
ça va, jipé ? t'es satisfait ?