Fusion de VBA

[fortbelin]

Bonjour à toutes et à tous.

J'ai deux vba qui fonctionne bien dans deux classeurS différents mais quand je veux les mettre dans le même classeur, elle ne marche plus. Merci pour votre aide

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("I4:AE4,I14:AE14")) Is Nothing Then

With Target.Interior
If .Pattern = xlUp Then
.Pattern = xlNone
Else
.PatternColorIndex = 44
.Pattern = xlUp
End If
End With

End If
End Sub


Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Not Application.Intersect(Target, Range("J6:L6")) Is Nothing Then
With Target
If Selection.Interior.ColorIndex = 48 Then
Selection.Interior.ColorIndex = xlNone
Else
Selection.Interior.ColorIndex = 48
End If
End With
End If
End Sub

fortbelin
Utilisateur occasionnel

Messages: 23
Inscription: 23 Sep 2011, 17:12
Version Excel: 2003

 

[Pierrot93]

Re : Fusion de VBA

Bonjour,

normal, tu ne peux avoir qu'une seule procédure gérant le même événement dans un module de feuille...

bon après midi
@+

 

[fortbelin]

Re : Fusion de VBA

Merci pour ton aide mais qu'est ce que je dois faire...

 

[Pierrot93]

Re : Fusion de VBA

Re,

pour les regrouper :

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("I4:AE4,I14:AE14")) Is Nothing Then

With Target.Interior
If .Pattern = xlUp Then
.Pattern = xlNone
Else
.PatternColorIndex = 44
.Pattern = xlUp
End If
End With

End If
If Not Application.Intersect(Target, Range("J6:L6")) Is Nothing Then
With Target
If .Interior.ColorIndex = 48 Then
.Interior.ColorIndex = xlNone
Else
.Interior.ColorIndex = 48
End If
End With
End If
End Sub

 

[13GIBE59]

Re : Fusion de VBA

Bonjour Fortbelin.

Essaie plutôt ça :

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("I4:AE4,I14:AE14")) Is Nothing Then

With Target.Interior
If .Pattern = xlUp Then
.Pattern = xlNone
Else
.PatternColorIndex = 44
.Pattern = xlUp
End If
End With
End If

If Not Application.Intersect(Target, Range("J6:L6")) Is Nothing Then
With Target
If Selection.Interior.ColorIndex = 48 Then
Selection.Interior.ColorIndex = xlNone
Else
Selection.Interior.ColorIndex = 48
End If
End With
End If
End Sub

Oups ! Bonjour Pierrot.

 

[JNP]

Re : Fusion de VBA

Bonjour tout le monde 🙂,
Que de collisions 😛...
Allez, une de plus

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
With Target.Interior
    If Not Intersect(Target, Range("I4:AE4,I14:AE14")) Is Nothing Then
        If .Pattern = xlUp Then
            .Pattern = xlNone
        Else
            .PatternColorIndex = 44
            .Pattern = xlUp
        End If
    ElseIf Not Intersect(Target, Range("J6:L6")) Is Nothing Then
        If .ColorIndex = 48 Then
            .ColorIndex = xlNone
        Else
            .ColorIndex = 48
        End If
    End If
End With
End Sub

Bonne suite 😎

 

[fortbelin]

Re : Fusion de VBA

Merci beaucoup cela fonctionne parfaitement.

Bonne journée.

Christophe