Renseignements macro

Re : Renseignements macro

Bonsoir essaie et complète cette macro.
Les noms d'animaux en colonne A, les couleurs sont mises en colonne B

Sub test()
For i = 1 To Range("A1").End(xlDown).Row

Cells(i, 1).Select
Call couleur

Next i

End Sub
'______________________________________________________________________
Sub couleur()
animal = ActiveCell.Value
Select Case animal

Case "chien"
coul = 3
GoTo remplir

Case "chat"
coul = 6
GoTo remplir

Case "oiseau"
coul = 9
GoTo remplir

'******** etc...

End Select

remplir:
With ActiveCell.Offset(0, 1).Interior
.ColorIndex = coul
.Pattern = xlSolid
End With
End Sub

Cliquez pour agrandir...

Re : Renseignements macro

Merci,

Mais dit moi, je doit remplacer par quoi les chiffres qui se situe à coté des couleur?
le mot "remplir" ça passe sous VBA

Merci a toi

Re : Renseignements macro

Re,
le chiffre correspond à une couleur (6 jaune, 3 rouge, etc..)
à toi de voir les couleurs que tu veux.

Le mot remplir n'est pas une instruction VBA mais le nom que j'ai donné à la sous-routine,
mais tu peux remplacer par un autre mot (colorier, toto, ironangel , truc ...)

Re : Renseignements macro

Salut l'ami,
J'ai un soucis, quand je veux executer ton code, je n'y arrive pas, il est défini en 2 macro, ce n'est pas possible en une seule?
j'aimerais également qu'elle puisse s'éxécuter automatiquement, sans devoir passer par l'executeur de macro

Peux tu m'aider?

Tu trouveras, ci-dessous mon code que j'ai changé à ma sauce


Sub Dénomination_fab()
'
For i = 1 To Range("C4").End(x4Down).Row

Cells(i, 4).Select
Call couleur

Next i

End Sub
'_________________________________________________ _____________________
Sub couleur()
Squelette = ActiveCell.Value
Select Case Squelette

Case "SIPC2"
coul = rouge
GoTo remplir

Case "SIPC3"
coul = orange
GoTo remplir

Case "SIPC4"
coul = jaune
GoTo remplir

'******** etc...

End Select

remplir:
With ActiveCell.Offset(0, 1).Interior
.ColorIndex = coul
.Pattern = xlSolid
End With
End Sub

Re : Renseignements macro

Salut ironangel,
le fait d'avoir 2 macros ne change rien, il suffit de lancer
la macro Dénomination_fab
J'ai remplacé dans tes modifs x4Down par Xldown avec un l comme louis
aprés le X. Je pense que c'est pour çà que tu n'y arrivais pas.
Excel reconnait les couleurs par des nombres, ne pas mettre le nom de la couleur. J' ai joint la liste des couleurs avec leurs codes.

j'aimerais également qu'elle puisse s'éxécuter automatiquement,
sans devoir passer par l'executeur de macro

Cliquez pour agrandir...

Si tu veux dire à l'aide d'un bouton, j'ai rajouté ce bouton, sinon il faudra placer la macro ailleurs.
Regarde la pièce jointe Classeur1.xls