Mettre "X" sur simple clic

[yvon07]

bonjour a tous

j'ai un tableau dans lequel en cliquant sur une cellule,cette derniere se valide en mettant un "X".

En vous remerciant par avance
Slts

 

[Risleure]

Re : Mettre "X" sur simple clic

Bonjouryvon07, le Forum

Avec le simple clic droit en PJ


A+

 

[yvon07]

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

 

[Pierrot93]

Re : Mettre "X" sur simple clic

Bonjour,

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

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

bon après midi
@+

 

[yvon07]

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.

 

[Pierrot93]

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...

 

[yvon07]

Re : Mettre "X" sur simple clic

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

 

[gringours]

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

 

[Dull]

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

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

 

[gringours]

Re : Mettre "X" sur simple clic

mortel ! merki ;o)

 

[hyundai]

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é...

 

[coco_lapin]

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.