Création d'une table automatique

[kealkeal]

Bonjour,

Voici ce que je souhaite mettre en place :

Je souhaite avoir un tableau qui va reprendre toutes les valeurs RVB des couleurs affichables par un écran.

Pour rappel, les couleurs R,V,B sont composées de 255 couleurs.

Voici un début de tableau qui, si possible, doit se générer automatiquement car à la main c'est trés long.

En effet 255 x 255 x 255 = 16581375 ligne à mettre en place. 🙁

Mon début de tableau :

R V B
1 1 1
1 1 2
1 1 3
1 1 4
1 1 5
... ... ...
255 255 255

Vous l'aurez compris le but est d'avoir toutes les combinaisons possibles soit 16581375 🙄

Merci pour votre aide.

 

[tototiti2008]

Re : Création d'une table automatique

Bonjour kealkeal,

Pour le RVB il faut commencer à 0, 0, 0 (Noir)

où vas-tu trouver assez de lignes pour afficher toutes les combinaisons ?

 

[kealkeal]

Re : Création d'une table automatique

On peut imaginer présenter les combinaisons sur plusieurs onglets.

Chaque onglets pouvant présenter 1048576 lignes sous Excel 2007.

Non ? 🙄

 

[Pierrot93]

Re : Création d'une table automatique

Bonjour kealkeal, toto🙂

devrais passer, sous 2003 tu disposes de 16777216 cellules par onglet.... risque peut être d'être un peu long...

bonne journée
@+

 

[Dranreb]

Re : Création d'une table automatique

Bonjour,
Juste par curiosité, pourquoi avez-vous besoin de cela ?
Ca m'interpelle parce que j'ai par ailleurs beaucoup travaillé sur les couleurs,
et il se peut que je dispose d'outils et de bout de codes qui vous intéressent.
À+

 

[kealkeal]

Re : Création d'une table automatique

Je souhaite récupérer toutes les combinaisons R + V + B afin de convertir par le biais d'un script en valeur hexa et ainsi constituer une table qui reprend toute les couleurs qui existes. voila !

 

[Pierrot93]

Re : Création d'une table automatique

Re,

regarde peut être ceci :

Option Explicit
Sub test()
Dim i As Integer, j As Integer, k As Integer
Dim l As Long, c As Integer
Application.ScreenUpdating = False
l = 1: c = 1
For i = 0 To 255
    For j = 0 To 255
        For k = 0 To 255
            Cells(l, c).Value = i & ";" & j & ";" & k
            If l = 65536 Then l = 1: c = c + 1 Else l = l + 1
        Next k
    Next j
Next i
Application.ScreenUpdating = True
End Sub

@+

 

[kealkeal]

Re : Création d'une table automatique

Merci pour l'aide.

Mais je fais quoi avec ce code ?

Je le mets où ?

Merci pour les précisions.🙂

 

[Pierrot93]

Re : Création d'une table automatique

Re,

il faut le mettre dans l'éditeur vba, ALT F11 pour l'ouvrir , barre de menu => insertion => Module et tu le colles....

 

[kealkeal]

Re : Création d'une table automatique

Oui je viens de trouver la solution ! 🙂

Cela semble fonctionner sauf que la combinaison se retrouve dans la meme celule.

Ex : cellule 1 = 0;0;0

Hors moi j'aimerai que les valeurs soitent mises dans une cellule séparée.

Ce qui fait qu'au final j'aurais un tableau avec 3 colonnes et 16581375 lignes.

Est ce possible ? 🙄

 

[Pierrot93]

Re : Création d'une table automatique

Re,

A ma connaissance il n'y a que 1 048 576 de lignes sous excel 2007....

 

[tototiti2008]

Re : Création d'une table automatique

Bonjour Pierrot,
Re,

trés fortement inspiré du code de Pierrot

Sub RVB()
Dim Ligne As Long, Feuille As Long, i As Long, j As Long, k As Long
    Application.ScreenUpdating = False
    Do Until Sheets.Count > 16
        Sheets.Add after:=Sheets(Sheets.Count)
    Loop
    Ligne = 1
    Feuille = 1
    For i = 0 To 255
        For j = 0 To 255
            For k = 0 To 255
                Sheets(Feuille).Cells(Ligne, 1) = i
                Sheets(Feuille).Cells(Ligne, 2) = j
                Sheets(Feuille).Cells(Ligne, 3) = k
                Sheets(Feuille).Cells(Ligne, 4).Interior.Color = _
                    RGB(i, j, k)
                If Ligne = 1048576 Then
                    Ligne = 1
                    Feuille = Feuille + 1
                Else
                    Ligne = Ligne + 1
                End If
            Next k
        Next j
    Next i
    Application.ScreenUpdating = True
End Sub

Edit : en mettant la 4ème colonne dans la couleur ça donne ça

 

[kealkeal]

Re : Création d'une table automatique

Ce code ne me donne rien.

Il semble ne pas fonctionner.🙁

Si quelqu'un a une idée pour résoudre mon probleme, je suis preneur.🙂

 

[Pierrot93]

Re : Création d'une table automatique

Bonjour,

Il semble ne pas fonctionner.

cela veut dire quoi ? message d'erreur ou pas le résultat attendu ?

 

[kealkeal]

Re : Création d'une table automatique

Apres avoir mis en place code il ne se passe rien.

Le sablier apparait et Excel se gèle.