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

Créer un base de données par macro Excel

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion berlan
  • 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
B

berlan

XLDnaute Nouveau
Bonjour,

J'ai un fichier Excel qui me permet de suivre différents centres (1 par onglet), je souhaite faire une base de donnée me permettant de faire tourner des états de synthèse (résultats cumulé des centres, ...). Pour cela j'ai renseigné sur la première colonne de chaque onglets la lettre D en face des lignes devant faire parties de la base de données.

Mon problème : J'ai d'abord commencé ma BDD par un système de sommeprod, mais vu la taille du fichier, les calculs deviennent beaucoup trop long (30s à chaque changement / 1000 lignes de BDD)

Voici la formule utilisée :

=SOMMEPROD(SOMME.SI(INDIRECT($A$1:$A$15&"!A:A");A17;INDIRECT($A$1:$A$15&"!M:M")))

*J'ai utilisé une formule indirect pour reprendre les noms des onglets


Il me semble qu'il devient nécessaire de passer par une macro excel du genre : Si A1=D alors A1 sinon regarder si A2=D alors A2 puis passer à la ligne suivante.... et ce pour tous mes onglets et pour un certains nombres de colonnes...

Je suis un peu perdu 😕... merci de votre aide.

Berlan🙂
 
Trier par date Trier par votes
Re : Créer un base de données par macro Excel

Bonjour et bienvenu sur le forum en tant que membre actif,

Bref, tu veux une macro qui se lance suite à un clic sur un bouton, et que cette dernière créé et/ou compléte ta BD déjà existante?

Tu es ici depuis le mois de Mars, tu as donc du remarquer que pour une question de ce genre, sans exemple concret, difficile de t'aider.

De plus, peux-tu nous préciser ton niveau en VBA (macro)?

A te lire

Cordialement
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Créer un base de données par macro Excel

Salut,

Inconvénient de ta méthode, comme tu l'as remarqué, la BD est mise à jours à chaque modification. Donc forcément ton fichier rame.

La macro te permettra de réduire légèrement le temps d'exécution, mais surtout se lancera que lorsque tu le demanderas.

Bref, en effet pour ton cas, passer au VBA me semble une bonne idée

A+
 
Vote positif 0 Vote négatif
Re : Créer un base de données par macro Excel

Bonjour à vous,

Pour commencé, mon niveau est débutant en VBA (je sais créer un bouton et lui rattaché une macro... mais j'ai beaucoup plus de mal a créer la macro proprement dite), ensuite je vous joint un exemple "simplifié" d'onglets à partir desquels je souhaiterais extraire dans un onglet BDD les lignes commençants par la lettre "D"...

Merci de votre aide 🙂

Berlan
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Créer un base de données par macro Excel

Bonsoir berlan
Essayez cette procédure :
Code: 
[COLOR="DarkSlateGray"][B]Sub toto()
Dim feColl, sDat(), f%, oDat, i&, j&, n&
   feColl = Array("Cout1", "Cout2")
   ReDim sDat(1 To 15, 1 To 1)
   For f = 0 To UBound(feColl)
      With Sheets(feColl(f))
         oDat = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp).Offset(0, 15)).Value
      End With
      For i = 1 To UBound(oDat, 1)
         If Left$(oDat(i, 1), 1) = "D" Then
            n = n + 1
            ReDim Preserve sDat(1 To 15, 1 To n)
            For j = 1 To 15
               sDat(j, n) = oDat(i, j)
            Next j
         End If
      Next i
   Next f
   sDat = WorksheetFunction.Transpose(sDat)
   With Sheets("BDD")
      i = WorksheetFunction.Max(4, .Cells(.Rows.Count, 1).End(xlUp).Row)
      .Cells(i, 1).Resize(UBound(sDat, 1), 15) = sDat
   End With
End Sub[/B][/COLOR]
ROGER2327
#3727

Vendredi 6 Gidouille 137 (Saint Dieu, retraité, SQ)
2 Messidor An CCXVIII
2010-W24-7T20:13:20Z
 
Vote positif 0 Vote négatif
Re : Créer un base de données par macro Excel

Re...
Voici le code paramétré :
Code: 
[COLOR="DarkSlateGray"][B]Sub toto()
Dim feColl, sDat(), f%, oDat, i&, j&, n&
Dim pCol%, pLig$
[COLOR="Sienna"]'=================================================================
'PARAMETRES :[/COLOR]
   pCol = 15 [COLOR="Sienna"]'Nombre de colonnes à traiter[/COLOR]
   pLig = 4 [COLOR="Sienna"]'Première ligne utilisable dans la feuille "BDD"[/COLOR]
   feColl = Array("Cout1", "Cout2") [COLOR="Sienna"]'Liste des feuilles de données
