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

[anthoYS]

Bonjour, Re,

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

Merci

 

[Staple1600]

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

 

[job75]

Bonjour anthoYS,

Revenez demain si d'ici là vous n'avez pas trouvé par vous-même.

Ce sera alors plus qu'inquiétant pour vous 🙄

Edit : salut JM.

A+

 

[Si...]

Bon_soir

@ Job : dans l'autre fil, on peut éviter la boucle avec : Target.Borders.Weight = xlThick

@ Staple : je prends donc le relais avec cet exemple …

 

[job75]

Salut SI...,

@ Job : dans l'autre fil, on peut éviter la boucle avec : Target.Borders.Weight = xlThick

Bah sans la boucle les bordures intérieures s'affichent aussi !!

A+

 

[eriiic]

Bonjour,

ne sachant pas de quel autre fil il s'agit je serai peut-être hors sujet.
Contour sans boucle :

Target.BorderAround Weight:=xlThick

eric

 

[Staple1600]

Bonsoir eriiiic

Bonjour,
ne sachant pas de quel autre fil il s'agit je serai peut-être hors sujet.

Pour éclairer ta lanterne 😉
https://www.excel-downloads.com/thr...re-de-la-selection-apres-clic-droit.20025608/

 

[eriiic]

Merci staple.
Pas complètement hs apparemment 🙂 J'ai répondu là bas

 

[Si...]

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)

Voir ici.

 

[anthoYS]

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.

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

Merci par avance