Résolu 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 !
 
Ce fil a été résolu! Aller à la solution…

Fichiers joints

GALOUGALOU

XLDnaute Impliqué
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
 

Fichiers joints

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.
 

anthoYS

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

XLDnaute Impliqué
ç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
 

Fichiers joints

anthoYS

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

XLDnaute Impliqué
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
Avancé (BB Code):
=ET(MOIS(B$1)=MOIS(AUJOURDHUI());B4="";B3>=1)
cordialement
galougalou
 

Fichiers joints

fanfan38

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

Fichiers joints

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

fanfan38

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

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

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

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
 

job75

XLDnaute Barbatruc
Bonjour anthoYs, GALOUGALOU, fanfan38,

Je prends le train en marche, voyez la MFC sur les colonnes B:K du fichier joint :
Code:
=(COLONNE()=EQUIV(AUJOURDHUI();$1:$1))*(LIGNE()=EQUIV(9^9;B:B))
PS : J'ai mis de vraies date en ligne 1...

A+
 

Fichiers joints

anthoYS

XLDnaute Barbatruc
Bonjour anthoYs, GALOUGALOU, fanfan38,

Je prends le train en marche, voyez la MFC sur les colonnes B:K du fichier joint :
Code:
=(COLONNE()=EQUIV(AUJOURDHUI();$1:$1))*(LIGNE()=EQUIV(9^9;B:B))
PS : J'ai mis de vraies date en ligne 1...

A+
Pourquoi 9^9 ? Et pourquoi colorer la dernière cellule remplie or c'est celle du dessous qui doit être colorée de jaune. Après j'avoue ça me dépasse.

Merci
 

anthoYS

XLDnaute Barbatruc
@job75 je ne peux pas c'est un tableau à entêtes .
j'ai voulu l'adapter et voilà ce que ça fait :
DJHS.png

Code:
=(COLONNE()=EQUIV(AUJOURDHUI();$2:$2))*(LIGNE()=EQUIV(9^9;AO:AO))
 

job75

XLDnaute Barbatruc
Oui j'avais oublié un +1 dans la formule de la MFC.

Prenez ce fichier (2), j'ai remis les dates en ligne 2 masquée.
 

Fichiers joints

GALOUGALOU

XLDnaute Impliqué
bonsoir le fil
au vu de la contribution de l'ensemble de xld, j'ai l'impression que mon message #8 est passé inaperçu.
le fichier ci_joint rempli parfaitement les problèmatiques de anthoyys
cordialement
galougalou
 

Fichiers joints

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas