Mettre "X" sur simple clic

R

Risleure

XLDnaute Occasionnel

• 16 Septembre 2010

• #2

Re : Mettre "X" sur simple clic

Bonjouryvon07, le Forum

Avec le simple clic droit en PJ


A+

 

Pièces jointes

• validationV1.xls

  41 KB · Affichages: 175

Vote positif 0 Vote négatif

Y

yvon07

XLDnaute Occasionnel

• 16 Septembre 2010

• #3

Re : Mettre "X" sur simple clic

bonsoir

ce que je voudrai,clic gauche,sur une case,le "X" s'affiche dans la case cliqué.

merci

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 16 Septembre 2010

• #4

Re : Mettre "X" sur simple clic

Bonjour,

essaye ainsi, à utiliser dans le module de la feuille concernée...

Code:

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target.Value = "x"
End Sub

bon après midi
@+

 

Vote positif 0 Vote négatif

Y

yvon07

XLDnaute Occasionnel

• 16 Septembre 2010

• #5

Re : Mettre "X" sur simple clic

merci pierrot93

mais je n'est peu pas mis ou il faut car ,ca ne marche pas.
peu tu me la mettre dans mon fichier en piece jointe.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 16 Septembre 2010

• #6

Re : Mettre "X" sur simple clic

Re

je n'ai pas 2007, mais sous 2003 click droit sur l'onglet => visualiser le code et tu le colles... attention il y a sans doute lieu de vérifier les paramètre de sécurité afin d'activer les macros...

 

Vote positif 0 Vote négatif

Y

yvon07

XLDnaute Occasionnel

• 16 Septembre 2010

• #7

Re : Mettre "X" sur simple clic

merci pierrot93,
ca marche meme sous office 2010.
encor un grand merci a tous

 

Vote positif 0 Vote négatif

G

gringours

XLDnaute Nouveau

• 6 Octobre 2010

• #8

Re : Mettre "X" sur simple clic

bonjour à tous
je trouve la fonction hyper pratique
merci pierrot93 !
pour améliorer la fonction, peut on la rendre utilisable sur un range uniquement ?
si oui comment ?

merci

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 6 Octobre 2010

• #9

Re : Mettre "X" sur simple clic

Salut yvon07, Risleure, Pierrot, gringours, le Fil

@gringours

sur Double Click sur la cellule désignée ici A1
à mettre dans le module de la feuille

Code:

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True [COLOR=Green]' ne sélectionne pas la cellule[/COLOR]
If Not Intersect(Target, [A1]) Is Nothing Then Target =  _
IIf(Target = "x", "", "x")[COLOR=Green] _
' met un x dans la cellule si il n'y en a pas[/COLOR] [COLOR=Green]et vice-Versailles[/COLOR]
End Sub

Bonne Journée

 

Vote positif 0 Vote négatif

G

gringours

XLDnaute Nouveau

• 27 Octobre 2010

• #10

Re : Mettre "X" sur simple clic

mortel ! merki ;o)

 

Vote positif 0 Vote négatif

H

hyundai

XLDnaute Junior

• 27 Octobre 2010

• #11

Re : Mettre "X" sur simple clic

salut,

et sur la feuille entiere cela donnerais quoi avec le double clic?

merci d'avance

ok, merci j'ai trouvé...

 

Dernière édition: 27 Octobre 2010

Vote positif 0 Vote négatif

coco_lapin

XLDnaute Impliqué

• 11 Décembre 2010

• #12

Re : Mettre "X" sur simple clic

Bonsoir yvon07 et le forum,

Voir en annexe le classeur si cela te conviens.

Modification : j'avais pourtant vu qu'il n'y avait pas de réponse et maintenant j'en vois une dizaine avnt la mienne. Soit c'est un bugg de la nouvelle version ou c'est moi qui dois aller me coucher. J'optes pour la seconde hypothèse. Bonne nuit à tous.

 

Pièces jointes

• validation X.xls

  42 KB · Affichages: 155

Dernière édition: 11 Décembre 2010

Vote positif 0 Vote négatif