Discussion :

[straipe]

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]

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]

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]

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

[straipe]

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]

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