Microsoft 365 Récupération d'un fichier obselète

[Michest94]

Bonjour,

Je travail dans un service de maintenance et j'ai récupéré un fichier se présentant comme un cahier de maintenance qui renvoie diverses infos technique de sites d'interventions. Celui-ci est très intéressant pour le service et peut se partager facilement mais ...

La personne qui travaillait sur ce fichier n'est plus la , elle a laissé le code admin pour accès fichier et vba (ADMIN1967) est il possible à partir de ce fichier d'apporter des améliorations éventuellement pour la feuille base créer un formulaire de saisie avec les intitulés des titres de colonnes actuels pour les enregistrements des différents sites...

N'ayant les connaissances pour remettre à niveau je le propose sur sur le forum en demandant votre aide.

Page de téléchargement du fichier partagé

mon-partage.fr

Merci à vous pour votre aide

 

[Michest94]

C 'est pas grave c'est juste dommage

 

[Etoto]

C 'est pas grave c'est juste dommage

Re,

J'avoue et je suis juste désolé de ne pas pouvoir faire plus.

 

[Michest94]

j ai reposte sous une autre forme en titre fichier fantôme

 

[Etoto]

j ai reposte sous une autre forme en titre fichier fantôme

Re,

J'ai vu et je suis ce fil pour connaître la solution.

 

[Michest94]

ok si y en une !

 

[Etoto]

ok si y en une !

Re,

Tu désespères assez rapidement je trouve, tu as déjà trois membres qui t'aident sur l'autre fil et à moins que tu les traites mal, ils vont t'aider jusqu'au bou (enfin la plupart ).

 

[Michest94]

Encore moi, bon j'ai travaillé un peu sur le fichier "nouveau challenge" en fait mon fichier est nickel par contre est il possible que le bouton macro 'tri base' de la feuille base rafraichisse en même temps la feuille capteur vu que la liste des sites est identique .
je pense que le parallèle entre la feuille 'base' est la feuille 'capteur' je doit le faire à la mano.
exemple site AMPERE

AMPERE

0004_S_AMP_P1-AMPERE PASSY AMP/PY

N°9

0-5

33,85

0004_S_AMP_P2-AMPERE RESEAU HAUT AMP/RH

N°11

0-10

33,85

donc 2 capteurs de pressions.

et dans ma feuille 'bilans' je récupère l'info

Challenge pas simple et peut pas réalisable!
A tout hasard ci joint le fichier le plus à jour

Page de téléchargement du fichier partagé

mon-partage.fr

Merci

 

[ChTi160]

Bonsoir Michest94
pas sur d'avoir compris :
ce que j'ai fait pour trier les deux Feuilles "Base" et "Capteurs"
d'après

que le bouton macro 'tri base' de la feuille base rafraichisse en même temps la feuille capteur vu que la liste des sites est identique .

Sub TRI_Base()
'
Application.EnableEvents = False
' Tri base de données
With Worksheets("Base")
    Fin = .Range("DataBase").Rows.Count + 3
    .Sort.SortFields.Clear
    .Sort.SortFields.Add Key:=.Range("A5:A" & Fin), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With .Sort
        .SetRange ActiveSheet.Range("DataBase")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End With
With Worksheets("Capteurs")
    Fin = .Range("DataCapteurs").Rows.Count + 3
    .Sort.SortFields.Clear
    .Sort.SortFields.Add Key:=.Range("A5:A" & Fin), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With .Sort
        .SetRange ActiveSheet.Range("DataBase")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End With
Application.EnableEvents = True
End Sub

jean marie

 

[Michest94]

Bonsoir Michest94
pas sur d'avoir compris :
ce que j'ai fait pour trier les deux Feuilles "Base" et "Capteurs"
d'après

Sub TRI_Base()
'
Application.EnableEvents = False
' Tri base de données
With Worksheets("Base")
    Fin = .Range("DataBase").Rows.Count + 3
    .Sort.SortFields.Clear
    .Sort.SortFields.Add Key:=.Range("A5:A" & Fin), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With .Sort
        .SetRange ActiveSheet.Range("DataBase")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End With
With Worksheets("Capteurs")
    Fin = .Range("DataCapteurs").Rows.Count + 3
    .Sort.SortFields.Clear
    .Sort.SortFields.Add Key:=.Range("A5:A" & Fin), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With .Sort
        .SetRange ActiveSheet.Range("DataBase")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End With
Application.EnableEvents = True
End Sub

jean marie

oui c ca

 

[Michest94]

oui c ca

une macro pour rafraichir les 2 bases

 

[ChTi160]

Re
Donc c'est bon ?
Jean marie

 

[Michest94]

Le parallèle entre la feuille 'base' est la feuille 'capteur' est il réalisable en vba ou doit-il se faire à la main.
exemple: pour le site AMPERE premier de la liste
dans la feuille "capteur' j'ai ces infos en colonne B et F

AMPERE

0004_S_AMP_P1-AMPERE PASSY AMP/PY

N°9

0-5

33,85

0004_S_AMP_P2-AMPERE RESEAU HAUT AMP/RH

N°11

0-10

33,85

donc 2 capteurs de pressions. pour la feuille ' bilan ' en col AI lig5

et dans ma feuille 'bilans' je récupère l'info (colonne O ligne 52)

Challenge pas simple et peut être pas réalisable!
A tout hasard ci joint le fichier le plus à jour

 

[Michest94]

Re
Donc c'est bon ?
Jean marie

oui pour la macro des 2 bases Merci beaucoup JM

 

[ChTi160]

Re pour ta nouvelle demande ,Je n'ai rien compris malgré tes explications Lol
Jean marie

 

[Michest94]

bon c pas grave j 'essayerai de mieux formuler par contre sur le code vba que tu m' as donné pour la feuille capteur le départ tu l'as mis en ligne 5 et c est en ligne 3 j ai rectifié