Microsoft 365 Fichier automatisé VBA - Template Budget project

Tomasisco21 à dit:

Bonjour,
Je suis cost controller et afin de configurer des budgets pour des projets dans mon secteur d'activité (Travaux publics),
j'aimerais mettre en place un template VBA le plus automatisé possible et caractéristique à chaque projet.

Configuration du template VBA automatisé :
Il est à noter ici que chaque budget configuré doit être spécifique au projet.
C'est pourquoi le fichier doit contenir les éléments automatiques suivant :

ONGLET 1
- Une configuration automatique suivant le modèle du Budget en image ci-après :
Regarde la pièce jointe 1185574
- Choisir un numéro de projet sous format "ESTXXX" avec désignation manuelle par l'utilisateur

- La création automatique de chaque sous détails de prix (avec une option manuel pour le code et la désignation)
Regarde la pièce jointe 1185617

ONGLET 3
- Le sous détails créé doit ouvrir automatiquement un onglet avec le modèle en image ci-après :
Regarde la pièce jointe 1185619

ONGLET 2
- Le poste spécifique "FRAIS CHANTIER" qui apparait à l'onglet 1 (en bleu), doit ouvrir automatique l'onglet 2 suivant le modèle suivant :
Regarde la pièce jointe 1185622

Et en second temps :
J'aimerais savoir s'il est possible sur le même fichier Excel, automatiser la page du sous détails de prix créée comme suit :
- Appel automatique de la ressource souhaitée via le code (en jaune, base de données des ressources>onglet 8)
- Option manuelle ou saisie manuelle pour l'utilisateur de la partie "QUANTITES PREVUES"
- Option manuelle ou saisie manuelle pour l'utilisateur de la partie "Quantités de rendement"
- Option manuelle ou saisie manuelle pour l'utilisateur de la partie "Qté ou durée d'utilisation"

SVP J'espère être assez claire pour l'aide demandée (couleur ajoutée : fichier anonymisé joint.

Je vous remercie par avance,

Bonne journée à vous,

Thomas

Cliquez pour agrandir...

Tomasisco21 à dit:

Bjr,
SVP juste pour relancer : une personne pour m'aider à trouver une solution à mon sujet.

D'avance merci et bonne journée à vous.

Cliquez pour agrandir...

• Sur la feuille nommée « BUDGET ESTXXX »,

• J'aimerais également pour automatiser les calculs, que chaque nouvelle ligne insérée de "BUDGET ESTXXX" récupère à chaque fois la valeur cellule « K35 » de la feuille dupliquée correspondante.

Tomasisco21 à dit:

Bonjour BrunoM45 .

j'ai pu bidouiller un début de config pour mon Template Budget à travers différents tutos youtube et les exemples de sujets resolus ici dont j’ai pu largement m’en servir par ailleurs :

Mais j'ai toujours à ce jour quelques soucis, difficiles pour mon petit niveau de débutant VBA :

• Sur la feuille nommée « BUDGET ESTXXX »,

J’aimerais qu’à l’exécution de l’insertion de lignes (sous détails de prix), le numéro et désignation du prix de la nouvelle feuille copiée se positionne également sur les cellules 1 et 2 de cette ligne insérée.

• J'aimerais également pour automatiser les calculs, que chaque nouvelle ligne insérée de "BUDGET ESTXXX" récupère à chaque fois la valeur cellule « K35 » de la feuille dupliquée correspondante.

SVP j'ai vraiment besoin d'un peu d'aide et de support pour m’imprégner de la démarche. (fichier joint)

Cliquez pour agrandir...

Sub Créer_sous_détails1()
    Worksheets("BUDGET ESTXXX").Range("POSTE1").EntireRow.Insert , CopyOrigin:=xlFormatFromRightOrBelow
      
    Dim numsousdétailsprix As String
    Dim libellésousdétailsprix As String
    Application.ScreenUpdating = False
    On Error Resume Next
    ActiveWorkbook.Sheets("SD prix").Range("L33").ClearContents
    ActiveWorkbook.Sheets("SD prix").Visible = True
    ActiveWorkbook.Sheets("SD prix").Copy After:=Sheets(Sheets.Count)
    ActNm = numsousdétailsprix
    numsousdétailsprix = InputBox("numéro du sous-détails de Prix")
    Sheets(numsousdétailsprix).Visible = True
    ActiveWorkbook.Sheets("SD prix").Visible = False
    For Each WS In Worksheets
    If WS.Name = numsousdétailsprix Then MsgBox "La feuille existe déjà": Exit Sub
Next WS
    libellésousdétailsprix = InputBox("nom du sous-détails de Prix")
    Sheets(libellésousdétailsprix).Visible = True
    ActiveWorkbook.Sheets("SD prix").Visible = False
  
    If numsousdétailsprix = "" Then
        Exit Sub
    End If
    If libellésousdétailsprix = "" Then
        Exit Sub
    End If
                      
    ActiveSheet.Name = numsousdétailsprix
    ActiveSheet.Range("SDPrixn°_").Value = numsousdétailsprix
    ActiveSheet.Range("_nomssdétails1").Value = libellésousdétailsprix
    Application.ScreenUpdating = True
End Sub

BrunoM45 à dit:

Bonsoir Tomasisco21

Vous ne vous êtes pas dit à un moment que depuis le 03/12 si personne ne vous répond
c'est que c'est infaisable ou très compliqué à faire de plus gratuitement

Bonnes fêtes de fin d'année

Cliquez pour agrandir...