Macro sous excel

Question

Bonjour, 


Je souhaite créer une macro qui me permette d'afficher UNIQUEMENT les lignes contenant un teste (ce texte est tiré d'element ce trouvant dans une autre feuille et cela grace à une formule), ce n'est pas un texte type mais une liste de dysfonctionnement tous differents les uns des autres.

Si quelqu'un peut m'aider !?

Merci


Configuration: Windows 7 / Internet Explorer 8.0

mikanadien2 · Answer

Salut

Met un lien vers le fichier, et detailles plus exactement ce que tu veux...si je peux, je te fais ca demain. Au pire, dimanche.


Cdt

michel_m · Answer

OK,

Ce que je verrai bien est de déclencher la macro à chaque activation de la feuille synthèse, ce qui permettrait de prendre en compte d'éventuelles modifs
on parcours les 12 objectifs en mémorisant les "non" et on retranscrit l'ensemble des "non" dans ton tableau synthèse

Tu dis, si tu es d'accord j'attaquerais à la fraiche demain

michel_m · Answer

bonjour

afin que les colonnes code réglement, oui/non soient toujours les m^mes pour modéliser la macro  une colonne en B a été insérée pour les objectifs 1 à 11

la macro est déclenchée par ton bouton existant
https://www.cjoint.com/?3HfkISmRwkM

la macro:
Option Base 1

Sub lister_dysfonctionnements()
Dim Cptr As Byte, Obj As String, Nbre_non As Byte
Dim Lig As Byte, Cptr_non As Byte, T_non()
Dim Lig_dep As Byte, Lig_non As Byte, Col As Byte
Dim Lien_hyper As Hyperlink

'préparation de de la feuille synthèse
Application.ScreenUpdating = False
With Sheets("Synthèse")
     .Range("B8:C500").Clear
     .Range("C8:C500").WrapText = True
     Lig_dep = Sheets("Synthèse").Range("B500").End(xlUp).Row + 1
     Lig_non = Lig_dep
End With

For Cptr = 1 To 12
     Obj = "Objectif " & Cptr
     With Sheets(Obj)
               'nombre de "non" dans la feuille
               Nbre_non = Application.CountIf(.Columns("G"), "non")
               If Nbre_non > 0 Then
                    Lig = 4
                    'mémorisation des non-conformités
                    ReDim T_non(Nbre_non, 3)
                    For Cptr_non = 1 To Nbre_non
                         'ligne d'une non-conformité
                         Lig = .Columns("G").Find("non", .Cells(Lig, "G"), xlValues, xlWhole).Row
                         T_non(Cptr_non, 1) = .Cells(Lig, "D")
                         T_non(Cptr_non, 2) = .Cells(Lig, "E")
                         T_non(Cptr_non, 3) = "'" & Obj & "'!D" & Lig
                    Next
                     With Sheets("Synthèse")
                         'restitution du code et de la réglementation
                         .Cells(Lig_non, "B").Resize(Nbre_non, 2) = T_non
                         'création des liens hypetextes
                         For Cptr_non = 1 To Nbre_non
                              Set Lien_hyper = ActiveSheet.Hyperlinks.Add(.Cells(Lig_non, "B"), "")
                              With Lien_hyper
                                   .SubAddress = T_non(Cptr_non, 3)
                                   .Follow NewWindow:=True
                              End With
                              Lig_non = Lig_non + 1
                         Next
                     End With
               End If
     End With
Next
'pésentation finale
Sheets("synthèse").Activate
Sheets("Synthèse").Range(Cells(Lig_dep, "B"), Cells(Lig_non, "C")).Borders.Weight = xlThin
MsgBox ("synthèse des non-conformités effectuée")
End Sub

Le Pingou · Answer

Bonjour wissouma31,
Excusez de l'intrusion, vous devriez contrôler le format de vos tableaux qui ne sont pas identiques (exemple la colonne des OUI/NON  devrait-être en [G] ...) et ceci comme l'avait précisé michel_m [il faut que toutes les colonnes : code soit en colonne D, règlement en E et oui/non en G pour être comme sur objectif12] ... ce qui n'est pas le cas dans votre classeur.

Macro sous excel

4 réponses

Discussions similaires

Newsletters