Générer une combinaison d'identifiants

[Le_Goret]

Bonjour,

J'ai déjà posé ma question ce matin. Personne ne m'a répondu mais il est vrai que je n'étais pas très clair dans mes explications...

J'ai un classeur Excel avec 2 feuilles. Chacune de ses feuilles comprend une liste d'identifiants en première colonne sous forme de 3 nombres. L'objectif est de pouvoir générer dans une troisième feuille l'ensemble des combinaisons d'identifiants de la feuille 1 et de la feuille 2. Dans le lien ci-joint j'ai fait une petite maquette, ci-jointe, expliquant ce que je cherche à faire...


Je ne connais rien en programmation et suis assez démuni pour résoudre ce genre de problèmes.

Merci à vous.

Le_Goret

 

[Guest]

Re : Générer une combinaison d'identifiants

Bonjour,

Ton classeur ne faisant que 19ko tu peux très bien le joindre ici. C'est peut-être la raison pour laquelle tu n'as pas eu de réponse.
ton précédent fil est de 8h36. C'est court comme attente pour relancer une discussion similaire.

A+

[Edit] Hi Pierrot

 

[Pierrot93]

Re : Générer une combinaison d'identifiants

Bonjour,

le mieux pour ne pas avoir de réponse est de multiplier les posts pour une même question...
https://www.excel-downloads.com/threads/automatiser-la-construction-dune-base-de-donnees.157784/

un peu de patience... ce forum est animé par des bénévoles....



bonne journée
@+

Edition : bonjour Hasco

 

[Le_Goret]

Re : Générer une combinaison d'identifiants

Ca marche! Je me suis dit que ma question était certainement mal posée aussi, d'où mon second post. J'aurais du reformuler directement mon premier post...

 

[Guest]

Re : Générer une combinaison d'identifiants

Re,

Et joindre ton fichier ici. C'est important que les fichiers puissent restés disponibles dans le temps, pour les futurs internautes.

A+

 

[Le_Goret]

Re : Générer une combinaison d'identifiants

Effectivement, le lien que j'avais donné n'est plus valide. J'ai joint un fichier expliquant ce que je cherchais à obtenir. A+

 

[Guest]

Re : Générer une combinaison d'identifiants

Re,

Dans ton fichier, les données dans la feuille 'Sites' commence en A5 et dans la feuille 'Ref' et 'Feuil3' en 'A4'. Est-ce toujours le cas?

A+

 

[Guest]

Re : Générer une combinaison d'identifiants

Re,

Sur la base du classeur joint:

Sub CombinerREf_Et_Sites()
Dim tRefs, tSites
Dim tRes() As Variant
Dim iRef As Long, iSite As Long, cpt As Long
With Sheets("Réf")
tRefs = .Range("A5:A" & .Cells(.Rows.Count, 1).End(xlUp).Row).Value
End With
With Sheets("Sites")
tSites = .Range("A6:A" & .Cells(.Rows.Count, 1).End(xlUp).Row).Value
End With
 
ReDim Preserve tRes(1 To 2, 1 To UBound(tSites) * UBound(tRefs))
For iSite = 1 To UBound(tSites)
For iRef = 1 To UBound(tRefs)
cpt = cpt + 1
tRes(1, cpt) = "'" & Format(tSites(iSite, 1), "000")
tRes(2, cpt) = tRefs(iRef, 1)
Next iRef
Next iSite
Sheets("Feuil3").Range("A5").Resize(cpt, 2).Value = Application.Transpose(tRes)
End Sub

A+

 

[Le_Goret]

Re : Générer une combinaison d'identifiants

Salut Hasco, je vais appliquer la macro à mon fichier de travail. Je te tiens au courant. Merci à toi.