Requete sur des couleurs.

Modeste

XLDnaute Barbatruc

• 21 Septembre 2009

• #2

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

 

Pièces jointes

• Inventaire bouches (V2).zip

  50.7 KB · Affichages: 51

Vote positif 0 Vote négatif

P

pat12

XLDnaute Occasionnel

• 21 Septembre 2009

• #3

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.

 

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 22 Septembre 2009

• #4

Re : Requete sur des couleurs.

Bonjour Modeste, pat12,

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

 

Pièces jointes

• Inventaire bouches v3.zip

  52.6 KB · Affichages: 43
• Inventaire bouches v3.zip

  52.6 KB · Affichages: 49
• Inventaire bouches v3.zip

  52.6 KB · Affichages: 45

Vote positif 0 Vote négatif

P

pat12

XLDnaute Occasionnel

• 22 Septembre 2009

• #5

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.

 

Pièces jointes

• Inventaire bouches v3.zip

  34.3 KB · Affichages: 40
• Inventaire bouches v3.zip

  34.3 KB · Affichages: 44
• Inventaire bouches v3.zip

  34.3 KB · Affichages: 42

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 22 Septembre 2009

• #6

Re : Requete sur des couleurs.

Re,

pour le bouton rouge:

Code:

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

Je te laisse faire pour les autres boutons de couleur.

 

Vote positif 0 Vote négatif

P

pat12

XLDnaute Occasionnel

• 22 Septembre 2009

• #7

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.

 

Vote positif 0 Vote négatif

P

pat12

XLDnaute Occasionnel

• 24 Septembre 2009

• #8

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..

 

Pièces jointes

• Inventaire bouches v3.zip

  48.8 KB · Affichages: 41
• Inventaire bouches v3.zip

  48.8 KB · Affichages: 41
• Inventaire bouches v3.zip

  48.8 KB · Affichages: 37

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 24 Septembre 2009

• #9

Re : Requete sur des couleurs.

Bonjour pat12,

voici le code:

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)

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

P

pat12

XLDnaute Occasionnel

• 24 Septembre 2009

• #10

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

 

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 25 Septembre 2009

• #11

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:

Code:

If Not Plage Is Nothing Then Plage.Delete

 

Vote positif 0 Vote négatif