'=================================================================[/COLOR]
   ReDim sDat(1 To pCol, 1 To 1)
   For f = 0 To UBound(feColl)
      With Sheets(feColl(f))
         oDat = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp).Offset(0, pCol)).Value
      End With
      For i = 1 To UBound(oDat, 1)
         If Left$(oDat(i, 1), 1) = "D" Then
            n = n + 1
            ReDim Preserve sDat(1 To pCol, 1 To n)
            For j = 1 To pCol
               sDat(j, n) = oDat(i, j)
            Next j
         End If
      Next i
   Next f
   sDat = WorksheetFunction.Transpose(sDat)
   With Sheets("BDD")
      i = WorksheetFunction.Max(pLig, .Cells(.Rows.Count, 1).End(xlUp).Row)
      .Cells(i, 1).Resize(UBound(sDat, 1), pCol) = sDat
   End With
End Sub[/B][/COLOR]
ROGER2327
#3728

Vendredi 6 Gidouille 137 (Saint Dieu, retraité, SQ)
2 Messidor An CCXVIII
2010-W24-7T20:44:01Z
 
Vote positif 0 Vote négatif
Re : Créer un base de données par macro Excel

Merci beaucoup, c'est super ça marche !!!

Voila ce que ca donne :

Sub BDD()
Dim feColl, sDat(), f%, oDat, i&, j&, n&
feColl = Array("a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n")
ReDim sDat(1 To 57, 1 To 1)
For f = 0 To UBound(feColl)
With Sheets(feColl(f))
oDat = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp).Offset(0, 57)).Value
End With
For i = 1 To UBound(oDat, 1)
If Left$(oDat(i, 1), 1) = "D" Then
n = n + 1
ReDim Preserve sDat(1 To 57, 1 To n)
For j = 1 To 57
sDat(j, n) = oDat(i, j)
Next j
End If
Next i
Next f
sDat = WorksheetFunction.Transpose(sDat)
With Sheets("BDD")
i = WorksheetFunction.Max(6, .Cells(.Rows.Count, 1).End(xlUp).Row)
.Cells(i, 1).Resize(UBound(sDat, 1), 57) = sDat
End With
End Sub

Une dernière question : si je fais plusieurs fois la macro les lignes se cumulent les unes en dessous des autres... comment faire pour qu'il s'agisse toujours d'une MAJ de la BDD avec 6 en 1ère ligne ?

Merci
 
Vote positif 0 Vote négatif
Re : Créer un base de données par macro Excel

Re...
Essayez ce code :
Code: 
[COLOR="DarkSlateGray"][B]Sub BDD()
Dim feColl, sDat(), f%, oDat, i&, j&, n&
Dim pCol%, pLig$
[COLOR="Sienna"]'=================================================================
'PARAMETRES :[/COLOR]
   pCol = 57 [COLOR="Sienna"]'Nombre de colonnes à traiter[/COLOR]
   pLig = 6 [COLOR="Sienna"]'Première ligne utilisable dans la feuille "BDD"[/COLOR]
   feColl = Array("a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n") [COLOR="Sienna"]'Liste des feuilles de données
'=================================================================[/COLOR]
   ReDim sDat(1 To pCol, 1 To 1)
   For f = 0 To UBound(feColl)
      With Sheets(feColl(f))
         oDat = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp).Offset(0, pCol)).Value
      End With
      For i = 1 To UBound(oDat, 1)
         If Left$(oDat(i, 1), 1) = "D" Then
            n = n + 1
            ReDim Preserve sDat(1 To pCol, 1 To n)
            For j = 1 To pCol
               sDat(j, n) = oDat(i, j)
            Next j
         End If
      Next i
   Next f
   sDat = WorksheetFunction.Transpose(sDat)
   With Sheets("BDD")
      .Cells(pLig, 1) = " "
      .Range(.Cells(pLig, 1), .Cells(.Rows.Count, 1).End(xlUp).Offset(0, pCol)).ClearContents
      .Cells(pLig, 1).Resize(UBound(sDat, 1), pCol) = sDat
   End With
End Sub[/B][/COLOR]
(Il est inutile de reporter les valeurs des paramètres partout dans la procédure : les variables pCol et pLig sont là pour ça...)​
ROGER2327
#3729

Vendredi 6 Gidouille 137 (Saint Dieu, retraité, SQ)
2 Messidor An CCXVIII
2010-W24-7T21:32:21Z
 
Vote positif 0 Vote négatif
Re : Créer un base de données par macro Excel

Bonjour,

Suite à l'utilisation de cette macro dans un autre suivi, je rencontre à nouveau un problème... En effet, la création de la BDD de déroule très très bien mais dans une série de colonne concernant des dates (jj/mm/aaaa), la dernière colonne de date apparait comme suit : mm/jj/aaaa !! alors que les autres dates fonctionnent correctement 😕.

J'ai vérifié les format de date dans les onglets d'origine mais rien de particulier.

Ce que je ne comprend pas c'est pourquoi 2 formats de date différents se cotoient ?

Merci d'avance.

Berlan

Ci-dessous, pour rappel , le code :

