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

piga25 · 31 Mai 2024

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.

VB:

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

Dranreb · 31 Mai 2024

Bonsoir.

piga25 à dit:
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 !

piga25 · 31 Mai 2024

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.

VB:

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 · 31 Mai 2024

Bonsoir.

piga25 à dit:
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 · 31 Mai 2024

Bonjour,

piga25 à dit:
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 · 31 Mai 2024

Bonsoir,

Dranreb à dit:
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.

VB:

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

TooFatBoy à dit:
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 · 31 Mai 2024

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

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

piga25

XLDnaute Barbatruc

Pièces jointes

Dranreb

piga25

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

piga25

XLDnaute Barbatruc

Pièces jointes

TooFatBoy

XLDnaute Barbatruc

Discussions similaires