XL pour MAC boucle couleur

[Delorme]

bonjour à tous
debutant mais passionné d'excel , j'ai un problème sur une boucle que je souhaite faire pour afficher des couleurs excel
2 colonnes a et b
1ere colonne a codes couleurs (1 2 3 4 5 6 est
2eme colonne b en faisant ma macro vba, je souhaite afficher dans la colonne b la couleur des codes colonne a
mon essai non fructueux
Sub colori()
Dim mavariable As Variant
Dim col, lig As Variant
col = 1
lig = 1
mavariable = 8
Range("a1").Select
While ActiveCell <> ""
If ActiveCell = mavariable Then
Range("col,lig").Interior.ColorIndex = Range("col,lig").Value (ligne refusée)
col = col + 1
lig = lig + 1
mavariable = mavariable + 1
End If
ActiveCell.Offset(1, 0).Select
'mavariable = mavariable + 1
Wend
End Sub

Help svp
Michel

 

[Dranreb]

Bonjour.
Cells(lig, col) serait correct.
Ça ne sert à rien de sélectionner.

 

[Delorme]

merci de votre réponse, mais ou dois je mettre ces modifications et que dire de la ligne interior corindex refusee
merci beaucoup de me rectifier ma macro

 

[Dranreb]

À la place de Range("col,lig"), bien évidemment.

 

[Delorme]

merci je l'ai fait, mais ma ligne de macro est toujours refusée Cells(col,lig).Interior.ColorIndex = cells("col,lig").Value

 

[Dranreb]

J'ai dit Lig, Col pas "Col,Lig" entre guillemets. Excel ne peut pas interpréter cette constante String comme référence d'une plage.

 

[Delorme]

Cells(lig, col).Interior.ColorIndex = Cells(lig, col).Value
desole ça ne marche pas

 

[Dranreb]

Oui mais ça ne plante plus au moins.

 

[mapomme]

Bonjour @Delorme ,
Bonjour à tous les autres ,

Le but de votre macro n'est pas clair pour moi.

Le plus simple est de fournir un petit fichier exemple avec les données de départ et une colonne montrant le résultat que vous désirez. A quoi sert exactement la variable "mavariable" ?

Quand vous publiez un code :

• cliquer sur le bouton </> quand on vous êtes en mode création ou modification de votre message
• sélectionner le langage (VB par défaut)
• coller votre code
• cliquer sur Continuer

ainsi le code sera plus lisible .

A+

 

[Delorme]

Si c'est toujours surligne en jaune
Pouvez vous me dire aussi si le reste de ma macro est bon
Car ça vient peut être d'autre mauvaise commande
merci d'être compréhensif mais je l'admets mon niveau est faible malgré ma passion pour excel

 

[mapomme]

Si c'est toujours surligne en jaune
Pouvez vous me dire aussi si le reste de ma macro est bon
Car ça vient peut être d'autre mauvaise commande
merci d'être compréhensif mais je l'admets mon niveau est faible malgré ma passion pour excel

Quand on répond à un message, il est préférable d'indiquer à quel répondeur on s'adresse (et avec le début du message auquel on répond, c'est encore beaucoup plus mieux).

Il en est où ce fichier exemple et explicatif ?

Nous sommes impatients de vous aider efficacement ...

 

[Delorme]

Bonjour @Delorme ,
Bonjour à tous les autres ,

Le but de votre macro n'est pas clair pour moi.

Le plus simple est de fournir un petit fichier exemple avec les données de départ et une colonne montrant le résultat que vous désirez. A quoi sert exactement la variable "mavariable" ?

Quand vous publiez un code :

• cliquer sur le bouton </> quand on vous êtes en mode création ou modification de votre message
• sélectionner le langage (VB par défaut)
• coller votre code
• cliquer sur Continuer

ainsi le code sera plus lisible .

A+

merci de votre reponse
je suis un peu perdu
je voudrais une macro qui me permette au regard de la colonne A les codes couleur rentres a1=1
a2=2 jusqu'a 52 ,et de ce fait dans une colonne B afficher la couleur de la cellule pr l'intermédiaire de la macro
c'est pourquoi j'essaie maladroitement de faire une boucle
mavaiable n'est sans doute pas la bonne solution
je crois et j'aimerais voir ma macro refaite

 

[Staple1600]

Bonjour à tous

Ce que j'ai compris

Sub couleurs()
Dim i&
For i = 1 To 56
Cells(i, 1) = i
Cells(i, 2).Interior.ColorIndex = i
Next
End Sub

 

[Delorme]

Quand on répond à un message, il est préférable d'indiquer à quel répondeur on s'adresse (et avec le début du message auquel on répond, c'est encore beaucoup plus mieux).

Il en est où ce fichier exemple et explicatif ?

Nous sommes impatients de vous aider efficacement ...

avec mes remerciements et voir ma macro rectifier

 

[Staple1600]

@Delorme (Bonjour)
Tu as testé la macro que j'ai posté dans le message#13 ?

Tu peux également tester celle-ci. Merci
Et me redire le résultat de ton test.

Sub couleurs_B()
Dim i&, lig&, col&
lig = 2: col = 2
    For i = 1 To 56
        With Cells(lig, col)
            .Value = i
            .Interior.ColorIndex = i
            .Font.Color = vbWhite
            .Font.Bold = True
            .HorizontalAlignment = xlCenter
       End With
        If i > 1 And i Mod 8 = 0 Then
            col = col + 1
            lig = 2
            Else
            lig = lig + 1
        End If
Next
[B2].CurrentRegion.Borders.Value = 1
End Sub