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]

[anthoYS]

Bonjour,


Dans l'exemple nous sommes toujours en mars. Dès que je complète B8, c'est B9 qui se colorera de jaune. Ainsi de suite. Sauf si nous sommes au nouveau mois, en Avril, elle devra colorer la première non rempli. Si en avril je remplis C3, alors colorer C4 de jaune, etc.


Merci !

 

[GALOUGALOU]

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

 

[anthoYS]

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

ç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.

 

[anthoYS]

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.

 

[GALOUGALOU]

ç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

 

[anthoYS]

ç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

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

Merci 🙂

 

[GALOUGALOU]

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

 

[GALOUGALOU]

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

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

cordialement
galougalou

 

[fanfan38]

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

 

[anthoYS]

@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...

 

[anthoYS]

@fanfan38

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 ...

 

[fanfan38]

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

 

[anthoYS]

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

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

 

[anthoYS]

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

 

[anthoYS]

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.

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