Fusion de VBA

Version imprimable

Fusion de VBA

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

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
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

Code:

1
2
3
4
5
6
7
8
9
10
11
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

10/05/2012, 17h40
Jean-Philippe André

salut,

si tu pouvais directement nous mettre le code tel que tu l'as "fusionné" pour qu'on parte de là, ca serait top :ccool:
10/05/2012, 17h57
patricktoulon

heu

bonjour

Avant tout il faut bien distinguer la condition du intersect

dans tes deux exemples tu a :

Code:

If Not Intersect(Target, Range("I4:AE4,I14:AE14")) Is Nothing Then

et

Code:

If Not Application.Intersect(Target, Range("J6:L6")) Is Nothing Then

Il va te falloir séparer les cellules communes des deux plages pour faire une 3 eme condition
du moins a mon avis

au plaisir