Evelynetfrancois
XLDnaute Impliqué
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
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