S'applique à supérieur à la colonne A et ligne N°1 ?

anthoYS

XLDnaute Barbatruc
Bonjour, Re,

VB:
Private Sub Worksheet_BeforeDoubleClick(ByVal R As Range, Oust As Boolean)
  Oust = 1: R = Date: R.Interior.color = vbGreen
End Sub

Merci
 

Staple1600

XLDnaute Barbatruc
Bonsoir le fil, le forum, Re anthoYS

@anthoYS
C'est nouveau de poser directement la question dans le titre ??
NB: En théorie suite à ton autre fil et la réponse de job75
Tu sais désormais que colonne=Column et tu dois déjà savoir que ligne=Row en VBA
Donc tu devrais pouvoir modifier le code, non ?

PS:Cela ressemble à un code de Si... (si je ne m'abuse ;) )
Je lui passe donc le relais

EDITION: Bonsoir job75
 
Dernière édition:

Si...

XLDnaute Barbatruc
Re
Job, ce n'est pas le cas chez moi notamment dans le fichier que j'ai joint ci-dessus (sinon je me serais abstenu).
Visuel d'un autre test (que tu peux faire avec tes versions et infirmer ou confirmer ta remarque)

upload_2018-7-23_7-20-4.png

Voir ici.
 

anthoYS

XLDnaute Barbatruc
Bonjour, Re,

Non ce que je souhaite c'est que le double clic en A ou ligne 1, ne fasse rien. Et pour le reste, double clic fige la date du jour (code déjà ok).
Que le code exclut la colonne A et la ligne 1, qu'il les ignore, qu'il ne soit pas valable sans avoir de message d'erreur pour autant.

Ce code colore donc n'importe quelle cellule ayant un double clic en vert et fige la date du jour à cette cellule.

VB:
Private Sub Worksheet_BeforeDoubleClick(ByVal R As Range, Oust As Boolean)
  Oust = 1: R = Date: R.Interior.color = vbGreen
End Sub

Merci par avance
 

Discussions similaires

Réponses
9
Affichages
630
Réponses
2
Affichages
775