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

XLDnaute Barbatruc
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 !
 

Pièces jointes

  • FJDU.xlsx
    8.9 KB · Affichages: 12

anthoYS

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

GALOUGALOU

XLDnaute Accro
ç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

GALOUGALOU

XLDnaute Accro
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

anthoYS

XLDnaute Barbatruc
@GALOUGALOU
2020-03-25_162107.png

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:

anthoYS

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

anthoYS

XLDnaute Barbatruc
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

HDYGEDH.png
 

Statistiques des forums

Discussions
311 716
Messages
2 081 848
Membres
101 826
dernier inscrit
dododu89