Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Pb utilisation Excel en base de données

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion marmayer
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
M

marmayer

XLDnaute Nouveau
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,
 

Pièces jointes

Trier par date Trier par votes
Re : Pb utilisation Excel en base de données

bonsoir marmayer,

un essai ci-joint qui devrait convenir
Code: 
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
 

Pièces jointes

Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

B
  • Question Question
XL 2021 Base de données
Réponses
5
Affichages
431
Cousinhub
  • Question Question
Microsoft 365 Création automatique de feuille et le remplissage correspondant
Réponses
8
Affichages
319
gbinforme
G
L
  • Résolu(e)
XL 2016 Pb publipostage conditionnelle avec base de données Excel
Réponses
1
Affichages
504
Linda42
L
M
  • Question Question
XL 2016 pb création de tableau par macro
Réponses
10
Affichages
273
ChTi160
P
  • Question Question
XL 2016 Macro VBA remplissage tableau de synthèse % déchet ligne de production
Réponses
4
Affichages
312
vgendron
K
  • Question Question
XL 2010 copier le contenu de plusieurs feuilles sur une seule
Réponses
3
Affichages
286
sylvanu
  • Question Question
XL 2021 Automatisation Extraction de données et de sommes
Réponses
1
Affichages
195
chris
A
  • Question Question
Déplacer données en vba
Réponses
3
Affichages
471
akm
A
  • Question Question
XL 2016 copie de donnees horizontale en verticale
2
Réponses
25
Affichages
695
job75
P
  • Question Question
XL 2019 Macro VBA appliquer un filtre lors d'une importation de données
Réponses
1
Affichages
397
fanch55
P
  • Question Question
XL 2016 VBA Appliquer un filtre sur mes données importées
Réponses
4
Affichages
551
sousou
M
  • Question Question
XL 2019 Transposer des données d'une feuille vers une autre sous forme de synthèse
Réponses
8
Affichages
629
mromain
  • Résolu(e)
XL 2021 tableau de données
Réponses
9
Affichages
364
AtTheOne
D
  • Résolu(e)
Microsoft 365 récupérer des données d'une feuille excel d'un classeur A pour les incrémenter automatiquement sur le classeur B
Réponses
10
Affichages
293
TooFatBoy
G
  • Question Question
XL 2021 Utilisation de données pour un autre fichier
Réponses
2
Affichages
418
job75
  • Résolu(e)
Microsoft 365 Extraction d'informations sur différents onglets en partant d'une base de données
Réponses
7
Affichages
692
MBax
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
1 K
Gestionnaire_rh
G
M
  • Question Question
XL 2021 Avoir des tableaux liés à une base de données
2
Réponses
24
Affichages
881
Nain porte quoi
N
D
  • Résolu(e)
Microsoft 365 Validation de données sous condition
Réponses
8
Affichages
337
drop91
D
A
  • Question Question
Microsoft 365 Tri sur feuille protégée +Aide protection de données déjà saisies
Réponses
2
Affichages
307
TooFatBoy
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…