Discussion :

[Un Internaute]

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

[Theze]

Bonjour,

Dans la fenêtre d'exécution :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

puis "Entrée"

[Un Internaute]

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

[Theze]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Un Internaute]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Theze]

Bonjour,

Comme ça ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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