Tom's Guide > Forum > Programmation > Colorier une ligne en fonction d'une case dans Excel

Colorier une ligne en fonction d'une case dans Excel

Forum Programmation : Colorier une ligne en fonction d'une case dans Excel

TomsGuide.com : 800 000 inscrits répondent à toutes vos questions high-tech et informatique. Pour obtenir de l'aide, inscrivez-vous gratuitement !
Mot :    Pseudo :           
 

Bonjour tout le monde !!
Voilà j'ai un p'tit pb dans Excel mais je sais pas trop si c'est de la programmation ou pas !!!!
Je souhaiterais que quand l'utilisateur met qqch (ce qqch étant une date) dans la case D1 alors les cellules de A1 à J1 soient coloriées en vert.
J'ai essayé avec la mise en forme conditionnelle mais pas moyen.
Un p'tit coup de pouce please !!!
Merci par avance pour vos réponses !!

Skwhal ;-)

Liens sponsorisés
Inscrivez-vous ou connectez-vous pour masquer ceci.

c'est possible via une macro

j'ai pas le lien sous la main

je te files ca demain

mais ce ne sera pas un truc tout fait (pas le temps en ce moment), avec de la patience tu pourras faire toi meme

Répondre à scuny

www.excellabo.com

tu trouveras tout ce qu'il te faut sur ce site.


tu peux aussi aller la

ericrenaud.free.fr

Répondre à scuny

j'ai regardé ce que j'avais en stock comme exemple:

Formate la plage A1:A10 avec une procédure événementielle. (1 er - 2, 3, 4 etc...ème )
Mode d'emploi:
Dans l'éditeur VB double-cliquez sur la feuille désirée
et coller tout le code suivant dans la partie droite.
Modifiez la plage si besoin ici ----Intersect(Target, Range("A1:A10" ))----
A chaque modification des cellules de la plage (A1:A10) le format est mis automatiquement.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Plage As Range
Set Plage = Intersect(Target, Range("A1:A10" ))
If Plage Is Nothing Then Exit Sub
For Each cellule In Plage
If cellule.Value = 1 Then
cellule.NumberFormat = "General"" er"""
Else: cellule.NumberFormat = "General"" ème"""
End If
Next
End Sub

Colore en gris toutes les cellules dont les valeurs sont <30 de la plage E2:E65
Sub StockInf50()
For Each Cell In Range("E2:E65" )
If Cell.Value < 30 Then
Cell.Select
With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
End With
End If
Next
End Sub

a toi de jouer

bonne chance

Répondre à scuny
Tom's Guide > Forum > Programmation > Colorier une ligne en fonction d'une case dans Excel
Aller à :

Il y a 687 utilisateurs connus et inconnus. Pour voir la liste des connectés connus, cliquez ici.

Attention

Vous allez répondre sur un sujet resté inactif pendant plus de 6 mois.
Assurez-vous d'apporter des éléments nouveaux à la discussion avant de poursuivre.

Répondre Annuler
Liens