Visual Basic

[cirenolbur]

Bonsoir,
Petite chose que j'aimerai pouvoir faire, je pense que ca fonctionne avec visual basic -
Je souhaiterai pouvoir en cliquant sur une celulle, pour ce test, dans la celulle E2 F3 ou G4 faire apparaitre la lettre "a" - puis en cliquant une seconde fois la faire disparaitre. Est-ce possible ? Et comment ??
Merci pour votre aide -

 

[job75]

Re : Visual Basic

Bonsoir,

Une macro toute simple à placer dans le code de la feuille (clic droit sur l'onglet et Visualiser le code) :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(ActiveCell, Range("E2,F3,G4")) Is Nothing Then Exit Sub
ActiveCell = IIf(ActiveCell = "", "a", "")
End Sub

Edit 1: il faut changer de sélection pour que le clic suivant sur la cellule ait de l'effet. Ou alors on peut modifier par un double clic, mais c'est autre chose.

Edit 2 : vous pouvez aussi modifier par un clic droit sur la cellule, avec la macro :

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(ActiveCell, Range("E2,F3,G4")) Is Nothing Then Exit Sub
ActiveCell = IIf(ActiveCell = "", "a", "")
Cancel = True
End Sub

A+

 

[cirenolbur]

Re : Visual Basic

Merci c'est parfait -