Trouver couleur index colonnes avec volet VBA tout en bas où il y a éxécution?

Bonjour le forum,
J'ai des colonnes de couleur et j'avais vu sur le forum qu'on pouvait le trouver comme décrit dans le titre.
Je sais qu'on met un point d'intérrogation et...je sais plus!!!
Si quelqu'un connaît pourrait-il faire partager son savoir?
Merci pour vos éventuels retours
Bonne fin de soirée

Bonjour,

Dans la fenêtre d'exécution :

Code:

---

1 2	?Range("A1").Interior.ColorIndex

---

puis "Entrée"

Bonjour Theze,
SUPER.
C'est pour une ligne entière avec 9 colonnes.
A+

J'ai modifié le nom de la cellule à chaque fois effectivement ça fonctionne.
Pas mieux?
Merci à toi c'est super.
Bonne journée
Bien cordialement

Tu as tout aussi vite fais de faire une petite sub et inscrire le résultat dans la fenêtre d'exécution :

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub Test()   Dim I As Integer   For I = 1 To 9 Debug.Print Cells(1, I).Interior.ColorIndex; Cells(1, I).Address(0, 0) Next I   End Sub

---

Bonsoir Thez,
SUPER j'ai adapté mon classeur.
Encore un GRAND merci.
Bonne fin de soirée.
Bien cordialement

Bonjour Theze,
Tout fonctionne parfaitement bien
Une toute petite précision.
Peut-on mettre un peu d'espace entre le résultat du code et le nom de la cellule?
Voir code et résultat ci-dessous:

Code:

---

1 2 3 4 5 6 7 8 9

Sub CodeCouleurExecution() 'Résultat dans Fenêtre Exécution Tout en bas   Dim I As Integer   For I = 1 To 5 '5 = Nombre de colonnes Debug.Print Cells(3, I).Interior.ColorIndex; Cells(3, I).Address(0, 0) ' 3 = Numéro de Ligne Next I   End Sub

---

36 A3
35 B3
40 C3
36 D3
35 E3

Merci ton éventuelle réponse.
Bonne journée à toi
Bien Cordialement

Bonjour,

Comme ça ?

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub CodeCouleurExecution() 'Résultat dans Fenêtre Exécution Tout en bas   Dim I As Integer   For I = 1 To 5 '5 = Nombre de colonnes Debug.Print Cells(3, I).Interior.ColorIndex; " "; Cells(3, I).Address(0, 0) ' 3 = Numéro de Ligne Next I   End Sub

---

mais tu peux aussi faire ceci avec la fonction Space :

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub CodeCouleurExecution() 'Résultat dans Fenêtre Exécution Tout en bas   Dim I As Integer   For I = 1 To 5 '5 = Nombre de colonnes Debug.Print Cells(3, I).Interior.ColorIndex; Space(10); Cells(3, I).Address(0, 0) ' 3 = Numéro de Ligne Next I   End Sub

---

Bonjour Theze,
Eh! oui c'est évident une fois fait par un pro!!!
Ou alors ça. Une , après ColorIndex.

Code:

---

1 2 3 4 5 6 7 8

Sub CodeCouleurVoletExecution()   Dim I As Integer   For I = 1 To 5 '5 = Nombre de colonnes Debug.Print Cells(3, I).Interior.ColorIndex, Cells(3, I).Address(0, 0) '3 = Numéro de Ligne.   End Sub

---

Merci pour ton implication car ça va me servir de nombreuses fois.
Bonne fin de journée
Bien cordialement