Double clics une ligne sur deux

[Evelynetfrancois]

bonjour tout le monde

lorsque je clic dans certaine cellules une boite nommée "UserFormCommentaires " s'affiche
ces lignes correspondent a B8:AF8 , B10:AF10 , B12:AF12 etc , soit une ligne sur deux
mon soucis est que je dois aller jusqu a B100:AF100
1) Ca beugue !!
2) C' est super mal ecrit , vu la longueur
Y a t il une facon plus propre d'écrire cette macro
MERCI d'avance pour vos solutions à venir
bonne journée à tous
E et F


Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("B8:AF8,B10:AF10,B12:AF12,B14:AF14,B16:AF16,B18:AF18,B20:AF20,B22:AF22,B24:AF24,B26:AF26,B28:AF28,B30:AF30,B32:AF32,B34:AF34,B36:AF36,B38:AF38,B40:AF40,B42:AF42,B44:AF44,B46:AF46,B48:AF48,B50:AF50,B52:AF52,B54:AF54,B56:AF56,B58:AF58")) Is Nothing Then
UserFormCommentaire.Show
Cancel = True
End If
End Sub

 

[MJ13]

Re : Double clics une ligne sur deux

Bonjour EF

Oui, tu sélectionnes les zones et tu leur donne un nom (après, c'est F5 pour atteindre).

 

[Guest]

Re : Double clics une ligne sur deux

Bonjour,

Cela devrait le faire.

If Not Intersect(Target, Range("B8:AF100")) Is Nothing And Target.Row Mod 2 = 0 Then
End If

A+

[edit] Bonjour Michel

 

[Evelynetfrancois]

Re : Double clics une ligne sur deux

MERCI mille fois pour ces réponses super rapides !!!!
la proposition de hasco est exactement celle dont je revais .... Super !
Bonne journée à vous
EetF