Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Selection de cellules à fond vert

  • Initiateur de la discussion Initiateur de la discussion eurysthee87
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

E

eurysthee87

Guest
Bonjour,

J'ai un tableau simple, sur 6000 lignes, avec certaines cellules à fond vert sur la colonne M.
Je souhaiterais écrre une macro pour mettre toutes les lignes dont la cellule est verte dans la colonne M dans un autre onglet, à la suite.

Pouvez vous m'aider? J'ai commencé une macro avec mes petites bases mais c'est pitoyable et je pense que ce genre d'exercice est vraiment un exercice de base.

Merci beaucoup pour votre aide!
 
Re : Selection de cellules à fond vert

parce que ce sont les gens qui ont sélectionné certaines cellules en vert, ça veut dire que le prélèvement est douteux
 
Re : Selection de cellules à fond vert

Ca n'a pas l'air d'insprer grand monde, je me suis peut etre mal expliquée?
Je voudrais juste que la macro prenne les lignes entières dans lesquelles la cellule de la colonne M est colorée en vert et me les mette à la suite dans une autre feuille
 
Re : Selection de cellules à fond vert

Bonsoir le fil, bonsoir le forum,

Je pense pas que ça soit bien compliqué mais ton fichier n'est pas passé. Si il est trop volumineux, crée un exemple basé sur ton original. Même structure (nom des onglet, plages nommées, code VBA, etc...) et une poignée de données non confidentielles. Tu auras une réponse rapidement.
 
Re : Selection de cellules à fond vert

Bonjour le fil, bonjour le forum,

En pièce jointe ton fichier modifié avec la macro ci-dessous :
Code:
Sub Macro1()
Dim cel As Range 'déclare la variable cel (CELlule)
Dim dest As Range 'déclare la variable dest (DESTination)
 
With Sheets("Feuil1") 'prend en compte l'onglet "Feuil1"
    For Each cel In .Range("E2:E" & .Cells(Application.Rows.Count, 5).End(xlUp).Row) 'boucle sur toutes les cellules éditées cel de la colonne E en partant de la seconde
        If cel.Interior.ColorIndex = 4 Then 'condition : si la couleur du motif de la cellule est vert brillant
            Set dest = Sheets("Feuil2").Cells(Application.Rows.Count, 1).End(xlUp)(2) 'définit la cellule de destination
            cel.EntireRow.Copy dest 'copie la ligne entière de la cellule cel et la colle dans la cellule de destination
        End If 'fin de la condition
    Next cel 'prochaine cellule de la boucle
End With 'fin de la prise en compte de l'onglet "Feuil1"
Sheets("feuil2").Select 'sélectionne l'onglet "Feuil2"
End Sub
 

Pièces jointes

Re : Selection de cellules à fond vert

Merci beaucoup
Ca amrche
Par contre vous allez me prendre pour une chiante mais comment ferait on sans boucle, si on voulait qu'il regarde ligne après ligne et que dès qu'il voit une cellule verte dans la colonne E il implémente le tableau de l'autre feuille?
Ca m'intéresse car j'étais partie sur cette méthode
merci
 
Re : Selection de cellules à fond vert

Bonjour le fil, bonjour le forum,


Et quand tu regardes ligne après ligne c'est pas une boucle ??? Je te signale que le code proposé fait exactement ce que tu demandes...
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
5
Affichages
701
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…