Copie d'une image pixel art

Version imprimable

Bonjour,
je dispose d'une feuille de mon classeur contenant des cellules coloriées et dimensionnées à un certain format formant ainsi une image.

j'aimerais avoir le loisir de stocker les informations de la construction de l'image, pour cela 2 étapes:

1- Stocker le formatage de la hauteur des lignes et de la largeur des colonnes (plutôt simple)

2- Stocker la position et la couleur enregistrée de chaque cellule coloriée

pour le 2 - ce que j'essaie de mettre en œuvre est une collection d'objet de type "Range" (contenant donc la couleur de la cellule) que je retranscrit dans un onglet, colonnes A, B et C contenant respectivement la ligne de la cellule , la colonne de la cellule et la couleur de la cellule

Voici mes questions:

1 - est-ce que ma solution est adaptée à mon problème?

2 - comment récupérer les trois valeurs de chaqu'un de mes objets une fois stocké?

je vous joins le code que j'essaie de faire tourner en vain (ici je tente de récupérer la position et la couleur d' une seule cellule parmi d'autres):
Code:

1 2 3 4 5 6 7 8 9 10 11 Dim rangeCol As New Collection Sub remplir_collection() For Each cels In Sheets("Ecran_principal").range("A1:KR120") rangeCol.Add (cels) Next cels Sheets("Indicateurs").range("A1").Value = rangeCol.Item(35).Row Sheets("Indicateurs").range("B1").Value = rangeCol.Item(35).columnn Sheets("Indicateurs").range("C1").Value = rangeCol.Item(35).Font.color End Sub
le déroulement s'arrête sur la ligne
Sheets("Indicateurs").range("A1").Value = rangeCol.Item(35).Rowet en message j'ai "Objet requis"
je ne comprend pas vraiment ce qu'il se passe. merci de bien vouloir m'aider.

24/12/2012, 15h59
patricktoulon

heu

bonjour

non ce n'est pas bon

rangecol est une colection
il n'a pas de propriété .column ou row ect....

essai avec un tableau a plusieur colonnes
au plaisir

re
d'ailleur il n'est peut etre pas necessaire de memoriser la ligne et la colonne séparément
on peut enregistrer l'adresse de chaque cellule par exemple

tiens voila un exemple

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub remplir_collection()
 Dim tablo(20000, 1) As Variant 'voici un tablo de 20000 ligne a 2 colonnes 1 etant la colonne 2 du tablo ( a retenir!!! )
Dim i As Long
   Sheets("Indicateurs").Columns("A:B").ClearContents 'on efface si il y a deja des données dans les colonnes A et B
    For Each cels In Sheets("Ecran_principal").Range("A1:KR120")'
       i = i + 1
        tablo(i, 0) = cels.Address 'la colonne 0 etant la premiere colonne d'un tablo ( a retenir
    tablo(i, 1) = cels.Font.Color
       Next cels
        'la variable (tablo) contient maintenant toutes les adresse de cellule de ta plage de reference
        Sheets("Indicateurs").Range("A1:b" & UBound(tablo)).Value = tablo
 
End Sub

au plaisir

25/12/2012, 19h44
supierre

en effet, merci de ta réponse. je vais prendre ce que tu m'as donné.
bonnes fêtes