La FAQ

[Greiche]

Une FAQ et pas moyen de joindre de texte

ndlr : Cette rubrique sera alimentée j'espère régulièrement.

On veut une action quand on Click sur la Cellule "A1" uniquement :

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then 
MsgBox "Click on " & Target.Address 
End If 
End Sub

Pas moyen de joindre le CODE, une FAQ pour les Admins et Modos !!!!

Chasse garder.................

 

[PascalXLD]

Re : La FAQ

BONJOUR

avant de commencer à raler

1 - on lit la charte de ce forum ici :
Lien supprimé

2 - on lit les fils en haut de la FAQ dont celui-ci :
Lien supprimé

Non mais j'aimerai bien qu'on ne me gache pas mes WE 😡

Bon samedi à tous