couleurs avec macro sous excel2000

[laplayast]

Bonsoir,
Je,viens de créer une macro sous le fichier joint mais cela ne fonctionne pas.
L'opération consiste à colorier les cellules en gris "si vide" et en vert "si non vide";pour les cellule D5,E5.
Merci de votre aide.
laplayast

 

[jeanpierre]

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

 

[SubEndSub]

Re : couleurs avec macro sous excel2000

Bonsoir chez vous


Voici une proposition avec Switch

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

 

[Fo_rum]

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) :

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 !

 

[laplayast]

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

 

[Fo_rum]

Re : couleurs avec macro sous excel2000

Re,

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

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

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

 

[laplayast]

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.

 

[laplayast]

Re : couleurs avec macro sous excel2000

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

 

[laplayast]

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.

 

[laplayast]

Re : couleurs avec macro sous excel2000

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