Autres Colorer de jaune la cellule du dessous non remplis (la dernière) ou la première si nouveau mois et première vide [XL2007]

GALOUGALOU

XLDnaute Accro

• 25 Mars 2020

• #2

bonjour anthoys bonjour le forum
avec mfc dans le classeur
dans les trois colonnes mois de mars pour l'exemple et identifier les différences.
A ajuster bien entendu
cordialement
galougalou

 

Pièces jointes

• Copie de FJDU v1.xlsx

  10.2 KB · Affichages: 5

Vote positif 0 Vote négatif

anthoYS

XLDnaute Barbatruc

• 25 Mars 2020

• #3

GALOUGALOU à dit:

bonjour anthoys bonjour le forum
avec mfc dans le classeur
dans les trois colonnes mois de mars pour l'exemple et identifier les différences.
A ajuster bien entendu
cordialement
galougalou

Cliquez pour agrandir...

ça ne va pas ça. Pourquoi trois colonnes avec mars ? J'en veux une seule. Et ça doit être valide si on étend les mois... Vers la droite.
Mais il faut attendre avril pour vérifier si ça fonctionne. Enfin ta démo ok, c'est un début mais ça ne convient pas tout à fait. Mais merci quand même
je vais tenter de bidouiller à partir de ça.

 

Vote positif 0 Vote négatif

anthoYS

XLDnaute Barbatruc

• 25 Mars 2020

• #4

Ok c'est assez bien adapté. Sauf quand on passera en avril 2020, ne pas garder la MFC de mars, décolorer. Le jaune doit se retrouver sur une seule cellule de la plage entière. De l'onglet.

 

Vote positif 0 Vote négatif

GALOUGALOU

XLDnaute Accro

• 25 Mars 2020

• #5

ça ne va pas ça. Pourquoi trois colonnes avec mars ?
je réitère le 1er classeur pour l'exemple

donc le classeur ci dessous avec 3 mois lissés avec uniquement jaune comme couleur, au mois d'avril la 1er cellule se colorera de jaune
cordialement

 

Pièces jointes

• Copie de FJDU v1.xlsx

  10.1 KB · Affichages: 3

Vote positif 0 Vote négatif

anthoYS

XLDnaute Barbatruc

• 25 Mars 2020

• #6

GALOUGALOU à dit:

ça ne va pas ça. Pourquoi trois colonnes avec mars ?
je réitère le 1er classeur pour l'exemple

donc le classeur ci dessous avec 3 mois lissés avec uniquement jaune comme couleur, au mois d'avril la 1er cellule se colorera de jaune
cordialement

Cliquez pour agrandir...

Et la dernière de mars vide coloré de jaune, se décolorera-t-elle également ? (c'est le but)

Merci

 

Vote positif 0 Vote négatif

GALOUGALOU

XLDnaute Accro

• 25 Mars 2020

• #7

a oui cela m'a échappé je vais regarder !

 

Vote positif 0 Vote négatif

GALOUGALOU

XLDnaute Accro

• 25 Mars 2020

• #8

re le fil
avec cette correction sur la mfc
alors un classeur pour l'exemple avec un mois de février et deux mois de mars pour que vous puissiez verifier la cohérence de la mfc
évidemment il vous suffira d'adapter les mois

Enrichi (BBcode):

=ET(MOIS(B$1)=MOIS(AUJOURDHUI());B4="";B3>=1)

cordialement
galougalou

 

Pièces jointes

• Copie de FJDU v2.xlsx

  10.2 KB · Affichages: 4

Vote positif 0 Vote négatif

fanfan38

XLDnaute Barbatruc

• 25 Mars 2020

• #9

Bonjour
Ci joint ma solution par macro...
Mais comment savoir quelle est la dernière ligne?
Si c'est le dernier jour du mois en colonne A c'est modifiable...
A+ François

 

Pièces jointes

• FJDU.xlsm

  17.6 KB · Affichages: 3

Vote positif 0 Vote négatif

anthoYS

XLDnaute Barbatruc

• 25 Mars 2020

• #10

@GALOUGALOU

j'ai fais comme toi mais chez moi ça fonctionne pas du tout...
AO7 début AO14 fin de la plage pour mars et date en AO2...

 

Dernière édition: 25 Mars 2020

Vote positif 0 Vote négatif

anthoYS

XLDnaute Barbatruc

• 25 Mars 2020

• #11

@fanfan38

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
Cells(Target.Row, Target.Column).Interior.Pattern = xlNone
On Error GoTo fin
If Len(Target.Value) > 0 Then
   If Target.Row < 14 Then
     Cells(Target.Row + 1, Target.Column).Interior.color = 65535
   Else
     Cells(7, Target.Column + 1).Interior.color = 65535
     Cells(7, Target.Column + 1).Select
   End If
End If
Exit Sub
fin:
End Sub

ça ne fonctionne pas sur ma feuille ...

 

Vote positif 0 Vote négatif

fanfan38

XLDnaute Barbatruc

• 25 Mars 2020

• #12

as tu activé les macros?
Si tu n'as pas eu la question au lancement du fichier il faut voir dans les options excel...
A+ François

 

Vote positif 0 Vote négatif

anthoYS

XLDnaute Barbatruc

• 25 Mars 2020

• #13

fanfan38 à dit:

as tu activé les macros?
Si tu n'as pas eu la question au lancement du fichier il faut voir dans les options excel...
A+ François

Cliquez pour agrandir...

Oui normalement tout est activé dans le fichier en cours d'exécution.
Je vais le relancer pour voir. Je re.
merci !

 

Vote positif 0 Vote négatif

anthoYS

XLDnaute Barbatruc

• 25 Mars 2020

• #14

Toujours le même problème. Je ne comprends pas en fait ce qu'il se passe... je vais tenter autre chose.

 

Vote positif 0 Vote négatif

anthoYS

XLDnaute Barbatruc

• 25 Mars 2020

• #15

A noter que la date est sur la ligne N°2 (qui est masquée) ça ne change rien au code.
J'ai supprimé pour que ça colle au ligne suivantes soit à partir de la 3 jusqu'à la dixième.

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
Cells(Target.Row, Target.Column).Interior.Pattern = xlNone
On Error GoTo fin
If Len(Target.Value) > 0 Then
   If Target.Row < 10 Then
     Cells(Target.Row + 1, Target.Column).Interior.color = 65535
   Else
     Cells(3, Target.Column + 1).Interior.color = 65535
     Cells(3, Target.Column + 1).Select
   End If
End If
Exit Sub
fin:
End Sub

 

Vote positif 0 Vote négatif