Sujet Précédent Sujet Suivant

La valeur apparait lors de la selection

jipé -
Raymond PENTIER Messages postés 58960 Date d'inscription Statut Contributeur Dernière intervention - 21 janv. 2010 à 23:10

Bonjour,
je souhaiterais qu une valeur prédéfinie s affiche lorsque je selectionne la cellule;
Merci jipe

Configuration: Windows 7 Internet Explorer 7.0

Afficher la suite

A voir également:

La valeur apparait lors de la selection
Clé usb n'apparait pas - Guide
Facebook rencontre n'apparait pas - Forum Facebook
L'indice n'appartient pas à la sélection vba - Forum VB / VBA
Supprimez les composantes rouge et verte de cette image. quel mot apparaît ? ✓ - Forum Photoshop
Dans la présentation à télécharger, sans modifier leur position dans la feuille : passez le rectangle noir en arrière-plan. passez le rectangle bleu au premier plan. passez le rectangle hachuré au premier plan. quel mot apparaît ? - Forum LibreOffice / OpenOffice

6 réponses

Réponse 1 / 6

Farfadet88 Messages postés 19 Date d'inscription Statut Membre Dernière intervention 1 402

Tu veux qu'en cliquant sur n'importe quelle cellule une valeur apparaisse?

Réponse 2 / 6

gilou

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

Réponse 3 / 6

Farfadet88 Messages postés 19 Date d'inscription Statut Membre Dernière intervention 1 402

Et pour n'importe quelle case:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ActiveCell.Value = 1

gilou

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+

Réponse 4 / 6

gilou

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+

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

Posez votre question

Réponse 5 / 6

Farfadet88 Messages postés 19 Date d'inscription Statut Membre Dernière intervention 1 402

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

gilou

re
avec la gomme c'est mieux
a+

Réponse 6 / 6

Raymond PENTIER Messages postés 58960 Date d'inscription Statut Contributeur Dernière intervention 17 469

ça va, jipé ? t'es satisfait ?

Discussions similaires

Facebook rencontres a disparu.

PIX

erreur d'execution 9, l'indice n'appartient pas à la sélection

Facebook rencontre introuvable

Comment enlever le rouge sur la photo svp ?

Discussions similaires

Newsletters