Recupéré le texte et sa couleur de fond

**straipe** · 18/02/2016, 20h43

Bonjour,

J'ai ce code qui me permet de chercher des produits dans le classeurs, si il les trouvent il me copie la valeur du texte qui est dans la case dans un autre onglet, j'aimerais aussi récupéré la couleur de la case en + du texte, mais je ne vois pas trop ou je pourrais l'ajouter

Merci d'avance

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
With Worksheets("Panier")
    'On se place sur B9
    Set oRng = .Range("B9")
    'On parcours de B9 à la dernière ligne non-vide
    For i = 0 To .Cells(.Rows.Count, 1).End(xlUp).Row - 1
        'Si on trouve "Tablette" ou "Produits" (on peut enlever le LCase si souhaité)
        'If LCase(oRng.Offset(i, 0)) = "Tablette" Or LCase(oRng.Offset(i, 0)) = "Produits" Then
         If oRng.Offset(i, 0) = "Tablette" Or oRng.Offset(i, 0) = "Produits" Then
            'On vérifie qu'on a des éléments à sa droite
            If .Cells(oRng.Offset(i, 1).Row, .Columns.Count).End(xlToLeft).Column >= oRng.Offset(i, 1).Column Then
                'Si oui, on récupère la range des valeurs
                Set oProd = Range(oRng.Offset(i, 1), .Cells(oRng.Offset(i, 1).Row, .Columns.Count).End(xlToLeft))
                'qu'on parcours.
                For Each oCell In oProd
                    'Si on trouve quelque chose
                    If oCell <> "" Then
                        n = n + 1
                        'on sauvegarde les éléments.
                        ReDim Preserve oTable(1 To 2, 1 To n)
                        oTable(1, n) = oCell
                        oTable(2, n) = oCell.Offset(1, 0)
                    End If
                Next oCell
            End If
        End If
    Next i
End With

**Gdal** · 18/02/2016, 21h41

Salut,

Ici je pense, il faut redimensionner le tableau à 3

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
ReDim Preserve oTable(1 To 3, 1 To n)
oTable(1, n) = oCell
oTable(2, n) = oCell.Offset(1, 0)
oTable(3, n) = oCell.Color

Gdal

**straipe** · 18/02/2016, 21h49

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
ReDim Preserve oTable(1 To 3, 1 To n)
oTable(1, n) = oCell
oTable(2, n) = oCell.Offset(1, 0)
oTable(1, n) = oCell.Color

Est-ce que cette ligne devrait être à 3 au lieu de 1? oTable(1, n) = oCell.Color.

