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 ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
Bonjour,
Une façon de faire proposée par J. Walkenbach à adapter !
http://cjoint.com/?epnpQyJqPr
"Guy85" a écrit dans le message de groupe de 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
Bonjour,
Une façon de faire proposée par J. Walkenbach à adapter !
http://cjoint.com/?epnpQyJqPr
"Guy85" <Guy_Excel_2003@bonjour.fr> a écrit dans le message de groupe de discussion :
OyZPbzG3KHA.5212@TK2MSFTNGP04.phx.gbl...
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 ?
Une façon de faire proposée par J. Walkenbach à adapter !
http://cjoint.com/?epnpQyJqPr
"Guy85" a écrit dans le message de groupe de 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
Guy85
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" a écrit dans le message de news:
Bonjour,
Une façon de faire proposée par J. Walkenbach à adapter !
http://cjoint.com/?epnpQyJqPr
"Guy85" a écrit dans le message de groupe de 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]
[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
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" <michdenis@hotmail.com> a écrit dans le message de news:
7A8F8BA0-2F68-4866-918F-DD619AE2785C@microsoft.com...
Bonjour,
Une façon de faire proposée par J. Walkenbach à adapter !
http://cjoint.com/?epnpQyJqPr
"Guy85" <Guy_Excel_2003@bonjour.fr> a écrit dans le message de groupe de
discussion :
OyZPbzG3KHA.5212@TK2MSFTNGP04.phx.gbl...
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]
[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 ?
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" a écrit dans le message de news:
Bonjour,
Une façon de faire proposée par J. Walkenbach à adapter !
http://cjoint.com/?epnpQyJqPr
"Guy85" a écrit dans le message de groupe de 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]
[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 ?
