XL pour MAC boucle couleur

Delorme · 30 Octobre 2022

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 · 30 Octobre 2022

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

Delorme · 30 Octobre 2022

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 · 30 Octobre 2022

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

Delorme · 30 Octobre 2022

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

Dranreb · 30 Octobre 2022

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 · 30 Octobre 2022

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

Dranreb · 30 Octobre 2022

Oui mais ça ne plante plus au moins.

mapomme · 30 Octobre 2022

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 · 30 Octobre 2022

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 · 30 Octobre 2022

Delorme à dit:
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 · 30 Octobre 2022

mapomme à dit:
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 · 30 Octobre 2022

Bonjour à tous

Ce que j'ai compris

VB:

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

Delorme · 30 Octobre 2022

mapomme à dit:
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 · 30 Octobre 2022

@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

XL pour MAC boucle couleur

Delorme

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

Delorme

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

Delorme

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

Delorme

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

Delorme

XLDnaute Occasionnel

mapomme

XLDnaute Barbatruc

Delorme

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

Delorme

XLDnaute Occasionnel

Pièces jointes

Staple1600

XLDnaute Barbatruc

Discussions similaires