Construire une base de données
Résolu/Fermé
A voir également:
- Construire une base de données
- Formules excel de base - Guide
- Tnt base de données vide - Forum TNT / Satellite / Réception
- Célia doit nettoyer le tableau ci-dessous pour l’ajouter à la base de données de son entreprise. les données sont ensuite traitées automatiquement. quelles sont les 4 cellules qui risquent de poser problème ? ✓ - Forum Excel
- Exemple base de données access à télécharger gratuit ✓ - Forum Logiciels
- Désolé l'utilisation de la base de données a expiré epic games - Forum Jeux vidéo
4 réponses
je pense que tu peut utiliser la formule =CONCAT(Sheet("feuil1").cel("A1"), " ", Sheet("feuil2").cel("A1")) dans la barre de formule
Puis tu l'étant à toutes les lignes.
(je ne suis pas sur sur le sheet)
Puis tu l'étant à toutes les lignes.
(je ne suis pas sur sur le sheet)
Oui il s'agit bien de la formule concatener. Celle_ci me permet d'associer chaque élément d'une colonne avec son équivalent dans une autre colonne. Moi je cherche en fait à associer chacun des éléments une fois avec tous les autres. Ainsi pour 2 colonnes de 5 éléments je voudrais avoir 5*5 soit 25 associations.
lord seregon
Messages postés
52
Date d'inscription
lundi 7 février 2011
Statut
Membre
Dernière intervention
29 janvier 2018
9 févr. 2011 à 09:15
9 févr. 2011 à 09:15
il faut faire une petite macro VBA, je n'est pas le temps maintenant mais je vais essayé de voir ce soir.
Salut Seregon. Je suis arrivé à obtenir la macro, je la laisse pour les gens:
Sub combinaison()
Sheets(3).Select
i = 4
Do While Cells(i, 1) <> ""
i = i + 1
Loop
Range(Cells(4, 1), Cells(i, 2)).Clear
i = 4 'première ligne de ta combi pour ta 3e feuille
isites = 3 'première ligne de la feuille site
Do While Sheets("Sites").Cells(isites, 1) <> ""
iref = 2 'première ligne de la feuille ref
Do While Sheets("Réf").Cells(iref, 1) <> ""
Sheets(3).Cells(i, 1) = Sheets("Sites").Cells(isites, 1)
Sheets(3).Cells(i, 2) = Sheets("Réf").Cells(iref, 1)
i = i + 1
iref = iref + 1
Loop
isites = isites + 1
Loop
End Sub
Sub combinaison()
Sheets(3).Select
i = 4
Do While Cells(i, 1) <> ""
i = i + 1
Loop
Range(Cells(4, 1), Cells(i, 2)).Clear
i = 4 'première ligne de ta combi pour ta 3e feuille
isites = 3 'première ligne de la feuille site
Do While Sheets("Sites").Cells(isites, 1) <> ""
iref = 2 'première ligne de la feuille ref
Do While Sheets("Réf").Cells(iref, 1) <> ""
Sheets(3).Cells(i, 1) = Sheets("Sites").Cells(isites, 1)
Sheets(3).Cells(i, 2) = Sheets("Réf").Cells(iref, 1)
i = i + 1
iref = iref + 1
Loop
isites = isites + 1
Loop
End Sub
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
Modifié par michel_m le 9/02/2011 à 14:52
Modifié par michel_m le 9/02/2011 à 14:52
Bonjour
message supprimé. excusez moi
Michel
message supprimé. excusez moi
Michel
lord seregon
Messages postés
52
Date d'inscription
lundi 7 février 2011
Statut
Membre
Dernière intervention
29 janvier 2018
9 févr. 2011 à 22:57
9 févr. 2011 à 22:57
Option explicit
Dim i as int
Dim j as int
For i = 1 to 5
For j = 1 to 5
Sheets(3).Range("A" & i*j).Value = Sheets(1).Range("A" & i).Value & Sheets(2).Range("A" & j).Value
Next j
Next i
Voila sa devrait marcher (sa fait longtemps que j'ai pas fait de VBA donc j'espère que sa sera bon.
