Figer plusieurs lignes non adjacentes

Bonjour,

Sur un fichier, je cherche à figer plusieurs lignes qui ne sont pas consécutives les unes les autres.

Je sais que normalement ce n'est pas possible mais y aurait il une astuce (formule, macro ...) pouvant me le permettre.

Dans mon exemple je veux figer les lignes 1-4-47-90-133-176-216-259-302-345-388-428-471-514-557-600-640-683-726-769-812-852-895-939-982-1025-1065-1108

Merci beaucoup

Bonjour, je ne suis pas sur que l'on parle de la même chose ?

Figer. la ligne ne bouge pas de l'écran lors des déplacements ( roulette souris vers le bas ou le haut )

bonjour Julien4920,Xmenpl,

Sub Julien()
     s = "1-4-47-90-133-176-216-259-302-345-388-428-471-514-557-600-640-683-726-769-812-852-895-939-982-1025-1065-1108"
     s1 = "A" & Replace(s, "-", ",A")
     Set c = Range(s1).EntireRow
     c.Interior.ColorIndex = 3
End Sub

Merci, je vais tenter ça

Ca me met bien les lignes avec les dates en couleur mais quand je fais mon tri sur la colonne qui m'intéresse les lignes dates ne se figent pas

re,

veuillez montrer un exemple avec votre problème, vous voulez faire un tri et exclure des lignes, je pense ...

Voici le fichier en question ; j'aimerai filtrer via la colonne C mais en conservant les lignes de dates (sur cet exemple les lignes les lignes 1-4-47-90-133-176-216-259-302-345-388-428-471-514-557-600-640-683-726-769-812-852-895-939-982-1025-1065-1108)

J'ai bien trouvé l'astuce de rajouter une croix dans la colonne C pour les lignes de dates mais y a t il une autre solution ?

Merci

re,

Sub Julien_SHOW_Certain_ROWS()
     Set sh = Sheets("MOOJ213701") 'votre feuille
     sp = Split("1-4-47-90-133-176-216-259-302-345-388-428-471-514-557-600-640-683-726-769-812-852-895-939-982-1025-1065-1108", "-") 'diviser sur le "-"
     For i = 0 To UBound(sp) 'boucler les lignes
          sh.Range("A" & sp(i)).EntireRow.Hidden = False 'montrer !!! (même avec autofilter)
     Next
End Sub