Discussion :

[moranel]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Quentin77170]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.