Comment dire que le code soit actif uniquement en A ? [résolu]

anthoYS · 21 Juillet 2018

Bonjour,

VB:

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim couleurs()
couleurs = Array(RGB(255, 255, 0), RGB(0, 255, 0), RGB(255, 255, 255))
On Error GoTo color
Target.Interior.color = couleurs(Application.WorksheetFunction.Match(Target.Interior.color, couleurs, 0) Mod 5)
Cancel = True
Exit Sub
color:
Target.Interior.color = couleurs(0)
Cancel = True
End Sub

Si en B, figer la date ainsi :

VB:

Cells(Target.Row, 2) = Date

Merci par avance 😉

Staple1600 · 21 Juillet 2018

Bonjour le fil, le forum

@anthoYS
Faudrait peut être à voir à se souvenir des syntaxes que tu utilises dans tes précédentes discussions, non ?
https://www.excel-downloads.com/thr...lorer-en-vert-et-figer-date-du-jour.20024933/
https://www.excel-downloads.com/thr...je-saisis-dans-différentes-colonnes.20019821/
Où l'on peut lire des choses comme Target.Column=X

Donc facile à adapter cette syntaxe si on parle de la colonne A (donc la colonne 1), non ?

🙄

job75 · 21 Juillet 2018

Bonjour anthoYS, salut JM,

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column > 2 Then Exit Sub
Cancel = True
If Target.Column = 2 Then Target = Date: Exit Sub
'---suite du code pour colorer en colonne A---

A+

anthoYS · 22 Juillet 2018

Re,

Merci beaucoup !

job75 · 22 Juillet 2018

Bonjour anthoYS, JM,

Staple1600 à dit:
Étonnant qu'un Barbatruc comme toi ai buté la dessus...

anthoYS était sûrement capable de s'en sortir seul, je pense qu'il voulait comparer avec d'autres Barbatrucs.

Ils se suivent mais ne se ressemblent pas n'est-ce pas 🙄

A+

Comment dire que le code soit actif uniquement en A ? [résolu]

anthoYS

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

anthoYS

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Discussions similaires

Comment dire que le code soit actif uniquement en A ? [résolu]

anthoYS

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

anthoYS

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency