Automatiser la création d'une liste

[Raphael]

Bonjour,

Quelqu'un pourrait-il m'indiquer de quelle manière modifier la formule contenue en B21 pour obtenir la création de la liste obtenue dans l'exemple par du copy coller et modif ponctuelle de la formule

 

[Jean-Marie]

Bonjour,

Place cette formule en B22
=INDEX(B$5:B$17;ENT(LIGNES(B$21:B21)/12)+1;1)&"_"&INDEX(C$5:C$17;SI(MOD(LIGNES(B$21:B21);12)=0;1;MOD(LIGNES(B$21:B21);12)+1);1)&"_"&INDEX(D$5$17;ENT(LIGNES(B$21:B21)/144)+1;1)

Et fait un glisser/déposer.

Bonne soirée, fait de beau rêve

@+Jean-Marie

 

[Celeda]

Bonsoir,

Je rencontre un problème avec la formule. Jean-Marie, puis-je te demander de regarder le fichier pour voir ou cela bloque, SVP. Je n'arrive pas à passer à 2004.
Merci


Celeda

 

[Mytå]

Bonsoir le forum

Par macro associé a un bouton

Option Explicit
Sub tous_les_fichiers()
Dim b As Byte, c As Byte, d As Byte
Dim i As Byte, j As Byte, k As Byte
Dim valeur As Variant
Dim ligne As Double
b = 0: c = 0: d = 0
Range("B5:B17").Select
For Each valeur In Selection
If valeur <> "" Then b = b + 1
Next
Range("C5:C17").Select
For Each valeur In Selection
If valeur <> "" Then c = c + 1
Next
Range("D517").Select
For Each valeur In Selection
If valeur <> "" Then d = d + 1
Next
ligne = 21
For i = 1 To b
For j = 1 To d
For k = 1 To c
Cells(ligne, 2) = Cells(i + 4, 2) & "_" & Cells(k + 4, 3) & "_" & Cells(j + 4, 4)
ligne = ligne + 1
Next k: Next j: Next i
End Sub

A suivre

 

[Jean-Marie]

Bonjour, tout le monde

Celeda envoie le fichier dans ma bal, en ce moment, je n'arrive pas à récupérer les .zip sur le forum.

@+Jean-Marie

 

[Celeda]

Bonjour,

Ca c'est super sympa c'est toujours comme cela sur XLD : 2 en un !

Et si dans la vie on pouvait toujours avoir deux ou trois solutions.......

Merci Mytå

Merci Jean-Marie : je t'envoie le fichier de suite dans ta BAL.

Bonne journée.


Celeda

 

[Jean-Marie]

Bonjour, tout le monde

Voici la formule, à mettre en B22, et à faire glisser.

=INDEX(B$5:B$17;ENT((LIGNES(B$21:B21)-PLANCHER(LIGNES(B$21:B21);NBVAL(B$5:B$17)*12))/12)+1;1)&"_"&INDEX(C$5:C$17;SI(MOD(LIGNES(B$21:B21);12)=0;1;MOD(LIGNES(B$21:B21);12)+1);1)&"_"&INDEX(D$5$17;ENT(LIGNES(B$21:B21)/(NBVAL($B$5:$B$17)*12))+1;1)


Bonne fin de journée

@+Jean-Marie

 

[Celeda]

Bonsoir,

Pour le fun je remets le fichier avec les deux versions des solutions qui fonctionnent parfaitement et une variante de Mytå:

Un ptit coup de macro - un ptit coup de formule

Mais Jean-Marie il faudra plus d'une dance...........pour que je comprenne tout (je t'envoie le fichier dans ta bal).

Un GRAND merci à tous les deux (c'est dans la database XLD)

Celeda

 

[Raphael]

Bonjour,

Je cherche a contacter "Mytå (---.globetrotter.net)", hors du forum, pour un renseignement, peut-il mécrire en utilisant mon email perso.

Merci
Raphael

 

[Mytå]

Re le forum

C'est dans ta bal mon url

de 5:25 a 03:04 le lendemain et rien sur ma bal oufs adieu ta question

Mytå

 

[Raphael]

Salut, As tu recu mon mail du 27/03/03 à 5h54 ?

Si non, réécrit moi SVP, Merci
Raphael

 

[Jean-Marie]

Bonjour, Raphaël

Alors ton projet avance ?
La digestion d'une plage de cellule variable, se passe-t'elle bien.

@+Jean-Marie