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

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion piga25
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

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

Trier par date Trier par votes
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
 
Vote positif 0 Vote négatif
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 !
Cliquez pour agrandir...
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".
Cliquez pour agrandir...
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

Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
XL 2019 Fusionner jusqu'à dernière colonne contenant
Réponses
8
Affichages
668
TooFatBoy
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
1 K
Nicolas JACQUIN
  • Question Question
Microsoft 365 Copie de couleur d'une cellule à une autre
Réponses
11
Affichages
612
Dranreb
A
  • Résolu(e)
XL 2016 Recherche d'un mot dans une cellule et surlignage de la ligne
Réponses
4
Affichages
66
Abi23
A
F
  • Question Question
Microsoft 365 aide VBA excel
Réponses
4
Affichages
332
Oneida
  • Question Question
XL 2016 Protéger Plage avec condition
2
Réponses
16
Affichages
947
Amigo
M
  • Question Question
Microsoft 365 Modifier code et format textbox
2 3
Réponses
35
Affichages
2 K
Marvin57
M
L
  • Résolu(e)
Microsoft 365 Suppression de cellules vide
Réponses
3
Affichages
437
Le Rouky
L
D
  • Question Question
XL 2010 Recherche cellule vide sur une ligne
Réponses
9
Affichages
332
job75
N
  • Résolu(e)
Microsoft 365 Mettre la 4ème colonne d'une ListBox au format [h]:mm
3 4 5
Réponses
68
Affichages
2 K
NONO14
N
N
  • Question Question
Microsoft 365 Aide adaptation d'une macro
Réponses
2
Affichages
285
netparty
N
  • Question Question
XL 2019 code pour tous les disques
Réponses
3
Affichages
569
AtTheOne
D
  • Question Question
Microsoft 365 Dupliquer des lignes dans une autre feuille avec une condition
2
Réponses
26
Affichages
2 K
de_hanstrapp
D
E
  • Résolu(e)
XL 2019 inserer une valeur textbox dans la dernière cellule vide horizontalement
Réponses
7
Affichages
594
escudo
E
C
  • Question Question
XL 2016 VBA - Mettre en Indice une partie du contenu d'une cellule : problème avec la propriété Font.Subscript
Réponses
2
Affichages
69
crocrocro
C
A
  • Question Question
VBA qui fonctionnait avant, mais ne fonctionne plus avec le 64 bits
Réponses
2
Affichages
192
patricktoulon
D
  • Question Question
XL pour MAC [RESOLU]Cacher ou afficher colonnes, sauf colonne selectionné
Réponses
9
Affichages
949
Dudy
D
M
  • Question Question
Microsoft 365 Création fichier texte
2
Réponses
15
Affichages
662
patricktoulon
  • Question Question
XL 2021 Création et adaptation barre de progression
2 3
Réponses
44
Affichages
1 K
Tartine
T
R
  • Résolu(e)
XL 2019 Dégradé de couleurs en fonction des couleurs contenues dans 2 cellules
2
Réponses
17
Affichages
1 K
Dranreb
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…