Bonjour tout le monde,
ça fait pas mal de temps que je me bats pour savoir pourquoi le code suivant ne s'exécute pas:
Sub CellulesDeCouleurs()
Dim ColorIndex As Integer '1
Sheets("Feuil1").Select '2
ColorIndex = Cells(2, 10).Interior.ColorIndex '3
Range("A1:G21").Select '4
Selection.Copy '5
Sheets("Feuil2").Select '6
Range("A1").Select '7
ActiveSheet.Paste '8
Range("A1").Select '9
Set Plage1 = Range("B5:G10") '10
Set Plage2 = Range("B16:G21") '11
Set Plages = Union(Plage1, Plage2) '12
For Each Cll In Plages '13
If Cll.Interior.ColorIndex <> ColorIndex Then plg = plg & Cll.Address() & "," '14
Next Cll '15
If Len(plg) > 0 Then Range(Left(plg, Len(plg) - 1)).Select '16
Selection.ClearContents '17
Selection.Interior.ColorIndex = xlNone '18
End Sub
j'ai coloré les cellules des plages indiquées dans le code ci-dessus par différentes couleurs et je ne veux garder dans la deuxième feuille que la couleur de la cellule (2,10) (ligne 3 du code).
Le code s'exécute sans problème si je remplace le signe <> par = dans la ligne 14 du code par contre en présence du signe <> il indique le message d'erreur suivant : La méthode Range de l'objet global a échoué
Est ce qu'il y a quelqu'un qui peut m'aider et merci d'avance.
ça fait pas mal de temps que je me bats pour savoir pourquoi le code suivant ne s'exécute pas:
Sub CellulesDeCouleurs()
Dim ColorIndex As Integer '1
Sheets("Feuil1").Select '2
ColorIndex = Cells(2, 10).Interior.ColorIndex '3
Range("A1:G21").Select '4
Selection.Copy '5
Sheets("Feuil2").Select '6
Range("A1").Select '7
ActiveSheet.Paste '8
Range("A1").Select '9
Set Plage1 = Range("B5:G10") '10
Set Plage2 = Range("B16:G21") '11
Set Plages = Union(Plage1, Plage2) '12
For Each Cll In Plages '13
If Cll.Interior.ColorIndex <> ColorIndex Then plg = plg & Cll.Address() & "," '14
Next Cll '15
If Len(plg) > 0 Then Range(Left(plg, Len(plg) - 1)).Select '16
Selection.ClearContents '17
Selection.Interior.ColorIndex = xlNone '18
End Sub
j'ai coloré les cellules des plages indiquées dans le code ci-dessus par différentes couleurs et je ne veux garder dans la deuxième feuille que la couleur de la cellule (2,10) (ligne 3 du code).
Le code s'exécute sans problème si je remplace le signe <> par = dans la ligne 14 du code par contre en présence du signe <> il indique le message d'erreur suivant : La méthode Range de l'objet global a échoué
Est ce qu'il y a quelqu'un qui peut m'aider et merci d'avance.