visual basic - 2em

[cirenolbur]

Bonsoir,
J'ai fait une demande il y quelque jour,
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 -

J'ai eu une reponse tres satisfaisante avec le click droit de la souris- celle ci
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
J'ai ensuite essayer de bidouiller pour étendre cette sub sur une selection
du genre "E2:E20" mais egalement "G2:G20" et "I2:I20" - Mais la c'est le drame je n'arrive qu'a faire une selection global de "E2:G20" Je ne sais pas comment faire pour que la sub ne soit pas actif sur les selections "F2:F20" "H2:H20" - Pas quoi faire !! Merci de votre aide.
ci-joint le fichier avec la sub -

 

[Pierre-Henry]

Re : visual basic - 2em

Bonsoir

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(ActiveCell, Range("E2:E20,G2:G20,I2:I20")) Is Nothing Then Exit Sub
ActiveCell = IIf(ActiveCell = "", "a", "")
Cancel = True
End Sub

Note : Les sélections multiples, c'est comme ça : Range("E2:E20,G2:G20,I2:I20")

 

[cirenolbur]

Re : visual basic - 2em

Monsieur Pierre Henry - vous étes un prince
Merci infiniment