Pb utilisation Excel en base de données

[marmayer]

Bonjour à tous,

J'aimerais pouvoir résoudre un problème que se pose à moi mais je n'ai de connaissance poussée sur Excel.

J'ai une feuille de synthèse contenant 100 lignes de données et 100 feuilles supplémentaires qui sont reliées à chaque ligne de la feuille de synthèse. Les 100 feuilles sont toutes sous le même format, seules les données changent (cases en jaune dans mon fichier joint).

J'aimerais pouvoir ajouter une colonne de données sur ma feuille de synthèse (colonne "Genre") puis mettre à jour mes 100 fiches d'un coup en ajoutant la case reliée à la colonne ajoutée.

Est-ce possible ?

J'ai mis en pièce jointe un extrait de mon classeur Excel avec la feuille synthèse simplifiée et les deux feuilles correspondantes aux 2 premières lignes de la feuille synthèse (fausses données pour des raisons de confidentialité).

Merci vraiment beaucoup d'avance de m'aider, 🙂😕
Bien cordialement à tous,

 

[alexga78]

Re : Pb utilisation Excel en base de données

bonsoir marmayer,

un essai ci-joint qui devrait convenir

Option Explicit
Sub copie()
Dim i As Integer
Application.ScreenUpdating = False
For i = 4 To 9 Step 5 'Pense à adpater i=4 to 499 step 5 si N°PTC = 100
With Sheets("Synthèse")
Sheets("Base").Copy After:=Sheets(ActiveWorkbook.Worksheets.Count)
ActiveSheet.Name = "PTC" & .Cells(i, 1).Value
ActiveSheet.Cells(1, 12) = .Cells(i, 1).Value
ActiveSheet.Cells(5, 4) = .Cells(i, 2).Value
ActiveSheet.Cells(6, 4) = .Cells(i, 3).Value
ActiveSheet.Cells(5, 10) = .Cells(i, 4).Value
ActiveSheet.Cells(6, 10) = .Cells(i, 5).Value
ActiveSheet.Cells(12, 10) = .Cells(i, 6).Value
ActiveSheet.Cells(15, 8).Resize(5, 1) = .Cells(i, 7).Resize(5, 1).Value
ActiveSheet.Cells(15, 10).Resize(5, 2) = .Cells(i, 9).Resize(5, 2).Value
ActiveSheet.Cells(22, 10) = .Cells(4, 12)
End With
Next i
Application.ScreenUpdating = True
End Sub

Bonne soirée

 

[alexga78]

Re : Pb utilisation Excel en base de données

Re,

oups petite boulette dans la feuille Base, j'ai oublié de copier doc 1 à 5.
c'est réglé avec la PJ.

Bonne soirée