Bonjour à tous,
J'ai un fichier sur lequel j'ai déjà entré un code VBA (grâce aux membres du forum...merci à vous d'ailleurs) qui concerne les cellules c18:h25.
Je voudrais intégrer un nouveau code pour les cellules c32:h37 mais qui n'interfère pas avec le 1er code et je ne sais comment faire.
Je connais ce nouveau code que je vous mets:
Public ref_cel As String
Public numcel As Integer
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim pl As Range
Set pl = Range("C32:H37")
If Application.Intersect(Target, pl) Is Nothing Then Exit Sub
Cancel = True
pl.Interior.ColorIndex = xlNone
Target.Interior.ColorIndex = 3
Range("G28").Value = Target.Value
End Sub
'Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
' If numcel = 0 Then drapeau = False Else drapeau = True
' If drapeau = True Then Range(ref_cel).Interior.ColorIndex = -4142
' drapeau = True
' Target.Interior.ColorIndex = 3
' ref_cel = Target.Address
' numcel = 1
'End Sub
Pouvez-vous m'aider à l'intégrer?
Je vous mets en PJ mon fichier.
Memene
J'ai un fichier sur lequel j'ai déjà entré un code VBA (grâce aux membres du forum...merci à vous d'ailleurs) qui concerne les cellules c18:h25.
Je voudrais intégrer un nouveau code pour les cellules c32:h37 mais qui n'interfère pas avec le 1er code et je ne sais comment faire.
Je connais ce nouveau code que je vous mets:
Public ref_cel As String
Public numcel As Integer
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim pl As Range
Set pl = Range("C32:H37")
If Application.Intersect(Target, pl) Is Nothing Then Exit Sub
Cancel = True
pl.Interior.ColorIndex = xlNone
Target.Interior.ColorIndex = 3
Range("G28").Value = Target.Value
End Sub
'Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
' If numcel = 0 Then drapeau = False Else drapeau = True
' If drapeau = True Then Range(ref_cel).Interior.ColorIndex = -4142
' drapeau = True
' Target.Interior.ColorIndex = 3
' ref_cel = Target.Address
' numcel = 1
'End Sub
Pouvez-vous m'aider à l'intégrer?
Je vous mets en PJ mon fichier.
Memene