Choisir couleurs

Le
Guy85
Bonjour,
Actuellement, je choisis la couleur de ces cellules avec une liste
déroulante en J3.

If Not Intersect(Target, [J3]) Is Nothing And Target.Count = 1 Then
[D5:AJ6,D7:H9,V7:AK9,D10:AK11].Interior.ColorIndex = [J3]
[D11:I44,U12:AK44,J43:T44,AK5:AW44,J12:J42,T12:T42].Interior.ColorIndex
= [J3]
[K12:K42,M12:M42,O12:O42,Q12:Q42,S12:S42,AZ33,AZ35,AZ37,AZ39,AZ41].Interior.ColorIndex
= [J3]
[J13:T13,J15:T15,J17:T17,J19:T19,J21:T21,J23:T23,J25:T25,J27:T27,J29:T29].Interior.ColorIndex
= [J3]
[J31:T31,J33:T33,J35:T35,J37:T37,J39:T39,J41:T41].Interior.ColorIndex =
[J3]
[J12:AH43].Copy Destination:=[BM12]
End If

Est-il possible de faire apparaître la table des couleurs et de choisir la
couleur pour ces cellules avec un bouton ?
Comme l'icone de la barre d'outils.
Si oui mettre l'image de l'icone sur le bouton.
Une idée ?

Cordialement
Guy
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
michdenis
Le #21561041
Bonjour,

Une façon de faire proposée par J. Walkenbach à adapter !

http://cjoint.com/?epnpQyJqPr




"Guy85"
Bonjour,
Actuellement, je choisis la couleur de ces cellules avec une liste
déroulante en J3.

If Not Intersect(Target, [J3]) Is Nothing And Target.Count = 1 Then
[D5:AJ6,D7:H9,V7:AK9,D10:AK11].Interior.ColorIndex = [J3]
[D11:I44,U12:AK44,J43:T44,AK5:AW44,J12:J42,T12:T42].Interior.ColorIndex
= [J3]
[K12:K42,M12:M42,O12:O42,Q12:Q42,S12:S42,AZ33,AZ35,AZ37,AZ39,AZ41].Interior.ColorIndex
= [J3]
[J13:T13,J15:T15,J17:T17,J19:T19,J21:T21,J23:T23,J25:T25,J27:T27,J29:T29].Interior.ColorIndex
= [J3]
[J31:T31,J33:T33,J35:T35,J37:T37,J39:T39,J41:T41].Interior.ColorIndex [J3]
[J12:AH43].Copy Destination:=[BM12]
End If

Est-il possible de faire apparaître la table des couleurs et de choisir la
couleur pour ces cellules avec un bouton ?
Comme l'icone de la barre d'outils.
Si oui mettre l'image de l'icone sur le bouton.
Une idée ?

Cordialement
Guy
Guy85
Le #21568551
Bonjour,
Merci pour le fichier, c'est un peu ça qu'il me faut.
Il y a juste une partie de code qu'il faudrait adapter.
J'ai mis ce code dans un post "Remplacement dans code"
Cordialement
Guy

"michdenis"
Bonjour,

Une façon de faire proposée par J. Walkenbach à adapter !

http://cjoint.com/?epnpQyJqPr




"Guy85" discussion :

Bonjour,
Actuellement, je choisis la couleur de ces cellules avec une liste
déroulante en J3.

If Not Intersect(Target, [J3]) Is Nothing And Target.Count = 1 Then
[D5:AJ6,D7:H9,V7:AK9,D10:AK11].Interior.ColorIndex = [J3]
[D11:I44,U12:AK44,J43:T44,AK5:AW44,J12:J42,T12:T42].Interior.ColorIndex
= [J3]

[K12:K42,M12:M42,O12:O42,Q12:Q42,S12:S42,AZ33,AZ35,AZ37,AZ39,AZ41].Interior.ColorIndex
= [J3]

[J13:T13,J15:T15,J17:T17,J19:T19,J21:T21,J23:T23,J25:T25,J27:T27,J29:T29].Interior.ColorIndex
= [J3]
[J31:T31,J33:T33,J35:T35,J37:T37,J39:T39,J41:T41].Interior.ColorIndex > [J3]
[J12:AH43].Copy Destination:=[BM12]
End If

Est-il possible de faire apparaître la table des couleurs et de choisir la
couleur pour ces cellules avec un bouton ?
Comme l'icone de la barre d'outils.
Si oui mettre l'image de l'icone sur le bouton.
Une idée ?

Cordialement
Guy

Publicité
Poster une réponse
Anonyme