Discussion :

[sharox]

Bonjour a tous,
Je vient vers vous car j'ai un petit problème,
Il y a plus d'un mois j'ai crée une multitude de programme vba excel
et hier je me suis rendu compte que ce que j'avais fait n'était pas tout a fait correcte

en gros mon programme va chercher une référence dans une base de donnée et importe le prix liée a cette référence,
Et il y a quelque référence dont je ne dois pas importer le prix

Pour ne pas que mon programme importe le prix pour ces référence j'ai mis la fond des cellules en couleur jaune (6) et je voudrait faire :
Si le fond de la cellule est jaune, alors on laisse tomber cette cellules
^^ bien sur ceci est en Français te je voudrait le mettre sous langage vba

Voici mon programme :

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
    Dim Fichier As String
    Fichier = Dossier_FOP
        Sheets("Départs").Select
 
  'Ouverture du fichier de prix (en caché)
        Dim xlApp As Object
        Set xlApp = CreateObject("Excel.Application")
        Dim xlWk As Workbook
        Set xlWk = xlApp.Workbooks.Open(Chemin_dossier_sources & Dossier_sources)
        Dim xlWs As Worksheet
        Set xlWs = xlWk.Worksheets(1)
        xlApp.Visible = True 
 
    For i = 11 To 81 Step 5
        Dim rngArticle As Range
        Dim myWs As Worksheet
        Set myWs = ThisWorkbook.ActiveSheet
        DerLig = myWs.Cells(Rows.Count, i).End(xlUp).Row 
    Set rngArticle = myWs.Range(myWs.Cells(4, i), myWs.Cells(DerLig, i))
 
        'Recherche de l'article dans l'autre fichier
        Dim rngArticleRecherche As Range
        Set rngArticleRecherche = xlWs.Range(xlWs.Range("A2"), xlWs.Range("A65536").End(xlUp))
 
        Dim rngRefTrouve As Range
        Dim cell As Range
 
        For Each cell In rngArticle
            Set rngRefTrouve = rngArticleRecherche.Find(cell.Value, , xlValues, xlWhole)
            If rngRefTrouve Is Nothing Then
            Else
                cell.Offset(, 1).Value = rngRefTrouve.Offset(, 1).Value
            End If
        Next
    Next
 
 
    'Libération des ressources (fermeture du fichier caché)
    Set xlWs = Nothing
    xlWk.Close (False)
    Set xlWk = Nothing
    xlApp.Quit
    Set xlApp = Nothing
End Sub

Cordialement !!
Et merci d'avance
(si vous trouvez qu'il manque d'explication, dites le, j'essayerais de répondre dans de bref délais)

[electrons]

Bonsoir,

Tu pourrais essayer d'inclure un code du style

Code :

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

If Cells(i, j).Interior.ColorIndex = 27 Then

Le code 27 est pour le jaune foncé mais tu pourrais trouver le code avec la création d'une macro avec enregistrement et en sélectionnant le jaune que tu as choisi. En visualisant la macro, tu auras le code exacte.

[sharox]

Oki merci bien, je vais tester ceci et je revient après pour vous dire quoi !!

Et effectivement cela ne fonctionne pas
A chaque fois il y a des couilles avec moi

[nibledispo]

Bonjour,

As tu essayé ceci en ligne 30 :

Code :

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

1
2
If rngRefTrouve Is Nothing Or rngRefTrouve.Interior.ColorIndex = 6 Then

Cordialement,

[sharox]

Bonjour,

Oui je vient de l'essayé ce matin et il me met :
Variable objet ou variable de bloc with non définie
je ne comprend pas trop -_-

Merci pour les réponses jusque la !!

Personnellement je pense qu'il faut mettre le filtre (ce que je recherche a faire) avant la ligne 30
plutôt a ce niveau la :

Code :

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

1
2
Derlig = myWs.Cells(Rows.Count, i).End(xlUp).Row
        Set rngArticle = myWs.Range(myWs.Cells(4, i), myWs.Cells(Derlig, i))

Car c'est ces cellules qui sont mis en jaune.

Cordialement et encore merci

[Menhir]

Tu pourrais peut-être commencer par faire une mini-macro avec dedans un :

Code :

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

Debug.Print Cells(i, j).Interior.ColorIndex

Pour connaître la vraie valeur de TON jaune (en remplaçant i et j par les coordonnées d'une de tes cellules jaunes).

Et tant que tu y es, ajouter quelques autres Debug.Print pour savoir si ton jaune ne serait pas du à d'autres propriétés de Interior. Par exemle

Code :

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

1
2
3
4
5
6
7
8
Debug.Print Cells(i, j).Interior.PatternColor[
Debug.Print Cells(i, j).Interior.PatternColorIndex
Debug.Print Cells(i, j).Interior.PatternThemeColor
Debug.Print Cells(i, j).Interior.ThemeColor
Debug.Print Cells(i, j).Interior.InvertifNegative
Debug.Print Cells(i, j).Interior.GradientStyle
Debug.Print Cells(i, j).Interior.GradientType
Debug.Print Cells(i, j).Interior.GradientColorType