Visual Basic

cirenolbur · 27 Octobre 2008

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 · 27 Octobre 2008

Re : Visual Basic

Bonsoir,

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

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 :

Code:

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 · 28 Octobre 2008

Re : Visual Basic

Merci c'est parfait -

Visual Basic

cirenolbur

XLDnaute Nouveau

Pièces jointes

job75

XLDnaute Barbatruc

cirenolbur

XLDnaute Nouveau

Discussions similaires

Visual Basic

cirenolbur

XLDnaute Nouveau

Pièces jointes

job75

XLDnaute Barbatruc

cirenolbur

XLDnaute Nouveau

Discussions similaires

Privacy & Transparency

Privacy & Transparency