Autres copier coller cellule d'un fichier source

[cindy91]

Bonjour à tous,
J'ai besoin de votre expertise et de votre aide.
J'explique le contexte, chaque mois, je dois sortir un tableau qui contient toujours le même format. A ce tableau, j'ai ajouté des colonnes afin d'y mettre des formules, elles sont colorées en bleu.
J'aimerais qu'à la fois le format ainsi que les colonnes créées et les formules de calcul soient générées automatiquement grâce au fichier joint qui serait mon fichier source vers mes futurs extraction, de cette façon, je n'aurais plus besoin de recommencer à faire ces manipulation tous les mois.
De plus, j'aimerais que la "GLOSSAIRE" qui me sert de condition pour mes calculs soit aussi copier coller vers mon futur tableau.
Voici le fichier source qui pourrait me permettre de copier coller les colonnes pour mes tableaux des prochains mois.

 

[fanfan38]

Bonjour et bienvenu sur le forum
Un tableau structuré répond parfaitement à tes souhaits.
Tu colles tes données. les lignes s'ajouteront automatiquement les formules et mises en forme se recopieront automatiquement...

A+ François

 

[cindy91]

Bonjour François,

Merci pour votre réponse, avez-vous un code VBA pour se faire ?

D'avance merci de votre réponse.

 

[fanfan38]

Nul besoin de code VBA. Dans le fichier que je t'ai joint il y a un tableau structuré.
Tu clic sur une des cellules de données
Tu choisi inserer => tableau... (le mieux etant de le renommer)
A+ François
Pour voir le tableau: tu selectionnes une cellules du tableau et tu choisis creation (au milieu du menu)
A+ François

 

[job75]

Bonjour cindy91, fanfan38, le forum,

Moi je ne suis pas devin et je n'ai pas compris ce qu'il faut copier ni où il faut coller !

A+

 

[cindy91]

Nul besoin de code VBA. Dans le fichier que je t'ai joint il y a un tableau structuré.
Tu clic sur une des cellules de données
Tu choisi inserer => tableau... (le mieux etant de le renommer)
A+ François
Pour voir le tableau: tu selectionnes une cellules du tableau et tu choisis creation (au milieu du menu)
A+ François

Merci, je vais regarder attentivement.
A bientôt.

 

[cindy91]

Bonjour cindy91, fanfan38, le forum,

Moi je ne suis pas devin et je n'ai pas compris ce qu'il faut copier ni où il faut coller !

A+

Bonjour,
Veuillez m'excuser, il est parfois difficile d'expliquer clairement notre besoin.
Le tableau joint est une requête extraite tous les mois, à cette requête, j'ajoute tous les mois une feuille glossaire et les cellules bleues qui se trouvent dans l'onglet "Missions vacataires Melun 07-23"
Ce que je souhaite c'est avoir une astuce pour que mes formules que j'ajoute chaque mous ainsi que la feuille de calcul soient intégrées dans l'extraction que je fais chaque mois.

 

[job75]

Créez donc un fichier avec une feuille contenant l'extraction et une feuille avec le résultat final.

Et déposez-le ici.

 

[cindy91]

Créez donc un fichier avec une feuille contenant l'extraction et une feuille avec le résultat final.

 

[cindy91]

Les voici
le fichier final est pour moi le fichier source à utiliser après chaque extraction

 

[job75]

En fait il s'agit d'insérer 7 colonnes et d'y mettre des formules.

Je passe la main car il y a des formules de liaison vers un fichier inconnu, impossible de tester.

 

[job75]

Bonjour le forum,

J'ai finalement écrit cette macro à exécuter après l'extraction :

Sub Insertion()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
With [A1].CurrentRegion
    If .Columns.Count = 44 Then Union(.Columns(9), .Columns(13).Resize(, 6)).EntireColumn.Delete 'RAZ
    '---insertions---
    .Columns(9).EntireColumn.Insert
    .Columns(13).Resize(, 6).EntireColumn.Insert
    '---en-têtes---
    .Cells(1, 9) = "Jour"
    .Cells(1, 13).Resize(, 6) = Array("Heures jour", "Heures de nuit", "Nb HS Jour", "Nb HS Nuit", "Nb HS dimanche et JF", "TOTAL HS MISSION")
    If .Rows.Count = 1 Then Exit Sub
    '---formules---
    .Cells(2, 9).Resize(.Rows.Count - 1) = "=TEXT(H2,""jjj"")"
    .Cells(2, 13).Resize(.Rows.Count - 1) = "=MOD(L2-J2,1)-N2"
    .Cells(2, 14).Resize(.Rows.Count - 1) = "=(MAX(0,MIN(IF(L2<J2,1,0)+L2,1+'\\dfs01.ch-melun.fr\Racine01\DRH\Commun\THEO\[HS JR NUIT.xlsx]Feuil1'!$B$2)-MAX(J2,'\\dfs01.ch-melun.fr\Racine01\DRH\Commun\THEO\[HS JR NUIT.xlsx]Feuil1'!$B$1)))"
    .Cells(2, 15).Resize(.Rows.Count - 1) = "=IF(M2='\\dfs01.ch-melun.fr\Racine01\DRH\Commun\THEO\[HS JR NUIT.xlsx]Feuil1'!$A$3,0,IF(M2>'\\dfs01.ch-melun.fr\Racine01\DRH\Commun\THEO\[HS JR NUIT.xlsx]Feuil1'!$A$3,M2,0))-Q2"
    .Cells(2, 16).Resize(.Rows.Count - 1) = "=IF(N2='\\dfs01.ch-melun.fr\Racine01\DRH\Commun\THEO\[HS JR NUIT.xlsx]Feuil1'!$A$3,0,IF(N2>'\\dfs01.ch-melun.fr\Racine01\DRH\Commun\THEO\[HS JR NUIT.xlsx]Feuil1'!$A$3,N2,0))"
    .Cells(2, 17).Resize(.Rows.Count - 1) = "=IF(I2=""dim"",M2,0)"
    .Cells(2, 18).Resize(.Rows.Count - 1) = "=SUM(O2:Q2)"
End With
End Sub

En l'état elle crée des #REF! dans les colonnes M N O P R c'est normal.

A+

 

[job75]

Je ne me suis pas occupé de la feuille GLOSSAIRE car je ne vois vraiment pas à quoi elle peut servir.