XL 2016 Sélectionner des lignes selon la date

HelloDy

XLDnaute Junior
Bonjour à tous !

Dans le classeur ci-joint, la colonne A contient des dates au format JJMMAA, triée du plus ancien au plus récent.
Avec une macro j'ai effectué quelques actions et finalement sélectionné la première cellule vide de la colonne A.

J'aimerais savoir comment sélectionner toutes les lignes du tableau contenant le même mois que la dernière ligne (colonnes A à F).

Merci d'avance :)


Elo
 

Fichiers joints

HelloDy

XLDnaute Junior
Bonjour @zebanx

Ca marche nickel c'est parfait, merci :)

J'ai un autre souci maintenant !
Grâce à la macro j'ai réussi à recopier ma sélection du mois en cours dans un autre classeur.
Dans ce nouveau classeur (en PJ), dans la colonne I j'ai listé les mois de l'année, chacun colorié d'une couleur différente.

J'aimerais colorier ce que je viens de coller de la couleur correspondante en colonne I.

Merci à qui pourra m'aider !


Elo
 

Fichiers joints

zebanx

XLDnaute Accro
Re- Hellody

C'est une autre demande.
En général, les demandes dites "à tiroir" ne sont pas traités car le libellé du titre ne correspond pas à la demande initiale et pour avoir plus de réponses, il faut refaire un autre post.

Et... je n'ai pas compris ce que vous souhaitez faire.
Est-ce ?:
Je copie mes données sans couleurs dans la feuille 1 sur les colonnes A à F.
S'il y a correspondance entre le mois de chaque cellule en colonne A / nom du mois en colonne I, je souhaiterais que la plage soit automatiquement coloriée de la même couleur que celle du nom affiché en colonne I.

Si c'est le cas, un essai.

Mais sinon, à repréciser et n'hésitez pas à rajouter une box sur le fichier avec des flèches pour faciliter la compréhension. Certains sont bons pour déchiffrer, d'autres (dont je fais incontestablement partie) moins.

Bonne fin de journée
++
 

Fichiers joints

Dernière édition:

HelloDy

XLDnaute Junior
Re @zebanx

Oui effectivement j'ai hésité à créer un nouveau topic mais j'ai peur d'en faire trop, ça aurait été le 3ème en 2 jours ^^
Et désolée alors pour le manque de précision de ma demande.

Ca marche très bien merci beaucoup !

Juste une dernière petite question... Après l'application des couleurs j'aurais besoin de faire disparaitre la colonne J (qui affiche les n° de mois).
Du coup j'ai fait ça :

Sub Range_CouleurMois()

Range("J8").Select
ActiveCell.FormulaR1C1 = "9"
Range("J9").Select
ActiveCell.FormulaR1C1 = "10"
Range("J10").Select
ActiveCell.FormulaR1C1 = "11"
Range("J11").Select
ActiveCell.FormulaR1C1 = "12"
Range("J12").Select
ActiveCell.FormulaR1C1 = "1"
Range("J13").Select
ActiveCell.FormulaR1C1 = "2"
Range("J14").Select
ActiveCell.FormulaR1C1 = "3"
Range("J15").Select
ActiveCell.FormulaR1C1 = "4"
Range("J16").Select
ActiveCell.FormulaR1C1 = "5"
Range("J17").Select
ActiveCell.FormulaR1C1 = "6"
Range("J18").Select
ActiveCell.FormulaR1C1 = "7"
Range("J19").Select
ActiveCell.FormulaR1C1 = "8"
Range("J20").Select
Range("I8:I19").Select
Selection.Copy
Range("J8:J19").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

'-- affecte mois (colonne10) avec le mois de la cellule colonne A
Dim derligne&, i&, mi&, x, xc$
Set shap = Sheets("Achat port")
derligne = shap.Cells(Rows.Count, 1).End(3).Row
'-- boucle
For i = 7 To derligne
mi = Month(Cells(i, 1))
Set x = shap.Cells.Columns(10).Find(mi, , xlValues, xlWhole)
xc = Range(x.Address).Interior.Color
Cells(i, 1).Resize(, 6).Interior.Color = xc
Next i

Range("j:j").Select
Selection.Delete

End Sub

Oui je sais... on se moque pas hein ^^ c'est nul et ça prend suuuuper longtemps d'écrire chaque numéro de mois, la macro dure genre 20 secondes :oops:
Il y aurait un moyen plus rapide de faire ça ?

Merci beaucoup :)


Elo
 

zebanx

XLDnaute Accro
Re

Difficile de trouver un UDF pour transformer le mois en lettre (je n'utilise que les mois en nombre c'est plus facile).

Bref, un autre essai uniquement en se basant sur la colonne I.

Et le nombre de topics n'est pas un frein. Ce qui freine c'est de ne pas prendre le temps de bien titrer, de bien présenter sa demande (clarté), de ne pas joindre de fichiers souvent et de ne pas être réactif dans les réponses alors qu'on demande quelque chose. À partir du moment où on prend "soin" de sa demande et de la compréhension pour le répondeur potentiel, ça va.

Bonne soirée
 

Fichiers joints

Dernière édition:

Haut Bas