[Résolu]Ecrire un "x" par programmation

job75

XLDnaute Barbatruc

• 13 Juin 2013

• #2

Re : Ecrire un "x" par programmation

Bonjour Thibault98,

Il faut savoir qu'en mode "Edition" (curseur dans une cellule) aucune macro ne peut être exécutée.

A+

 

Vote positif 0 Vote négatif

T

Thibault98

XLDnaute Occasionnel

• 13 Juin 2013

• #3

Re : Ecrire un "x" par programmation

Bonjour et merci, je voulais dire la cellule sélectionnée "le cadre autour" seulement.

Bonne après midi.

Thibault

 

Vote positif 0 Vote négatif

Misange

XLDnaute Barbatruc

• 13 Juin 2013

• #4

Re : Ecrire un "x" par programmation

Bonjour

tu peux faire ça en faisant un double clic dans la cellule
Ce lien n'existe plus

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 13 Juin 2013

• #5

Re : Ecrire un "x" par programmation

Re Thibault, bonjour Misange

Pas compris pourquoi vous voulez utiliser F4 ou F9.

Moi j'ai l'habitude d'appuyer sur les touches X et Suppr

A+

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 13 Juin 2013

• #6

Re : Ecrire un "x" par programmation

Bonjour à tous,

toujours sur doubleclick, une autre approche :

Code:

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Target = IIf(Target = "x", "", IIf(Target = "", "x", Target))
Cancel = True
End Sub

bon après midi
@+

 

Vote positif 0 Vote négatif

T

Thibault98

XLDnaute Occasionnel

• 13 Juin 2013

• #7

Re : Ecrire un "x" par programmation

Merci, en effet ça fonctionne bien.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 13 Juin 2013

• #8

Re : Ecrire un "x" par programmation

Re,

Puisque vous êtes accro du VBA allez-y (Alt+F11) et mettez tout ça dans ThisWorkbook :

Code:

Private Sub Workbook_Open()
Application.OnKey "{F4}", "ThisWorkbook.MonX"
Application.OnKey "{F9}", "Thisworkbook.MaSup"
End Sub

Sub MonX()
ActiveCell = "X"
End Sub

Sub MaSup()
ActiveCell.ClearContents
End Sub

Enregistrez, fermez et rouvrez le fichier, puis faites joujou avec F4 et F9.

A+

 

Vote positif 0 Vote négatif

T

Thibault98

XLDnaute Occasionnel

• 13 Juin 2013

• #9

Re : Ecrire un "x" par programmation

Merci beaucoup ça fonctionne très bien.

@+
Thibault

 

Vote positif 0 Vote négatif

Misange

XLDnaute Barbatruc

• 13 Juin 2013

• #10

Re : [Résolu]Ecrire un "x" par programmation

Bonjour Job,

@ Thibault : Oui mais tu perds l'usage indispensable de F4 pour mettre les $ dans les références d'excel. Dommage !

 

Vote positif 0 Vote négatif

T

Thibault98

XLDnaute Occasionnel

• 13 Juin 2013

• #11

Re : [Résolu]Ecrire un "x" par programmation

Je l'ai réglé sur "F8" je ne me sert pas de cette touche.

Merci.

 

Vote positif 0 Vote négatif

Misange

XLDnaute Barbatruc

• 13 Juin 2013

• #12

Re : [Résolu]Ecrire un "x" par programmation

Par curiosité, c'est plus simple de taper sur F8 que sur X ?

 

Vote positif 0 Vote négatif

T

Thibault98

XLDnaute Occasionnel

• 13 Juin 2013

• #13

Re : [Résolu]Ecrire un "x" par programmation

Oui, car dans mon code en appuyant sur F8 j'ai une procédure qui devrait fonctionner car la feuille est protégée de A à Z je pense pouvoir ainsi trouver se que je souhaite, déprotéger la cellule le temps de l’exécution.

Bonne soirée.
Thibault.

 

Vote positif 0 Vote négatif