couleurs avec macro sous excel2000

jeanpierre

Nous a quitté

Repose en paix

• 27 Août 2009

• #2

Re : couleurs avec macro sous excel2000

Bonsoir laplayast,

Sans macro mais avec une mise en forme condtionnelle (c'est bien plus souple et moins long).

Voir fichier joint.

Bonne soirée

Jean-Pierre

 

Pièces jointes

• test%20couleur2000(1).zip

  19.9 KB · Affichages: 30

Vote positif 0 Vote négatif

S

SubEndSub

XLDnaute Occasionnel

• 27 Août 2009

• #3

Re : couleurs avec macro sous excel2000

Bonsoir chez vous


Voici une proposition avec Switch

Code:

Sub macro()
Dim wf As WorksheetFunction
Set wf = Application.WorksheetFunction
Range("D5:E5").Interior.ColorIndex = Switch((wf.CountBlank(Range("D5:E5")) = 2), 16, wf.CountBlank(Range("D5:E5")) = 0, 43)
End Sub

 

Vote positif 0 Vote négatif

F

Fo_rum

XLDnaute Accro

• 27 Août 2009

• #4

Re : couleurs avec macro sous excel2000

Salut,

Si tes cellules sont indépendantes mais traitées simultanément, peut-être avec ce code (qui correspond à une MFC sur les 2 cellules comme le propose jeanpierre) :

Code:

Sub Coul()
  [D5].Interior.ColorIndex = IIf([D5] = "", 16, 43)
  [E5].Interior.ColorIndex = IIf([E5] = "", 16, 43)
End Sub

Tu n'auras pas le même résultat qu'avec le code de SubEnSub !

 

Vote positif 0 Vote négatif

L

laplayast

XLDnaute Occasionnel

• 28 Août 2009

• #5

Re : couleurs avec macro sous excel2000

Bonjour,
J'écris,le code pour la macro mais cela ne fonctionne pas.
J'ai besoin d'aide pour cette mise en place.
merci de vos réponses.
laplayast.

Sub macro1()
[D5].Interior.ColorIndex = IIf([D5] = "", 16, 43)
[E5].Interior.ColorIndex = IIf([E5] = "", 16, 43)
End Sub

 

Pièces jointes

• test couleur2000.xls

  17.5 KB · Affichages: 37
• test couleur2000.xls

  17.5 KB · Affichages: 37
• test couleur2000.xls

  17.5 KB · Affichages: 37

Vote positif 0 Vote négatif

F

Fo_rum

XLDnaute Accro

• 28 Août 2009

• #6

Re : couleurs avec macro sous excel2000

Re,

laplayast à dit:

Bonjour,
J'écris,le code pour la macro mais cela ne fonctionne pas.

Cliquez pour agrandir...

Dans quel cadre te places-tu ?
Veux-tu le changement de fond à la saisie ?
Si oui, essaie la macro évènementielle :

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, [D5]) Is Nothing Then
    [D5].Interior.ColorIndex = IIf([D5] = "", 16, 43)
  End If
  If Not Intersect(Target, [E5]) Is Nothing Then
    [E5].Interior.ColorIndex = IIf([E5] = "", 16, 43)
  End If
End Sub

 

Vote positif 0 Vote négatif

L

laplayast

XLDnaute Occasionnel

• 28 Août 2009

• #7

Re : couleurs avec macro sous excel2000

Bonjour,
Merci,cela fonctionne correctement;mais je voudrais ensuite appliquer un test aux cellules remplies.
Si les cellules ne sont pas remplies de la feuille1,on ne peut pas accéder à la feuille 2;alors affichage d'un "MSG"REMPLIR TOUTES LES CELLULES.
Cela doit tourner sous excel2000.
merci de votre aide.
laplayast.

 

Pièces jointes

• test couleur2000.xls

  28.5 KB · Affichages: 48
• test couleur2000.xls

  28.5 KB · Affichages: 52
• test couleur2000.xls

  28.5 KB · Affichages: 50

Dernière édition: 29 Août 2009

Vote positif 0 Vote négatif

L

laplayast

XLDnaute Occasionnel

• 29 Août 2009

• #8

Re : couleurs avec macro sous excel2000

Bonjour,
Quelqu'un,pourrait il me venir en aide sur le post précedent?
Merci à vous.
laplayast.

 

Vote positif 0 Vote négatif

L

laplayast

XLDnaute Occasionnel

• 31 Août 2009

• #9

Re : couleurs avec macro sous excel2000

Bonsoir,
Je,n'ai pas de réponse à ce post;y aurait-il une âme charitable pour que je termine le code.
Merci de votre aide.
laplayast.

 

Vote positif 0 Vote négatif

L

laplayast

XLDnaute Occasionnel

• 2 Septembre 2009

• #10

Re : couleurs avec macro sous excel2000

Bonsoir,
Je n'ai pas de réponse,ou je ne suis pas assez précis!
Merci.
laplayast

 

Vote positif 0 Vote négatif