XL 2016 Macro pour répliquer saisie multiple

[Saumon80]

Bonjour ,

Je suis novice avec VBA et je souhaite faire une operation en apparence simple avec une Macro.

J'ai une liste de 400 villes et je souhaites pour chaque ville associer une liste de 32 couleurs avec pour chaque couleur une valeur associe.

La liste des 32 couleurs avec une valeur ne change pas. Comment puis-je créer une boucle pour générer cette liste d'environ 12,000 valeurs sur Excel ?

Je joint le fichier example.

Je souhaite en fait pour chaque ville associer les 32 couleurs et valeurs comme pour la plage en couleur pour la ville "Rouen1".

Merci d'avance

 

[Dranreb]

Bonsoir.
Dans le classeur joint je ne vois qu'une couleur orange partout alors que dans une colonne intitulée "Couleur" je vois les mots "Vert1" à "Vert32"
Ce n'est vraiment pas clair tout ça.
Cette fourniture pourrait peut être vous aider pour mettre au point un jeu de 32 couleurs en par exemple 8 teintes (A: angle) déclinées en 4 luminosités (E: énergie). Elle possède aussi un module de classe Couleur qui pourrait calculer un code de couleur en fonction des propriétés E, A et F ou E, H et J données.

Élaboration et utilisation de jeux de couleurs.

Mise au point facile de jeux de couleurs pour UserForm, Shape et cellules, voire images calculées. Possibilité de capturer un pixel n'importe où sur l'écran. Module de classe Couleur pour utilisation dans d'autres projets VBA.

www.excel-downloads.com

 

[Dranreb]

Cela dit si seuls les textes vous intéressent :
En B2, à propager sur 12800 lignes :

="Rouen"&ENT((LIGNE()-2)/32)+1

En C2, à propager sur 12800 lignes et 2 colonnes :

=INDEX(Sheet2!$A$2:$B$33;MOD(LIGNE()-2;32)+1;COLONNE()-2)

 

[Saumon80]

Merci beaucoup Dranreb pour votre réponse.

En effet c'est confus. En fait la couleur n'est pas importante , les mots vert1 a vert32 sont juste des remplacements pour des noms . La couleur orange était juste pour mettre en avant ce que je souhaite répliquer.

J'ai essaye le code mais il ne marche pas dans mon fichier , vous serait il possible de l'ajouter dans le fichier directement ?

Merci d'avance

 

[Dranreb]

C'est que je n'ai pas gardé le classeur, alors joignez le avec les formules que vous avez reproduites, que je puisse voir pourquoi elles ne donnent pas le résultat escompté.

 

[Saumon80]

Merci , en fait je ne peux pas valider la formule peut être car j utilise une version anglaise . C est une formule a mettre en B2/C2 ou un code VBA?

 

[Dranreb]

ActiveSheet.[B2].Resize(12800,2).FormulaR1C1 = "=INDEX(Sheet2!R2C1:R33C2,MOD(ROW()-2,32)+1,COLUMN()-2)"

 

[Saumon80]

Merci , j ai mis le code dans VBA il marche mais le résultat n'est pas exactement ce que je recherche car cela applique les valeur qui devrait être en colonne 4 en colonne 2.

En fait je souhaites appliquer la liste en sheet 2 a toutes les 400 villes de la sheet4, cela devrait donner un résultat comme en sheet3 ou j'ai applique la liste aux 2 premieres villes.

Merci encore je pense qu il faut just une petite modification au niveau du code.

Je joint le fichier.

 

[Dranreb]

Alors :

Sub ABCD()
   Dim LigFin As Long, NbLig As Long
   LigFin = Sheet4.[B1000000].End(xlUp).Row: NbLig = LigFin - 1
   Sheet1.[A2].Resize(NbLig * 32, 2).FormulaR1C1 = "=INDEX(Sheet4!R2C1:R" & LigFin & "C2,INT((ROW()-2)/32+1),COLUMN())"
   Sheet1.[C2].Resize(NbLig * 32, 2).FormulaR1C1 = "=INDEX(Sheet2!R2C1:R33C2,MOD(ROW()-2,32)+1,COLUMN()-2)"
   End Sub

 

[Saumon80]

Super ! Sa marche parfaitement , merci infiniment et bonne soiree !!