help casse tête ;)

Y compris Power BI, Power Query et toute autre question en lien avec Excel
k
kumade44
Nouveau venu
Nouveau venu
Messages : 9
Inscrit le : 7 février 2019
Version d'Excel : 2010

Message par kumade44 » 7 février 2019, 06:30

Bonjour,
Je travail sur un fichier Excel, un listing d'extincteurs (plus de 1000) de mon lieu de travail (je suis dans la sécu incendie).
le listing dispose de plusieurs colonnes dont une pour leur noms ,une pour leur numéros d'inventaire, une pour la localisation etc...
il y a deux feuilles : une pour le listing et une pour l index.

l'index est un peu comme une barre de recherche ou je met le nom de l'extincteur dans une cellule et toutes les informations de l'extincteur choisis du listing sont alors reporter dans un tableau pour accéder au informations facilement . formule =index .... equiv et =recherchv.

Mon soucis est le suivant : je souhaite changer la couleur de la ligne du listing qui correspond à ma recherche sur l index en appuyant sur un bouton ( sois vert extincteurs contrôler sois rouge défectueux). le but étant lors des contrôles de pouvoir être efficace.

Merci d' avance pour les éventuelle motivés;)

PS: si il y a des fautes je suis actuellement en fin de nuit :p
Avatar du membre
CB60
Membre impliqué
Membre impliqué
Messages : 2'510
Appréciations reçues : 37
Inscrit le : 14 mai 2007
Version d'Excel : 2016

Message par CB60 » 7 février 2019, 06:34

Bonjour
Pourrais tu mettre un fichier exemple,
Avatar du membre
eriiic
Passionné d'Excel
Passionné d'Excel
Messages : 9'296
Appréciations reçues : 373
Inscrit le : 7 février 2010
Version d'Excel : 2010fr

Message par eriiic » 7 février 2019, 06:42

Bonjour,

à lire ta demande j'ai l'impression qu'un simple filtre auto sur la 1ère feuille est suffisant.
eric
En essayant continuellement, on finit par réussir.
Donc plus ça rate, plus on a de chances que ça marche.
(les Shadoks)

En plus du merci (si si, ça se fait !!!), penser à mettre en résolu. Merci
T
Theze
Passionné d'Excel
Passionné d'Excel
Messages : 4'020
Appréciations reçues : 305
Inscrit le : 26 janvier 2011
Version d'Excel : 2007/2019

Message par Theze » 7 février 2019, 06:44

Bonjour,

Sans fichier, ce n'est pas facile mais ça serait éventuellement possible avec une MFC sur une plage nommée !
Attendons le fichier !
Il vaut mieux un qui sait que cent qui cherchent :wink:

Ce forum étant un lieu de partage, je n'accepte pas les messages privés !
k
kumade44
Nouveau venu
Nouveau venu
Messages : 9
Inscrit le : 7 février 2019
Version d'Excel : 2010

Message par kumade44 » 7 février 2019, 17:56

Bonjour,

Merci a tous pour vos réponse ! j'ai joint le fichier et supprimé les donnée afin de respecter la confidentialité.

Je précise que je dispose d'un petit scanner portatif relier au pc portable pour scanner le numéro d'inventaire d'un extincteur ( il marque dans la cellule choisi le numéro scanner et donc je voudrai que si l' extincteur controller est clean sur les information donnée par l' index je puisse appuyé sur un bouton pour le coloré dans la liste de façon a dire que il est fait et le mettre en rouge si non conforme ( de façon a faire le listing des extincteur qui doivent être revu par la suite ). actuellement on utilise des feuilles en papiers pour cocher ceux que ont a controller :mrgreen:

donc j'ai noté grossièrement quelques extincteur de 1 à 8 pareil pour leurs numéro d'inventaire de 1 a 8 .
Ne vous occuper pas des bouton cliquer je lai est désactivé.

J' espère avoir été clair dans mes explication .

