Macro concernant un classeur

Bonjour,

je me permets de venir vers vous car je ne suis pas très expérimentée en Macro Excel et je n'arrive pas à mettre au point ce dont j'ai en tête.

Je dispose d'un classeur avec une feuille "a" avec un tableau à plusieurs lignes et plusieurs colonnes. L'idée est que pour chaque cellule je trouve sa couleur et en fonction de cela je supprime, ou non, une ou plusieurs lignes dans une feuille "b".

La macro que j'ai commencé à faire :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub Macro_contrôle_de_substance() ' ' Macro_contrôle_de_substance ' Worksheets("b").Activate If Selection.Interior.Color <> RGB(255, 80, 80) Then Rows("36:36").Select Selection.EntireRow.Delete Rows("16:16").Select Selection.EntireRow.Delete Rows("31:31").Select Selection.EntireRow.Delete End If End Sub

---

La cellule dont la couleur m’intéresse se trouve dans la feuille "a" et les lignes à supprimer dans la feuille "b".

Je ne suis pas sûre de bien le retranscrire dans ma macro.

Pourriez-vous me faire part de votre avis et de vos conseils.

Je vous remercie d'avance de vos réponses.

Bonjour à toi.

Avant tout, j'aimerais te donner quelques petits conseils :
Oublie à partir de maintenant la fonction .Select, à moins que tu souhaites que la cellule sélectionnée à la fin de ta macro soit celle désignée.
En cours de macro, sélectionner est inutile et prend beaucoup de temps à l'exécution du code.

Donc au lieu d'écrire XXX.Select puis Selection.YYY ou ActiveSheet.ZZZ ou autre, tu écris simplement :

Code:

---

1 2 3 4

'Range("A1").Select 'Selection.Interior.Color = RGB(255,0,0) 'DEVIENT : Range("A1").Interior.Color = RGB(255,0,0) 'tout sur une ligne

---

De même, lorsque tu travailles avec plusieurs feuilles, pas besoin de sélectionner ou d'activer la feuille pour travailler dedans :

Code:

---

1 2 3 4 5

'Sheets("Feuil2").Select 'ActiveSheet.Range("B2").Select 'Selection.Value = 1 'DEVIENT SIMPLEMENT : Sheets("Feuil2").Range("B2").Value = 1

---

Ton code sera bien plus clair à lire et plus efficace :)

Dernier petit conseil qui peut t'aider, mais dans un premier temps tu n'es pas obligée de t'embêter avec ça : Les variables objets :

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim Feuille As Worksheet 'Tu annonces à l'ordinateur qu'une variable appelée "Feuille" sera utilisée et sera une feuille Excel Dim Plage As Range 'de même, une variable appelée "Plage" sera une range donc une ou plusieurs cellules Excel Set Feuille = Sheets("Feuil1") 'tu dis que Feuille correspond à Sheets("Feuil1") Set Plage = Feuille.Range("B1:C3") 'tu dis que Plage correspond à la range B1:C3 de ta feuille1 (désormais appelable par le nom "Feuille")   'A partir de maintenant, pour travailler avec la Feuille ou avec la Plage en question, tu n'as plus qu'à écrire, par exemple : Plage.Borders.Color = vbBlue 'ou RGB(0,0,255) Feuille.Tab.Color = vbGreen 'Ou RGB(0,255,0)   'Pour changer l'objet rattaché aux variable Plage et Feuille, tu réécris simplement "Set Feuille = ..." ou "Set Plage = ..."

---

En espérant que ça t'apporte un peu d'aide !

Ainsi, pour reprendre juste ton code, sans l'analyser :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub Macro_contrôle_de_substance() ' ' Macro_contrôle_de_substance ' Dim Feuille As Worksheet Set Feuille = Worksheets("b") 'Oops, j' n'avais pas remarqué que tu parles de Selection...mais on ne sait pas ce qui est sélectionné !! JE REMPLACE PAR A1 If Feuille.Range("A1").Interior.Color <> RGB(255, 80, 80) Then Feuille.Rows(36).Delete Feuille.Rows(16).Delete Feuille.Rows(31).Delete End If 'On pourrait utiliser "With Feuille" mais on verra plus tard :)   End Sub

---

PS : Utilise les balises [ CODE] [ /CODE] autour de ton code pour qu'il soit mis en forme automatiquement, ou appuie sur le bouton "#" de l'interface lors que tu écris ton message.