Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

piga25

XLDnaute Barbatruc
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
 

Pièces jointes

  • Palette saisie couleur modifiable multicellule.xlsm
    45.2 KB · Affichages: 10

piga25

XLDnaute Barbatruc
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
 

piga25

XLDnaute Barbatruc
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.
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
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.
 

Pièces jointes

  • Palette saisie couleur modifiable pour planning.xlsm
    58.6 KB · Affichages: 2

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…