Merci d'avance :wink:
PS : je n'ai aucune formation dans excel donc si vous avez réussi j'aimerai avoir des explication afin de pouvoir comprendre les formule ou ligne de code ( j'ai réussi a chopper des bases un peu partout sur le net )
extincteur par zs.xlsm
(593.07 Kio) Téléchargé 7 fois
k
kumade44
Nouveau venu
Nouveau venu
Messages : 9
Inscrit le : 7 février 2019
Version d'Excel : 2010

Message par kumade44 » 7 février 2019, 17:59

Re PS: Enfaite en quelque sorte je veut une macro qui fasse ctrl + f avec le numéro d' inventaire de la cellue B7 de l index et que il aille dans le listing a la ligne correspondante de ce meme numéro d'inventaire pour le coloré.

RE merci d'avance
T
Theze
Passionné d'Excel
Passionné d'Excel
Messages : 4'020
Appréciations reçues : 305
Inscrit le : 26 janvier 2011
Version d'Excel : 2007/2019

Message par Theze » 7 février 2019, 19:05

...et donc je voudrai que si l' extincteur controller est clean sur les information donnée par l' index je puisse appuyé sur un bouton pour le coloré dans la liste de façon a dire que il est fait et le mettre en rouge si non conforme...
Quel est l'élément qui dit que l'extincteur est "clean" ou non ?
Il vaut mieux un qui sait que cent qui cherchent :wink:

Ce forum étant un lieu de partage, je n'accepte pas les messages privés !
k
kumade44
Nouveau venu
Nouveau venu
Messages : 9
Inscrit le : 7 février 2019
Version d'Excel : 2010

Message par kumade44 » 7 février 2019, 19:23

Et bien si les informations du listing coresponde bien a l extincteur sur place c est bon on le met en verr car nous nous déplaçons a chaque extincteur pour le contrôler plusieurs fois par ans .
k
kumade44
Nouveau venu
Nouveau venu
Messages : 9
Inscrit le : 7 février 2019
Version d'Excel : 2010

Message par kumade44 » 7 février 2019, 19:28

Enfaite l index permet de retrouver facilement les informations lorsque nous passons contrôler chaque extincteurs.
T
Theze
Passionné d'Excel
Passionné d'Excel
Messages : 4'020
Appréciations reçues : 305
Inscrit le : 26 janvier 2011
Version d'Excel : 2007/2019

Message par Theze » 7 février 2019, 20:40

Et bien si les informations du listing correspondent bien a l'extincteur sur place c'est bon on le met en vert car nous nous déplaçons à chaque extincteur pour le contrôler plusieurs fois par ans.
Donc, j'en conclu que la mise en couleur se fait manuellement, en rouge si non conforme et en vert si conforme au pied de l'extincteur. Voici le code lié à quatre boutons, 2 pour "Conforme" et "Non Conforme" concernant la partie "Extincteur" et deux pour la partie "Inventaire". Enfin, c'est ce que j'ai compris de la demande :
Sub Conformite()
    
    Dim Plage As Range
    Dim Cel As Range
    Dim Btn As Shape
    Dim Couleur As Integer
    
    Set Btn = ActiveSheet.Shapes(Application.Caller)
    
    With Worksheets("32colonnes")
    
        Select Case Btn.Name
        
            Case "ExtConforme", "ExtNonConforme"
                Set Plage = .Range(.Cells(9, 12), .Cells(Rows.Count, 12).End(xlUp))
                Set Cel = Plage.Find(Range("B3").Value, , xlValues, xlWhole)
                
                If Btn.Name = "ExtConforme" Then Couleur = 43 Else Couleur = 3
                
                If Not Cel Is Nothing Then: .Range(.Cells(Cel.Row, 1), .Cells(Cel.Row, 34)).Interior.ColorIndex = Couleur
                
            Case "InventConforme", "InventNonConforme"
                Set Plage = .Range(.Cells(9, 10), .Cells(Rows.Count, 10).End(xlUp))
                Set Cel = Plage.Find(Range("B7").Value, , xlValues, xlWhole)
                
                If Btn.Name = "InventConforme" Then Couleur = 43 Else Couleur = 3
                
                If Not Cel Is Nothing Then: .Range(.Cells(Cel.Row, 1), .Cells(Cel.Row, 34)).Interior.ColorIndex = Couleur
            
        End Select
    
    End With
    
End Sub
Je te retourne ton fichier pour tests :
extincteur V2.xlsm
(575.05 Kio) Téléchargé 7 fois
Il vaut mieux un qui sait que cent qui cherchent :wink:

Ce forum étant un lieu de partage, je n'accepte pas les messages privés !
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message
  • casse tête
    par chtimili » 8 novembre 2016, 09:01 » dans Excel - VBA
    5 Réponses
    218 Vues
    Dernier message par chtimili
    8 novembre 2016, 10:41
  • Casse-tête
    par ctrl-alt-del » 28 juin 2014, 20:37 » dans Excel - VBA
    5 Réponses
    506 Vues
    Dernier message par tulipe_4
    7 juillet 2014, 21:08
  • Casse tête
    par cemoibob » 6 septembre 2019, 12:21 » dans Excel - VBA
    3 Réponses
    114 Vues
    Dernier message par cemoibob
    7 septembre 2019, 18:19
  • Casse Tête
    par squallor72 » 4 août 2015, 12:07 » dans Excel - VBA
    3 Réponses
    336 Vues
    Dernier message par squallor72
    13 août 2015, 14:17
  • Planning - casse tête
    par Babou193 » 19 octobre 2019, 12:13 » dans Excel - VBA
    2 Réponses
    120 Vues
    Dernier message par Babou193
    20 octobre 2019, 17:35
  • casse tête : taux d'impot
    par Sassi » 15 décembre 2018, 13:34 » dans Excel - VBA
    6 Réponses
    175 Vues
    Dernier message par Sassi
    15 décembre 2018, 17:00