XL 2016 Mettre la même couleur de la dernière cellule colorée

[piga25]

Bonjour,
Je n'arrive pas a avoir automatiquement la couleur de la dernière cellule colorée de la même ligne en colonne D.
Exemple du résultat attendu en ligne 12 sur le fichier
En vous remerciant.

Sub Essai()
  Dim dcl%, col%, dlg&, lig&
  dcl = Cells(11, Columns.Count).End(1).Column: Application.ScreenUpdating = 0
  'dlg = Cells(Rows.Count, 1).End(3).Row
  For lig = 13 To 38 'dlg
    For col = dcl To 26 Step -1
      If Cells(lig, col).Interior.Color = 8454016 Or 45850 Or 8441087 Then
        Cells(lig, 4).Interior.Color = Cells(lig, col).Interior.Color: Exit For
      End If
    Next col
  Next lig
End Sub

 

[piga25]

RE
J'ai avancé un peu, par contre cela ne me prend pas la couleur sur la dernière cellule de la ligne mais sur la première. Comment faire pour avoir la dernière de la colonne.

Sub Essai()
Dim ligne&, lastcol%, i%
lastcol = Cells(11, Columns.Count).End(xlToLeft).Column
For ligne = 13 To 28
    For i = lastcol To 1 Step -1
        If Cells(ligne, i).Interior.Color <> RGB(255, 255, 255) Then
        Cells(ligne, 4).Interior.ColorIndex = Cells(ligne, i).Interior.ColorIndex
    End If
        Next i
        Next ligne
End Sub

 

[Dranreb]

Bonsoir.

Comment faire pour avoir la dernière de la colonne.

Mais vous l'avez, quand vous passez dessus. Mais comme vous ne faite alors plus Exit For, vous avez ensuite la précédente etc. jusqu'à la 1, qui est la dernière retenue au bout du compte !

 

[TooFatBoy]

Bonjour,

Exemple du résultat attendu en ligne 12 sur le fichier

Tu n'as pas posté le bon fichier : la ligne 12 est vide, la ligne 11 aussi est vide donc dcl vaut 1, et il n'y a aucune macro nommée "Essai".

 

[piga25]

Bonsoir,

Mais vous l'avez, quand vous passez dessus. Mais comme vous ne faite alors plus Exit For, vous avez ensuite la précédente etc. jusqu'à la 1, qui est la dernière retenue au bout du compte !

Bien vu, voici le code qui fonctionne.

Public Sub Essai()
Dim ligne&, dcl%, i%
dcl = Cells(11, Columns.Count).End(1).Column: Application.ScreenUpdating = 0
For ligne = 13 To 28

   For i = dcl To 1 Step -1
        If Cells(ligne, i).Interior.color <> RGB(255, 255, 255) Then
        Cells(ligne, 4).Interior.ColorIndex = Cells(ligne, i).Interior.ColorIndex: Exit For
    End If
        Next i
        Next ligne
End Sub

Tu n'as pas posté le bon fichier : la ligne 12 est vide, la ligne 11 aussi est vide donc dcl vaut 1, et il n'y a aucune macro nommée "Essai".

Effectivement, je me trompé de fichier, le bon est ci-dessous et cela fonctionne.

Merci à vous et au plaisir de vous lire.

Il me reste à l'adapter dans le bon fichier. J'ai quatre colonnes qui doivent recevoir le résultat et chacune à la possibilité de 3 à 4 couleurs.

 

[TooFatBoy]

Tu testes .Interior.color <> RGB(255, 255, 255)
ne vaut-il pas mieux tester .Interior.Pattern <> xlNone ?