Sub MAJ_RAO()
Dim feColl, sDat(), f%, oDat, i&, j&, n&
Dim pCol%, pLig$
'=================================================================
'PARAMETRES :
pCol = 44 'Nombre de colonnes à traiter
pLig = 367 'Première ligne utilisable dans la feuille "Synthese"
feColl = Array("a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k") 'Liste des feuilles de données
'=================================================================
ReDim sDat(1 To pCol, 1 To 1)
For f = 0 To UBound(feColl)
With Sheets(feColl(f))
oDat = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp).Offset(0, pCol)).Value
End With
For i = 1 To UBound(oDat, 1)
If Left$(oDat(i, 1), 1) = "D" Then
n = n + 1
ReDim Preserve sDat(1 To pCol, 1 To n)
For j = 1 To pCol
sDat(j, n) = oDat(i, j)
Next j
End If
Next i
Next f
sDat = WorksheetFunction.Transpose(sDat)
With Sheets("Synthese")
.Cells(pLig, 1) = " "
.Range(.Cells(pLig, 1), .Cells(.Rows.Count, 1).End(xlUp).Offset(0, pCol)).ClearContents
.Cells(pLig, 1).Resize(UBound(sDat, 1), pCol) = sDat
End With
End Sub
 
Vote positif 0 Vote négatif
Re : Créer un base de données par macro Excel

En fait toutes les dates sont fausses, cela ne m'avai pas sauté aux yeux car les jours était > à 12 donc > au nombre de mois.

En synthèse :

Quand la date est du type jj/mm/aaaa avec jj>12 -> Ca marche !
Quand la date est du type jj/mm/aaaa avec jj<12 -> Ca ne marche pas (mm/jj/aaaa) !

Merci de votre aide.

Berlan
 
Vote positif 0 Vote négatif
Re : Créer un base de données par macro Excel

Re-bonjour,

Je me permet de compléter une nouvelle fois ma requête, car après quelques recherches, mon problème vient donc de l'interprétation de VBA :

"La meilleure méthode l'utilisation de la fonction DateValue() qui fait fi du format date du panneau de configuration. Comme chaque composante (année, mois, jour) de la fonction est spécifiée dans les paramètres de la fonction, cela ne laisse aucune place à Excel (vba) à l'interprétation."

Mais comment intégrer ce paramètre dans ma macro sachant que j'appelle des lignes composées de "montants", "Textes", ... et de "DATES" !!

Merci de votre aide car là je suis perdu...

Berlan
 
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

D
  • Question Question
XL 2021 Externaliser une base de données
Réponses
1
Affichages
98
vgendron
M
  • Question Question
XL 2016 Création fichier base de données liste nominative unique actualisée automatiquement sur tous les onglets des la mise à jour de la liste principale
Réponses
3
Affichages
127
Mikl5630
M
  • Question Question
Microsoft 365 Recherche incomplète planning (problème de dates)
Réponses
13
Affichages
413
p56
M
  • Question Question
XL 2016 pb création de tableau par macro
Réponses
10
Affichages
126
ChTi160
P
  • Question Question
XL 2016 Macro VBA remplissage tableau de synthèse % déchet ligne de production
Réponses
4
Affichages
179
vgendron
M
  • Question Question
XL 2021 Automatiser Changements des plages de données Graphique
Réponses
0
Affichages
104
Michel_ja
M
N
  • Résolu(e)
Microsoft 365 Macro entre 2 classeurs
2
Réponses
19
Affichages
345
Nounours4173
N
  • Résolu(e)
XL 2021 tableau de données
Réponses
9
Affichages
227
AtTheOne
C
  • Question Question
Microsoft 365 Créer un synthèse de plusieurs onglets
Réponses
7
Affichages
574
cdric78
C
L
  • Résolu(e)
XL 2016 Pb publipostage conditionnelle avec base de données Excel
Réponses
1
Affichages
402
Linda42
L
C
  • Résolu(e)
Microsoft 365 Créer une base de donnée depuis un tableau
Réponses
3
Affichages
508
Chessnocoma
C
G
  • Question Question
XL 2019 Sélectionner un fichier pour mettre à jour une base de données
Réponses
3
Affichages
266
sylvanu
  • Résolu(e)
Microsoft 365 Créer une base de données à partir de 2 onglets
Réponses
3
Affichages
599
WTF
P
  • Question Question
XL 2019 Macro VBA appliquer un filtre lors d'une importation de données
Réponses
1
Affichages
205
fanch55
  • Question Question
XL 2021 création d'onglets en masse depuis un modele
Réponses
6
Affichages
147
Phil69970
E
  • Question Question
XL 2013 Base de données
2
Réponses
15
Affichages
2 K
eutrophisation
E
  • Résolu(e)
Microsoft 365 Extraction d'informations sur différents onglets en partant d'une base de données
Réponses
7
Affichages
634
MBax
S
  • Résolu(e)
Microsoft 365 - Conseils pour la structuration d'une base de données -
2 3
Réponses
44
Affichages
3 K
crocrocro
C
B
  • Question Question
XL 2019 Dans une macro de démarrage de fichier masquer le code par des Astérix ou point
Réponses
3
Affichages
200
sylvanu
C
  • Question Question
Microsoft 365 Créer une base de données utilisable
Réponses
6
Affichages
691
cmathis
C
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…