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

[Thibault98]

Bonjour à tous,

Je voudrais par un code en VBA écrire un "x" en appuyant sur la touche "F4" ou "F9" pour l'enlever alors que le curseur est dans la cellule voulu c'est possible ?

Merci d'avance,

Thibault.

 

[job75]

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+

 

[Thibault98]

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

 

[Misange]

Re : Ecrire un "x" par programmation

Bonjour

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

 

[job75]

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+

 

[Pierrot93]

Re : Ecrire un "x" par programmation

Bonjour à tous,

toujours sur doubleclick, une autre approche :

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
@+

 

[Thibault98]

Re : Ecrire un "x" par programmation

Merci, en effet ça fonctionne bien.

 

[job75]

Re : Ecrire un "x" par programmation

Re,

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

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+

 

[Thibault98]

Re : Ecrire un "x" par programmation

Merci beaucoup ça fonctionne très bien.

@+
Thibault

 

[Misange]

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 !

 

[Thibault98]

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

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

Merci.

 

[Misange]

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

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

 

[Thibault98]

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.