Microsoft 365 Cellules colorées d'une ligne (vba)

G

Gourbi1986

XLDnaute Nouveau
Bonjour à tous,

Nouveau problème :)

Donc dans mon tableau j'ai plusieurs plages de cellules colorées qui correspondent à des réservations et j'ai une colonne "retour prévu" qui m'indique l’en-tête de colonne (une date) de la dernière cellule colorée de cette ligne, jusqu'ici tout va bien :)
Par contre la fonction vba m'indique la dernière cellule colorées (donc le dernier jour de la dernière réservation) sans prendre en compte les autres plages de cellules colorées qui se trouvent avant :(

Ce que je voudrais c'est que la fonction vba s’arrête à la fin de la première plage de cellules colorées puis, passe à la suivante en fonction de la date du jour.

Merci d'avance pour vos réponses :)

N'hésitez pas à m'en demander plus si ce n'est pas clair..
 

Pièces jointes

  • Planning testvba2.xlsm
    34.2 KB · Affichages: 15
Solution
sylvanu
Re,
Si j'ai bien compris :
1- Si la cellule en date d'aujourd'hui est colorée, on cherche la dernière cellule colorée dans le futur.
2- Si la cellule en date d'aujourd'hui est blanche, on cherche la dernière cellule colorée dans le passé.
VB: 
Function RetourPrévu(D)
RetourPrévu = ""
DerCol = Cells(2, Cells.Columns.Count).End(xlToLeft).Column
Ligne = D.Row
ColToDay = 0
For C = 7 To DerCol
    If Cells(2, C) = Date Then ColToDay = C
Next C
If ColToDay = 0 Then Exit Function
If Cells(Ligne, ColToDay).Interior.Color <> RGB(255, 255, 255) Then
    ' Cas où la cellule d'aujourd'hui est en couleur, on cherche la prochaine transition
    For C = ColToDay To DerCol
        If Cells(Ligne, C).Interior.Color <> RGB(255, 255, 255) And _...
Trier par date Trier par votes

Discussions similaires

P
  • Question
XL 2019 Bloquer la saisie dans une colonne sous condition
Réponses
1
Affichages
180
sylvanu
sylvanu
C
  • Résolu(e)
Microsoft 365 Transformer une ligne en 02 lignes en VBA
2
Réponses
17
Affichages
818
Gégé-45550
Gégé-45550
Orson83
  • Résolu(e)
XL 2010 Remplissage cellules planning avec dates
Réponses
5
Affichages
535
Orson83
Orson83
F
  • Question
XL 2016 AIDE RECHERCHEV automatisée sur onglets variables
Réponses
5
Affichages
153
FURUKU
F
C
  • Résolu(e)
Microsoft 365 Trouver résultat en fonction de la dernière ligne d'une colonne
Réponses
7
Affichages
130
Chounoé
C
A
  • Résolu(e)
Microsoft 365 VBA Etendre formule jusqu'à la dernière ligne dans VBA
Réponses
13
Affichages
188
AD95
A
A
  • Résolu(e)
Microsoft 365 VBA - Tri par couleur de cellule
2
Réponses
16
Affichages
263
AD95
A
I
  • Question
XL 2016 Colorer cellules entre 2 dates et étendre la mise en forme et ajout de texte
Réponses
1
Affichages
384
Irina1009
I
A
  • Question
XL 2016 Fusion cellules via VBA
Réponses
3
Affichages
432
fanfan38
fanfan38
halecs93
  • Résolu(e)
XL 2016 calcul en colonne BS qui ne se met pas à jour
Réponses
3
Affichages
426
halecs93
halecs93

Membres actuellement en ligne

9 membres et 79 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 104
Messages
2 085 346
Membres
102 868
dernier inscrit
JJV