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

 

[Delorme]

@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

les deux marchent
formidable
merci

 

[Delorme]

@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

les deux marchent
impec
juste j'aurais souhaite rentre moi même les numéros de couleur de la colonne A
et non pas lister toutes les couleurs
Exemple colonne A A1=5
A2=8
A3= 45 et voir seulement ces couleurs affichees en actionnant la macro
merci

 

[Staple1600]

Re

Dans ce cas, utilises le code ci-dessous
A mettre dans le code de la feuille (pas dans un module standard)
(Clic-droit sur l'onglet et Visualiser le code)

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("A1:A56"), Target) Is Nothing Then
Select Case Target.Value
Case 1 To 56
Target.Interior.ColorIndex = Target.Value
Case Else
Exit Sub
End Select
End If
End Sub

 

[Delorme]

je ne sais si tu as eu ma reponse
je ne la vois pas a l'écran
les deux marchent impec
seulement j'aurais aime rentrer les codes dans la colonne A pas forcement tous et voir les couleurs dans la colonne B après avoir actionne la macro

 

[Staple1600]

@Delorme

Tu n'as pas vu le message N°18 ?
(avec une nouvelle macro dans celui-ci)

 

[Delorme]

Je viens de le voir
J'aimerais avoir une macro a mettre dans un module
je ne sais comment employer cette macro et je n'arrive pas à l'appliquer

 

[Staple1600]

Re,

@Delorme
Comme expliqué il faut la mettre dans le module de la feuille
Dans Excel, faire un clic-droit sur l'onglet (en bas) et choisir Visualiser le code
Exemple ici sur un Excel Windows

C'est dans la fenêtre blanche qui s'ouvrira qu'il faut copier ma dernière macro.

Ensuite, quand tu saisiras un nombre entre 1 et 56 dans la colonne A
(dans les cellules A1 à A56), le changement de couleur sera automatique.

 

[Delorme]

merci
1)mais la couleur s'affiche dans la colonne A sur le numéro tapé et non pas dans la colonne B
2). pas possible de faire une macro dans module?
merci beaucoup

 

[Staple1600]

@Delorme
Pour un affichage dans de la couleur en B
Utilises cette versions

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("A1:A56"), Target) Is Nothing Then
Select Case Target.Value
Case 1 To 56
Target.Offset(, 1).Interior.ColorIndex = Target.Value
Case Else
Exit Sub
End Select
End If
End Sub

NB:
Private Sub Worksheet_Change(ByVal Target As Range)
C'est ce qu'on appelle une procédure évènementielle (liée à la feuille)
Donc le code VBA est dans le module de la feuille concernée
(Pas dans ce qu'on appelle un module standard)

 

[Delorme]

@Delorme
Pour un affichage dans de la couleur en B
Utilises cette versions

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("A1:A56"), Target) Is Nothing Then
Select Case Target.Value
Case 1 To 56
Target.Offset(, 1).Interior.ColorIndex = Target.Value
Case Else
Exit Sub
End Select
End If
End Sub

NB:
Private Sub Worksheet_Change(ByVal Target As Range)
C'est ce qu'on appelle une procédure évènementielle (liée à la feuille)
Donc le code VBA est dans le module de la feuille concernée
(Pas dans ce qu'on appelle un module standard)

 

[Staple1600]

Re

@Delorme
Tu cites mon dernier message
Mais il n'y a pas ta réponse
(sans doute une fausse manip)