C Christian0258 XLDnaute Accro 18 Août 2017 #1 Bonjour à tout le forum, Je souhaiterais votre aide, pour écrire une macro ou formule, afin de lister dans un tableau annuel les mois correspondants aux dates début/fin. voir fichier joint Merci pour le temps que vous voudrez bien vouloir m'accorder. Bien amicalement, Christian Pièces jointes lister les mois entre deux dates.xlsm 50 KB · Affichages: 30
Bonjour à tout le forum, Je souhaiterais votre aide, pour écrire une macro ou formule, afin de lister dans un tableau annuel les mois correspondants aux dates début/fin. voir fichier joint Merci pour le temps que vous voudrez bien vouloir m'accorder. Bien amicalement, Christian
pierrejean XLDnaute Barbatruc 18 Août 2017 #2 Bonjour Christian A tester: Code: Sub cocher() For n = 6 To Range("C" & Rows.Count).End(xlUp).Row If Range("C" & n) <> "" Then md = Month(Range("C" & n)) mf = Month(Range("D" & n)) MsgBox (md & " " & mf) For M = md To mf Cells(n, M + 5) = "ü" Next End If Next End Sub Vote positif 0 Vote négatif
Bonjour Christian A tester: Code: Sub cocher() For n = 6 To Range("C" & Rows.Count).End(xlUp).Row If Range("C" & n) <> "" Then md = Month(Range("C" & n)) mf = Month(Range("D" & n)) MsgBox (md & " " & mf) For M = md To mf Cells(n, M + 5) = "ü" Next End If Next End Sub
zebanx XLDnaute Accro 18 Août 2017 #3 Bonjour Christian. Un exemple par formule. Cdlt edit : re-bonjour Pierre-Jean Pièces jointes lister date.xls 127.5 KB · Affichages: 74 Vote positif 0 Vote négatif
C Christian0258 XLDnaute Accro 18 Août 2017 #4 Re, le forum, pierrejean, zebanx Merci à vous deux pour vos solutions, c'est impec de chez impec... Bien à vous. Christian Vote positif 0 Vote négatif
Re, le forum, pierrejean, zebanx Merci à vous deux pour vos solutions, c'est impec de chez impec... Bien à vous. Christian