XL pour MAC boucle couleur

Delorme

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

mapomme

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

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

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

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

Delorme

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

Pièces jointes

  • variable.xlsx
    12.8 KB · Affichages: 2

Staple1600

XLDnaute Barbatruc
@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.
VB:
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
 

Statistiques des forums

Discussions
313 274
Messages
2 096 754
Membres
106 739
dernier inscrit
jcdu16