[Résolu] Une même macro pour mettre et enlever un mot dans une selection de cellule

[libellule85]

Bonjour le forum,

Peut-on faire une macro qui puisse lors du 1er clic écrire un mot et suite à un 2è clic effacer ce mot ? et ceci sur une sélection de cellule (une ou plusieurs).

D'avance merci pour votre aide

 

[TempusFugit]

Re : Une même macro pour mettre et enlever un mot dans une selection de cellule

Bonjour


A essayer ou adapter

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Target.Count = 1 Then Exit Sub
Target = IIf(IsEmpty(Target), Target, vbNullString)
End Sub

A mettre dans le code d'une Feuille
Pour tester:
Saisir une valeur dans une cellule
puis cliquer dans une autre cellule
Revenir sur la première cellule.

 

[libellule85]

Re : Une même macro pour mettre et enlever un mot dans une selection de cellule

Bonjour TempusFugit,

Je te remercie pour ta réponse, celà fonctionne très bien.
Mais je préfère avec un clic sur un bouton.

 

[TempusFugit]

Re : Une même macro pour mettre et enlever un mot dans une selection de cellule

Il suffit d'adapter ma proposition précédente.

Private Sub CommandButton1_Click()
If Not Selection.Count = 1 Then Exit Sub
ActiveCell = IIf(IsEmpty(ActiveCell), ActiveCell, vbNullString)
End Sub

Mais avec un bouton, cela change beaucoup de chose.

 

[job75]

Re : Une même macro pour mettre et enlever un mot dans une selection de cellule

Bonjour libellule85, TempusFugit,

Pas compris la solution proposée 😕

Perso j'écrirais ça :

Private Sub CommandButton1_Click()
On Error Resume Next 'si Selection n'est pas un Range...
Selection = IIf(Selection.Cells(1, 1) = "", "Bonjour", "")
End Sub

ou encore :

Private Sub CommandButton1_Click()
'le texte de référence est en A1, cellule à adapter
On Error Resume Next 'si Selection n'est pas un Range...
If Selection.Cells(1, 1).Address = [A1].Address Then Exit Sub
Selection = IIf(Selection.Cells(1, 1) = "", [A1], "")
End Sub

A+

 

[libellule85]

Bonjour Job75,

Je tiens à te remercier du fond du cœur, c'est exactement ce que je recherchais.
Merci

 

[TempusFugit]

Re : [Résolu] Une même macro pour mettre et enlever un mot dans une selection de cel

@job75

Mais avec un bouton, cela change beaucoup de chose.

était censé éclairer les choses.

Ton second code m'a quant à lui éclairé.