Générer une combinaison d'identifiants

G

Guest

Guest

• 8 Février 2011

• #2

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

 

Dernière modification par un modérateur: 8 Février 2011

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 8 Février 2011

• #3

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

 

Vote positif 0 Vote négatif

L

Le_Goret

XLDnaute Nouveau

• 8 Février 2011

• #4

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...

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 8 Février 2011

• #5

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+

 

Vote positif 0 Vote négatif

L

Le_Goret

XLDnaute Nouveau

• 8 Février 2011

• #6

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+

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 8 Février 2011

• #7

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+

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 8 Février 2011

• #8

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

Re,

Sur la base du classeur joint:

VB:

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+

 

Vote positif 0 Vote négatif

L

Le_Goret

XLDnaute Nouveau

• 8 Février 2011

• #9

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.

 

Vote positif 0 Vote négatif