Cellule vide/texte via un clic

Bonjour,

Je cherche un code qui permettrait par exemple d'avoir sur A1:A25

la possibilité en faisant un clic de voir afficher "a radier"

et en refaisant un clic sur la même cellule retrouver une cellule vide.

Autrement dit, avoir "cellule vierge/à radier/cellule vierge/à radier" etc.....

Cordialement

Tonthon

Bonsoir,

Une proposition avec un double clic

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Application.Intersect(Target, Range("A1:A25")) Is Nothing Then
        Cancel = True
        If Target = "" Then
            Target = "à radier"
        Else
            Target = ""
        End If
    End If
End Sub

A+

Bonsoir Frangy,

En lisant le code, je me dis que c'est certainement cela.

Mais j'ai fait quelques tentatives sans succès... je pense que je dois mal insérer celui-ci en le mettant à un mauvais endroit.

Tu pourrais me préciser c'est sur la feuille concernée, un module ?

Je fais état de mon ignorance !

Cordialement

Le code doit être placé dans le module de la feuille concernée, Feuil1 (Feuil1) par exemple.

A+

frangy a écrit :

Le code doit être placé dans le module de la feuille concernée, Feuil1 (Feuil1) par exemple.

A+

Bonjour frangy

C'est ok, .

J'ai du mal à savoir où mettre les codes, quand c'est dans un module.... si tu as un lien pour m'expliquer cela je suis preneur.

Maintenant que cela marche, cela me donne une autre idée -je suis incorrigible- pour avoir successivement un second choix comme

"cellule vide"/"à radier"/"à modifier"/"cellule vide" etc...

Une fois que j'aurais le code pour faire cela, je saurai en rajouter d'autres si besoin était.

Merci d'avance et excellente journée

Tonthon

Bonjour,

J'ai du mal à savoir où mettre les codes, quand c'est dans un module.... si tu as un lien pour m'expliquer cela je suis preneur.

Code pour avoir successivement un second choix comme "cellule vide"/"à radier"/"à modifier"/"cellule vide" etc...

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Application.Intersect(Target, Range("A1:A25")) Is Nothing Then
        Cancel = True
        If Target = "" Then
            Target = "à radier"
        ElseIf Target = "à radier" Then
            Target = "à modifier"
        ElseIf Target = "à modifier" Then
            Target = ""
        End If
    End If
End Sub

A+

RE,

Finalement ce code est d'une logique absolue, il faut que je m'y mette.

Dans l'ordre, j'ai introduit ton code

Pour le lien concernant les cours, c'est génial, je l'ai téléchargé et déjà regardé.

Ils correspondent à mon niveau "nul débutant" je crois que je vais prendre plaisir à le lire.

Compte tenu qu'il y a 226 pages, je pense qu'avant avoir tout assimilé, je reviendrai ici

Cordialement et excellent WE