Merci
(dans les 2 cas j'ai une erreur)

**Gdal** · 18/02/2016, 21h59

Les messages se sont croisés. Il y avait effectivement une erreur dans mon 1er post.

**straipe** · 18/02/2016, 22h09

Merci pour la correction,

Est-ce que je devrais définir oCell.Color dans les variables?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub Recherche()
'Déclaration des variables
Dim oRng As Range
Dim i As Integer, n As Integer
Dim oProd As Range, oCell As Range
Dim oTable() As String

**Gdal** · 18/02/2016, 22h23

Je viens d'essayer:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
'on sauvegarde les éléments.
ReDim Preserve oTable(1 To 3, 1 To n)
oTable(1, n) = oCell
oTable(2, n) = oCell.Offset(1, 0)
oTable(3, n) = oCell.DisplayFormat.Interior.Color
Debug.Print oRng.Offset(i, 0) & " - " & oTable(1, n) & " - " & oTable(2, n) & " / " & oCell.Offset(1, 0).AddressLocal & " - " & oTable(3, n)

Fonctionne!
La ligne debug.print est utilisée pour le débugger (Affichage / Fenêtre d'exécution)

Gdal

**straipe** · 18/02/2016, 22h34

Merci,

Je n'ai plus d'erreurs, tout fonctionne comme avant, mais sans que les couleurs apparaissent dans l'autre onglet malheureusement

Je vais mettre le code au complet au lieu de juste une partie, ça ne peut pas nuire.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
Sub Recherche()
'Déclaration des variables
Dim oRng As Range
Dim i As Integer, n As Integer
Dim oProd As Range, oCell As Range
Dim oTable() As String
 
'Avec Feuil5 (feuille de données)
 
With Worksheets("Panier")
    'On se place sur B9
    Set oRng = .Range("B9")
    'On parcours de A1 à la dernière ligne non-vide
    For i = 0 To .Cells(.Rows.Count, 1).End(xlUp).Row - 1
        'Si on trouve "Tablette" ou "Produits" (on peut enlever le LCase si souhaité)
        'If LCase(oRng.Offset(i, 0)) = "Tablette" Or LCase(oRng.Offset(i, 0)) = "Produits" Then
         If oRng.Offset(i, 0) = "Tablette" Or oRng.Offset(i, 0) = "Produits" Then
            'On vérifie qu'on a des éléments à sa droite
            If .Cells(oRng.Offset(i, 1).Row, .Columns.Count).End(xlToLeft).Column >= oRng.Offset(i, 1).Column Then
                'Si oui, on récupère la range des valeurs
                Set oProd = Range(oRng.Offset(i, 1), .Cells(oRng.Offset(i, 1).Row, .Columns.Count).End(xlToLeft))
                'qu'on parcours.
                For Each oCell In oProd
                    'Si on trouve quelque chose
                    If oCell <> "" Then
                        n = n + 1
                        'on sauvegarde les éléments.
                        ReDim Preserve oTable(1 To 3, 1 To n)
                        oTable(1, n) = oCell
                        oTable(2, n) = oCell.Offset(1, 0)
                        oTable(3, n) = oCell.DisplayFormat.Interior.Color
                        'Debug.Print oRng.Offset(i, 0) & " - " & oTable(1, n) & " - " & oTable(2, n) & " / " & oCell.Offset(1, 0).AddressLocal & " - " & oTable(3, n)
 
                    End If
                Next oCell
            End If
        End If
    Next i
End With
 
'Avec Feuil6 (feuille de résultats)
With Worksheets("Resultats")
    'On se place après la dernière cellule non-vide de la colonne 1
    Set oRng = .Cells(.Rows.Count, 2).End(xlUp)
    'et on y écrit les résultats.
    For i = LBound(oTable, 2) To UBound(oTable, 2)
        oRng.Offset(i, 0) = oTable(1, i)
 
'On ne déplace ici plus de 1 mais de 3 colonnes l'écriture des résultats.
        oRng.Offset(i, 3) = oTable(2, i)
            Next i
End With
 
 
End Sub

Nom : panier.JPG
Affichages : 227
Taille : 41,2 Ko

**Gdal** · 18/02/2016, 22h49

Au début je pensais qu'il suffisait de faire l'opération inverse. Seulement DisplayFormat.Interior.Color est lecture seule...
Dans les 2 partie du code, .Interior.Color suffit:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

oTable(3, n) = oCell.Interior.Color

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

oRng.Offset(i, 3).Interior.Color = oTable(3, i)

Gdal

**straipe** · 18/02/2016, 23h07

De plus en plus près, il ne manque pas grand chose, soit la couleur doit etre sur la colonne 2, mais le texte doit rester également

Nom : presque.JPG
Affichages : 181
Taille : 56,5 Ko

Nom : presque.JPG
Affichages : 181
Taille : 56,5 Ko

merci de ton aide en passant très apprécié

**Gdal** · 19/02/2016, 13h17

Bonjour,

Pour avancer il faut aussi chercher à comprendre le code...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
'et on y écrit les résultats.
    For i = LBound(oTable, 2) To UBound(oTable, 2)
        oRng.Offset(i, 0) = oTable(1, i)

En modifiant la valeur de offset? 3->0

Gdal

**MarcelG** · 19/02/2016, 13h50

Bonjour,

Je me permets.

Le report d'une variable Tableau sur une feuille de travail peut s'effectuer en une seule ligne à l'aide des méthodes
Resize et WorkheetFunction.Transpose
(éventuellement .Offset)

Exemple à adapter à ton cas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("lesrésultats").Range("A3").Resize(Ubound(montablo,2), Ubound(montablo,1)) =WorksheetFunction.Transpose(montablo)

Dans la méthode Resize, les index Ubound sont inversés afin d'assurer la concordance avec la fonction Transpose

**straipe** · 19/02/2016, 16h21

Envoyé par Gdal

Au début je pensais qu'il suffisait de faire l'opération inverse. Seulement DisplayFormat.Interior.Color est lecture seule...
Dans les 2 partie du code, .Interior.Color suffit:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

oTable(3, n) = oCell.Interior.Color

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

oRng.Offset(i, 3).Interior.Color = oTable(3, i)

Gdal

Je pensais je devais remplacer cette ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

oRng.Offset(i, 3) = oTable(2, i)

par celle que tu m'as donné... ça fonctionne maintenant

Merci

**MarcelG** · 19/02/2016, 16h27

Salut,

As-tu adapté la méthode que j'ai formulée pour informer ta feuille de résultats à partir de ta variable Tableau?
Je te conseille de la comprendre PUIS de l' appliquer.
Reviens si nécessaire.

**straipe** · 19/02/2016, 16h34

Je suis encore au stade très débutant...donc oui je vais essayer de la décoder et la réessayer

Merci

Recupéré le texte et sa couleur de fond

Macros et VBA Excel

Discussions similaires

Partager

Partager