Gestion et suivi activité

Pour celui-ci il s'agit d'une gestion de schémas réalisé sous AUTOCAD + gestion fiche du cahier de maintenance

Feuille 1 et 2 (partie enregistrement)

Feuille 3 et 4 (partie plans)

Ma demande : cf fichier joint
feuille 1 'Formulaire enregistrement'
feuille 2 ' Suivi activité' tableau par rapport à l'enregistrement.
feuille 3 'Archivage_PLANS' au démarrage du fichier initialiser les cellules C7 et D7
et de mettre les 2 cellules avec un menu déroulant pour la sélection.
feuille 4 'voir code actuel'

Merci à vous.
Michest

Bonsoir,

N'ayant aucun retour sur ma demande je me doute que celle ci soit réalisable.

Ci joint un nouveau fichier par rapport à ma demande avec la partie A et B( faisabilité ??)

Au moins si j'ai un début de quelque chose pour la A je verrais par la suite afin d'avoir un suivi de la date d'enregistrement à la date de réalisation.

Merci à vous,

Bonjour,

c'est quoi la partie A et la partie B ?

au passage, tu utilises les listobjects, c'est bien, mais tu peux alors continuer jusqu'au bout ...

    With ListObj
        .databodyrange.Cells(1, 2) = Ws.Range("C13")

Bonjour,

Partie A ('enregistremen't onglet orange feuille 1-2) et Partie B ('cloture' onglet bleu 3-4).

Re,

Complément du dernier post

la partie B ce n'est pas moi qui l'est conçu c'est issue de l'aide sur forum

Pour validation de la saisie

Sub Valid_Saisie()

' Valid_Saisie Macro
'
Dim ListObj As ListObject, Sh As Worksheet, Ws As Worksheet, j As Long

  Application.ScreenUpdating = False

  Set Sh = Sheets("Archivage_Plans")
  Set Ws = Sheets("Modification_PLANS")
  Set ListObj = Sh.ListObjects("Saisie")

  If MsgBox("Confirmez-vous l'enregistrement ?", vbYesNo, "Demande de confirmation") = vbYes Then

    With ListObj
        .ListRows.Add
        i = .ListRows.Count
        With .DataBodyRange
            .Cells(i, 1) = Ws.Range("C13")
            .Cells(i, 2) = Format(Ws.Range("E13"), "0000")
            .Cells(i, 3) = Ws.Range("G13")
            .Cells(i, 4) = Ws.Range("I13")
            .Cells(i, 5) = Ws.Range("K13")
            .Cells(i, 6) = Ws.Range("C17")
            .Cells(i, 7) = Ws.Range("E17")
            .Cells(i, 8) = Ws.Range("G17")
            .Cells(i, 8).Interior.Color = RGB(0, 112, 192)
            .Cells(i, 8).Font.ColorIndex = 2
            .Cells(1, 9) = Ws.Range("I17")
            .Cells(1, 10) = Ws.Range("K17")
        End With
    End With

    MsgBox "Enregistrement effectué"
    With Sheets("Modification_PLANS")
      .Range("B17,C13,C17,E13,I13,K13,E17,G17,I17,K17").ClearContents  '..............on laisse la formule en G13
    End With
  End If
  Application.ScreenUpdating = True
End Sub

pour le reste, je ne comprends pas ton fichier, je ne comprends pas ce que tu veux faire

Choisis un vocabulaire sans ambiguïté

• tu parles de Feuille 1, 2, 3 et 4
• de partie enregistrement et partie plans
• de partie A et partie B
• les feuilles ont d'autres noms
• et puis mets des verbes sur les actions à réaliser ... les réponses pleuveront

Re,

Désolé pour mes explications confuses.

Laissons tombez la partie A et B. usine à gaz à expliquer

Dans un premier temps j'aimerais pouvoir faire ceci :

cf feuille1 et feuille 2 du classeur 1.

Merci à toi

Au plus simple

Sub reporter()
With Sheets(2)
    derL = .Cells(Rows.Count, 1).End(xlUp).Row + 1
    For i = 1 To Cells(Rows.Count, "D").End(xlUp).Row
        If Cells(i, "B") <> "" Then
            .Cells(derL, Cells(i, "B")) = Cells(i, "D")
        End If
    Next
End With
End Sub

voir infos colonne B

plus convivial

Sub reporter()
With Sheets(2)
    derL = .Cells(Rows.Count, 1).End(xlUp).Row + 1
    For i = 1 To Cells(Rows.Count, "D").End(xlUp).Row
        If Cells(i, "B") <> "" Then
            .Range(Cells(i, "B") & derL) = Cells(i, "D")
        End If
    Next
End With
End Sub

Nickel

Simplement en D6 et D12 si possible d'avoir un menu déroulant.(choix noté en rouge)

Puis après validation incrémentation de +1 en D4 et effacer les champs pour nouvelle saisie .

Merci à toi,

je te laisse faire ceci ...

Esteban a écrit :

Simplement en D6 et D12 si possible d'avoir un menu déroulant.(choix noté en rouge)

Sub reporter()
With Sheets(2)
    derL = .Cells(Rows.Count, 1).End(xlUp).Row + 1
    For i = 1 To Cells(Rows.Count, "D").End(xlUp).Row
        If Cells(i, "B") <> "" Then
            .Range(Cells(i, "B") & derL) = Cells(i, "D")
            Cells(i, "D").ClearContents
        End If
    Next
    Cells(4, "D") = .Range("A" & derL) + 1
End With
End Sub

Bonjour,

C'est parfait juste, sauf que je n'avais pas pensez que la cellule D8 feuille1 ne doit pas être effacée après validation (il s'agit de la fonction AUJOURDHUI).

modifie comme suit

if i<>8 then Cells(i, "D").ClearContents

Merci à toi pour ton aide,

Après mise en page voila ce que cela donne.

C'est parfait! voila ce que j'appelais la partie A ( Enregistrement de la demande de travail à effectuée )

la partie B concerne la feuille BDD_plans la colonne G et I afin d'avoir un lien entre l'enregistrement et la finalisation du travail demandé.

Je pense que c'est compliqué à mettre entre place donc je le ferais en saisie manuel.

@+

Re,

Complément fichier joint au post précèdent

Une dernière question,

Dans la feuille 1-Formulaire_Enr

- exemple je choisis en cellule D12 dans le menu déroulant le site AMPERE avoir le numéro de GTC correspondant au site soit 0004 en cellule D14 (cf. feuille paramètre)

Merci

Décidément j'ai encore oublié le fichier joint