Création d'une table automatique

tototiti2008

XLDnaute Barbatruc

• 10 Février 2011

• #2

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 ?

 

Vote positif 0 Vote négatif

K

kealkeal

Guest

• 10 Février 2011

• #3

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 ? 🙄

 

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

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 10 Février 2011

• #4

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
@+

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 10 Février 2011

• #5

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

 

Vote positif 0 Vote négatif

K

kealkeal

Guest

• 10 Février 2011

• #6

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 !

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 10 Février 2011

• #7

Re : Création d'une table automatique

Re,

regarde peut être ceci :

Code:

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

@+

 

Vote positif 0 Vote négatif

K

kealkeal

Guest

• 10 Février 2011

• #8

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 10 Février 2011

• #9

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

 

Vote positif 0 Vote négatif

K

kealkeal

Guest

• 10 Février 2011

• #10

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 ? 🙄

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 10 Février 2011

• #11

Re : Création d'une table automatique

Re,

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

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 10 Février 2011

• #12

Re : Création d'une table automatique

Bonjour Pierrot,
Re,

trés fortement inspiré du code de Pierrot

Code:

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

 

Dernière édition: 10 Février 2011

Vote positif 0 Vote négatif

K

kealkeal

Guest

• 11 Février 2011

• #13

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 11 Février 2011

• #14

Re : Création d'une table automatique

Bonjour,

Il semble ne pas fonctionner.

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

K

kealkeal

Guest

• 11 Février 2011

• #15

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.

 

Vote positif 0 Vote négatif