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

Staple1600

XLDnaute Barbatruc

• 22 Juillet 2018

• #2

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: 22 Juillet 2018

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 22 Juillet 2018

• #3

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+

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 22 Juillet 2018

• #4

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 …

 

Pièces jointes

• 3 Fonds.xlsm

  17.2 KB · Affichages: 30

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 22 Juillet 2018

• #5

Salut SI...,

Si... à dit:

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

Cliquez pour agrandir...

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

A+

 

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 22 Juillet 2018

• #6

Bonjour,

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

VB:

Target.BorderAround Weight:=xlThick

eric

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 22 Juillet 2018

• #7

Bonsoir eriiiic

eriiiic à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 22 Juillet 2018

• #8

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

 

Dernière édition: 22 Juillet 2018

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 23 Juillet 2018

• #9

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.

 

Vote positif 0 Vote négatif

anthoYS

XLDnaute Barbatruc

• 23 Juillet 2018

• #10

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

 

Vote positif 0 Vote négatif