Requete sur des couleurs.

[pat12]

Bonjour,
J'ai besoin d'une aide pour effectuer des requêtes sur des couleurs.
Je m’explique j'ai un classeur avec 2 feuilles une menu et l'autre inventaire.
Je voudrai sur la feuille menu en cliquant sur un bouton rouge faire une copie de toutes les lignes de la feuille inventaire qui comporte la couleur rouge et les écrire sur la feuille menu.
Idem pour la couleur verte, bleu, jaune
J'ai joint un exemple.
Merci

 

[Modeste]

Re : Requete sur des couleurs.

Bonsoir pat12,

Pour autant que j'aie bien compris 🙄 le cas des lignes rouges est traité dans ton fichier ... reste à adapter pour les autres couleurs.

Modeste

 

[pat12]

Re : Requete sur des couleurs.

Oui super il faut faire de meme pour toute les couleurs.
Et'il possible de copier le texte mais pas la couleur des lignes dans la feuille menu car quand on efface on néfface pas la couleur.
Et encore merci de ton aide.

 

[skoobi]

Re : Requete sur des couleurs.

Bonjour Modeste, pat12,

ci-joint une proposition tenant compte de ton dernier message.

 

[pat12]

Re : Requete sur des couleurs.

Super skoobi et encore un grand merci,
J'aurai un petit "truc" encore.
Sur la feuille inventaire j'ai placé 4 petit bouton de couleurs, je souhaiterai si possible quand cliquant dessus on colorise la cellule sélectionner de la couleur choisi, pour faciliter la chose et pour toujours utiliser les même couleurs.

PS: J'ai volontairement supprimer la feuille menu trop volumineux pour joindre au message
Merci.

 

[skoobi]

Re : Requete sur des couleurs.

Re,

pour le bouton rouge:

Private Sub CommandButton5_Click()
ActiveCell.Interior.Color = CommandButton5.BackColor
End Sub

Je te laisse faire pour les autres boutons de couleur.

 

[pat12]

Re : Requete sur des couleurs.

Merci je me débrouille bonne soirée.
Et encore félicitation pour votre aide et votre dévouement.
Pat12.

 

[pat12]

Re : Requete sur des couleurs.

Bonjour skoobi, en utilisant le programme je me suis aperçu qu'il me faut une autre fonction si possible.

Sur la feuille (menu) j'ai cliqué sur le bouton rouge il ma bien afficher les lignes colorié en rouge dan la feuille inventaire.

Mais je suis toujours sur la feuille (menu) et j'ai rajouté un bouton pour pouvoir supprimer (après confirmation) les lignes définitivement dans la feuille inventaire.

PS: Voici mon adresse si tu ne peux pas le joindre par le site (limité).
bouzat-patrick@laposte.net

Et encore un grand merci..

 

[skoobi]

Re : Requete sur des couleurs.

Bonjour pat12,

voici le code:

Private Sub CommandButton5_Click()
Dim Lig As Long, Grille As Variant, Trouve As Range, Plage As Range
For Lig = 1 To Selection.Rows.Count
  Grille = Selection(Lig, 5).Value
  With Sheets("inventaire")
    Set Trouve = .Range("E8:E" & .[E65536].End(xlUp).Row).Find(Grille, LookIn:=xlValues, lookat:=xlWhole)
    If Not Trouve Is Nothing Then
      If Plage Is Nothing Then
        Set Plage = .Rows(Trouve.Row)
      Else: Set Plage = Union(Plage, .Rows(Trouve.Row))
      End If
    End If
  End With
Next
Plage.Delete
End Sub

un bouton pour pouvoir supprimer (après confirmation)

Ceci devrait être dans tes faisabilités je pense...

 

[pat12]

Re : Requete sur des couleurs.

Salut Skoobi.
J'ai une erreur avec le code.
J'ai placé un bouton sur la page menu et j'ai coller le code dans le bouton .
Quand je clique dessu j'ai une erreur sur le code (Plage.Delete)
Merci

 

[skoobi]

Re : Requete sur des couleurs.

Re bonjour,

il y avait sûrement rien à supprimer?
Dans ce cas il faut vérifier que Plage ne soit pas vide avant de supprimer:

If Not Plage Is Nothing Then Plage.Delete