Liste NGC / Sky Atlas

[Thierry 0]

Bonjour,
Maintenant que j'ai les deux volumes de Splendeurs du Ciel Profond (au moins 10 ans d'obs.)je voudrais rapprocher tous ces objets de mes cartes Sky Atlas (objet/N° carte)
Existe t il un fichier qui donne tout ça.
Merci

Thierry

[Ce message a été modifié par Thierry (Édité le 22-01-2007).]

[Thierry 0]

Il n'y a personne qui sait ou je pourrais trouver ça?

Thierry

[PETIT OURS 24 655]

Bonjour http://www.astrosurf.com/luxorion/download.htm http://www.ngcic.org/ngciccat.htm http://www.ngcic.org/legacy/ngconline/default.htm
Bonne lecture
Salut

[Bruno- 3 980]

Ben, moi je n'ai pas compris la question. Et j'ai l'impression que Petit Ours n'y a pas répondu (mais je peux me tromper).

[Thierry 0]

C'est vrai que Petit Ours n'a pas répondu à ma question mais tu as raison Bruno elle est est floue....
Ce que voudrais (si ca existe, ça m'eviterais de le faire) c'est pouvoir trouver une liste de tous les NGC et les Messier avec leur numéros de carte Sky Atlas correspondant.

J 'espère avoir été plus clair.
Merci d'avance.
Thierry

[-ms- 2]

SkyMap Pro te donne par exemple pour M42 :
Herald-Bobroff Astroatlas, Chart C-53
Millennium Star Atlas, Charts 277-278 (Vol I)
Sky Atlas 2000.0, Chart 11
Uranometria 2000 Chart 225, Vol 1 and 2

ainsi que pour tous les autres objets ...

[Bruno- 3 980]

Ah OK, je croyais que tu voulais juste ceux du livre "Splendeurs du ciel profond" (ce qui me paraît d'ailleurs plus utile que la liste complète, mais bon...)

Je ne connais pas, mais effectivement, ça peut exister.

Je te conseille de faire ce genre de listes toi même (avec uniquement les NGC/IC intéressants), comme ça tu les mémoriseras en même temps.

[Thierry 0]

Oui oui Bruno je ne veux que ceux de Splendeur du Ciel Profond (c'est amplement suffisant...)
Thierry

[Kentaro 0]

Si tu n'as pas de logiciel, Skymap pro ou autre, tu peux te faire ta liste avec ce site: en utilisant la fonction search, tu as une fiche sur chaque objet avec la page du sky altas correspondante:
http://www.messier45.com

[PETIT OURS 24 655]

Bonjour
le livre de Jean Raphael Gilis, j' observe le ciel profond (Broquet)indique pour chaque objet, le numero de carte du Sky atlas 2000 et de l' uranometria.
Ca peut aider ?
Salut

[rguinamard 38]

Thierry :

J'avais récupéré un fichier excel que j'avais trouvé je sais pas ou et qui comprenait la liste de tous les NGC et IC (avec en plus leur éventuel n°messier et PGC + nom classique + 2-3 infos + coordonnées).
A partir de là, j'ai regardé comment étaient découpées les cartes sky atlas 2000, urano éd avant 2002, urano éd après 2002, et millenium, j'en ai tiré les lois mathématiques qui vont bien et j'ai ensuite mis tout ça dans excel pour retrouver automatiquement le n° de carte en fonction des coordonnées.
Donc dans ce fichier excel il y a maintenant des colonnes supplémentaires qui comprennent pour chaque objet le n° de carte sky atlas 2000, urano éd avant 2002, urano éd après 2002, et millenium.
En plus pour rendre la recherche de l'objet plus facile dans la carte, il y a aussi le quadrant de la carte ou rechercher l'objet : exemple :
pour M1, tu liras :
*pour la colonne sky atlas : 5,D,SO c'est à dire partie sud Ouest du coté droit de la carte
*pour la colonne urano avant 2002: Vol I,n°135; SO c'est à dire partie sud Ouest de la carte 135 du volume I
*pour la colonne urano après 2002: Vol I,n°77,G,SE c'est à dire partie sud Est du coté gauche de la carte 77 du volume I
*pour la colonne millenium : Vol I,n°158,SO
c'est à dire partie sud ouest de la carte 158 du volume I

Donc ce fichier répondra bien à ta question pour peu qu'on puisse en extraire la liste des objets présents dans le livre (même si il restera quelques objetx de catalogues autre que NGC et IC, tu devrai déjà en choper la très grande majorité.)
J'imagine que Laurent Ferrero doit avoir une liste de ses objets. Laurent es tu là ?
Mon fichier global fait 6.5 Mo, et je ne peux pas l'envoyer par mail, par contre une fois extrait les objets du livre de Laurent, il sera de taille raisonnable.
Si j'ai un fichier "liste" des objets, je devrais pouvoir faire ça sans problèmes.
Raphaël

[yapo 1 760]

Je crois que le catalogue saguaro fait l'affaire pour pas mal d'objets NGC :
http://www.saguaroastro.org/content/downloads.htm

a + yann

[laurent13 2 009]

Salut Raphaël,

J'ai la liste de l'index de fin de page si çà t'intéresse, par contre elle est en format Xpress donc il faut que je récupère les données pour les mettre dans un fichier word et faire en sorte que tout çà soit lisible.

Il va falloir être un peu patient parce que malheureusement j'ai beaucoup de travail en ce moment!

[rguinamard 38]

Yann, j'ai peut être mal vu mais je n'ai pas trouvé les n° de carte dans la liste SAC
?????
Laurent : je ne connais pas le format xpress. si je peux l'importer dans excel, ça fera l'affaire (sans doute mieux qu'un fichier word toujours merdique à importer dans excel)
Raphaël

[yapo 1 760]

oui, c'est mentionné dans l'aide (SACdoc.txt) :

Field Number: 10 Name: TI Size: 2
The charts in the Tirion Sky Atlas 2000.0 that map the area of sky in which the object is located. This is included so that a less detailed view of the area will be available to star hoppers.

a + yann

[Thierry 0]

Bonjour,
Petit Ours, pour le bouquin de JRG, Je l'ai donc pas de problème, mais vu que les atlas de Laurent sont plus conséquents, il m'en manque plein.

RGUINAMARD, ton fichier à l'air excellent, même en le Zippant tu n'arrives pas à le diminuer?

Vu que Laurent suit ce poste, j'en profite pour le feliciter, quels ouvrages super...vivement l'automne et l'hiver....Il ne manquerai plus qu'une dédicace.....

Salut
Thierry

[laurent13 2 009]

Salut Thierry,

Merci pour ton apréciation

Pour le volume automne et les suivant il y aura de nouvelles cartes parfaitement lisibles pour chaque objet. le but est d'avoir des cartes parfaitement utilisable sur le terrain. A propos de terrain la reliure devrait également changer afin de rendre l'utilisation des atlas plus pratique et solide.

[rguinamard 38]

Yann: effcetivement j'avais pas vu.
De plus leur fichier de 10000 semble plus riche car il contient pleins d'objets qui ne sont pas dans les 14000 NGC+IC mais sans doute plus brilliants que nombres de IC présents dans le 14000.
Ce fichier doit inclure sans doute plus de 95% des objets de L.Ferrero
Du coup j'ai modifié leur fichier afin de faire y tourner ma macro => j'ai maintenant une version de leur fichier avec les n° de carte.
Après avoir zippé les 2 fichiers (14000 + 10000 SAC), j'obtiens un fichier.zip de 2.9 Mo que je peux envoyer à qui veux !
Y a qu'à me donner les mails
Raphaël

[Thierry 0]

Eh Raphaël, ton fichier, y m'interesse...

Merci

[Ce message a été modifié par Thierry (Édité le 24-01-2007).]

[Ce message a été modifié par Thierry (Édité le 24-01-2007).]

[Ce message a été modifié par Thierry (Édité le 25-01-2007).]

[Thierry 0]

Bonjour,
Raphaël, j'ai recu ton fichier et je t'en remercie mais j'ai deux questions:
1 - C'est toi qui a fait ça? c'est dément!!!! le boulot!!!
2 - que signifie par exemple pour M1 : (carte Sky Atlas) 5,D,SO). Je suppose: 5 N° de carte, SO Sud Ouest, Mais D je sais pas (j'suis peut-être bête!!)

Merci encore, ça repond pil poil à ce que je cherchais.

Thierry

[cg16ang 234]

Bonjour Raphael,

Je serai aussi intéressé par ton fichier.
Peux-tu me l'envoyer à l'adresse suivante STP :
christophe.gervier@wanadoo.fr

Amicalement.

Christophe Gervier.

[Alexandre Renou 452]

Bonjour Raphael
Allez profitons de cet excellent travail,
mon mail est alexandre.renou@free.fr

[Kentaro 0]

Ben moi aussi, Raphael, cela m'intéresse!

Mon mail: dobson.2005@gmail.com

Merci d'avance!

[rguinamard 38]

Thierry :
"que signifie par exemple pour M1 : (carte Sky Atlas) 5,D,SO). Je suppose: 5 N° de carte, SO Sud Ouest, Mais D je sais pas"
D signifie partie Droite de la carte : pour les cartes assez grandes, genre sky atlas 2000 ou urano version après 2002 (pour lequel chaque carte est divisé en 2 pages), j'indique si c'est du coté droit ou gauche de la page.
Ensuite chaque coté est lui même divisé en 4 parties : NordEst, NordOuest, SE, SO pour indiquer dans quelle partie est l'objet. Donc en gros pour ce type de carte elle est sous divisée en 8. Je précise que quand je dis Nord Est par ex, je fait comme si on lisait une carte routière : NE est en fait en haut à droite.

Le travail n'a pas été si colossal que ça : c'était plutôt rigolo d'essayer de trouver les lois qui indiquent dans quelle carte est située l'objet en fonction de ses coordonnées.
Ensuite j'ai fait une macro dans excel qui a partir de différentes colonnes avec ° , ", "" calcule pour les n° de cartes. Une fois programmée, elle ne mets qu'une dizaine de secondes à tout remplir les cases !!
Pour les amateurs d'excel, j'ai mis la macro ci dessous car je l'ai viré du fichier une fois qu'elle a eu travaillé pour que les personnes ayant les alertes macro dans excel ne se demandent pas s'il faut ouvrir ou pas.
Pour les personnes qui ont demandé les fichiers, je vous envoi ça tout de suite.
Au passage félicitation Alexandre pour les articles ciel profond que tu fais dans astronomie mag. Je les trouve super!
A+
Raphaël
Sub NCarte()
Dim RA, Decl, MidDecl, TestOrientation, AjoutHemSud As Single
Dim ligne As Object
Dim NSkyAtlas, NUranoV1, NuranoV2, NMillenium As Variant
Dim OrientSA, OrientU1, OrientU2, OrientMil As String
'
' mise en place des titres de colonnes
'
Range("AJ1").Select
ActiveCell.FormulaR1C1 = "Sky atlas 2000"
Range("AK1").Select
ActiveCell.FormulaR1C1 = "Uranometria Ed avant 2002"

Range("AL1").Select
ActiveCell.FormulaR1C1 = "Uranometria Ed après 2002"
Range("AJ1:AL1").Select

Range("Am1").Select
ActiveCell.FormulaR1C1 = "Millenium star atlas"
Range("AJ1:Am1").Select
With Selection
.WrapText = True
End With
Columns("AJ:Am").Select
Range("AJ1").Activate
Selection.ColumnWidth = 12
Range("AJ1").Select

'
'pour toutes les lignes de la région courante en ayant descendu de 1 lignes
For Each ligne In Range("A1").CurrentRegion.Offset(1, 0).Rows
'teste si on est pas sur une ligne sans coordonnées
If ligne.Cells(1, 6).Value + ligne.Cells(1, 8).Value + ligne.Cells(1, 10).Value = 0 Then
GoTo 10
End If
'variable de position dans la carte NE, SE, NO ou SO à réinitialiser
OrientSA = ""
OrientU1 = ""
OrientU2 = ""
'calcul de RA
RA = ligne.Cells(1, 6).Value + ligne.Cells(1, 8).Value / 60 + ligne.Cells(1, 10).Value / 3600
'calcul de decl
If ligne.Cells(1, 12).Value >= 0 Then
Decl = ligne.Cells(1, 12).Value + ligne.Cells(1, 14).Value / 60 + ligne.Cells(1, 16).Value / 3600

Else
Decl = ligne.Cells(1, 12).Value - ligne.Cells(1, 14).Value / 60 - ligne.Cells(1, 16).Value / 3600

End If '

' N° carte skyatlas 2000

Call skyatlas(ligne, RA, Decl)

' N° carte Uranometria 1ere édition (avant nov 2001)

Call Urano1erEd(ligne, RA, Decl)

' N° carte Uranometria 2eme édition (après nov 2001)

Call Urano2emeEd(ligne, RA, Decl)

' N° carte Millénium

Call Millenium(ligne, RA, Decl)

10 Next ligne

End Sub
Sub skyatlas(ligne, RA, Decl)
'
' N° carte skyatlas 2000
'
'
Select Case Abs(Decl)
Case 0 To 20
NSkyAtlas = 9 + Int((RA + 2.5) / 3)
If NSkyAtlas = 9 Then NSkyAtlas = 17
'détermination de l'orientation N/S pour l'hemisphere N.
'on renversera après pour hémis. sud
If Abs(Decl) > 0 Then OrientSA = "N" Else OrientSA = "S"
'
If Decl < 0 Then
If OrientSA = "N" Then OrientSA = "S" Else OrientSA = "N"
End If
'
' puis de quel coté de la page g/d et dans ce coté quel orientation O/E
Call orientationEO(OrientSA, (RA + 2.5) / 3 - Int((RA + 2.5) / 3))
'
Case 20.001 To 50
NSkyAtlas = 4 + Int(RA / 4)
If Decl < 0 Then NSkyAtlas = NSkyAtlas + 14
'détermination de l'orientation N/S pour l'hemisphere N.
'on renversera après pour hémis. sud
If Abs(Decl) > 35 Then OrientSA = "N" Else OrientSA = "S"
'
If Decl < 0 Then
If OrientSA = "N" Then OrientSA = "S" Else OrientSA = "N"
End If
'
' puis de quel coté de la page g/d et dans ce coté quel orientation O/E
Call orientationEO(OrientSA, RA / 4 - Int(RA / 4))

Case Else '50 à 90
NSkyAtlas = 1 + Int(RA / 8)
If Decl < 0 Then NSkyAtlas = NSkyAtlas + 23
'détermination de l'orientation N/S pour l'hemisphere N.
'on renversera après pour hémis. sud
If Abs(Decl) > 70 Then OrientSA = "N" Else OrientSA = "S"
'
If Decl < 0 Then
If OrientSA = "N" Then OrientSA = "S" Else OrientSA = "N"
End If
'
' puis de quel coté de la page g/d et dans ce coté quel orientation O/E
Call orientationEO(OrientSA, RA / 8 - Int(RA / 8))

End Select
ligne.Cells(1, 36).Value = NSkyAtlas & OrientSA

End Sub

Sub Urano1erEd(ligne, RA, Decl)

'
'
' N° carte Uranometria 1ere édition (avant nov 2001)
'
'
Select Case Abs(Decl)
Case 0 To 5.5
'NUranoV1 = 215 + Int((RA + 16 / 60) * 60 / 32) simplifié en
NUranoV1 = 215 + Int(RA * 1.875 + 0.5)
If NUranoV1 = 260 Then NUranoV1 = 215
'détermination de la partie de la carte ou se situe l'objet:
'orientation N/S
If Decl > 0 Then OrientU1 = "N" Else OrientU1 = "S"
' puis O/E
If RA * 1.875 + 0.5 - Int(RA * 1.875 + 0.5) > 0.5 Then
OrientU1 = OrientU1 & "O"
Else
OrientU1 = OrientU1 & "E"
End If

Case 5.5001 To 17
'NUranoV1 = 170 + Int((RA + 16 / 60) * 60 / 32) simplifié en
NUranoV1 = 170 + Int(RA * 1.875 + 0.5)
If NUranoV1 = 215 Then NUranoV1 = 170
'
'détermination de l'orientation N/S pour l'hemisphere N.
Call orientationNS(Decl, 11.25, NUranoV1, 90, OrientU1)

'détermination de l'orientation E/O
If RA * 1.875 + 0.5 - Int(RA * 1.875 + 0.5) > 0.5 Then
OrientU1 = OrientU1 & "O"
Else
OrientU1 = OrientU1 & "E"
End If

Case 17.0001 To 28
'NUranoV1 = 125 + Int((RA + 16 / 60) * 60 / 32) simplifié en
NUranoV1 = 125 + Int(RA * 1.875 + 0.5)
If NUranoV1 = 170 Then NUranoV1 = 125
'
'détermination de l'orientation N/S pour l'hemisphere N.
Call orientationNS(Decl, 22.5, NUranoV1, 180, OrientU1)

'détermination de l'orientation E/O
'
If RA * 1.875 + 0.5 - Int(RA * 1.875 + 0.5) > 0.5 Then
OrientU1 = OrientU1 & "O"
Else
OrientU1 = OrientU1 & "E"
End If

Case 28.0001 To 39
' NUranoV1 = 89 + Int((RA + 20 / 60) * 60 / 40) simplifié en
NUranoV1 = 89 + Int(RA * 1.5 + 0.5)
If NUranoV1 = 125 Then NUranoV1 = 89
'
'détermination de l'orientation N/S pour l'hemisphere N.
Call orientationNS(Decl, 33.5, NUranoV1, 261, OrientU1)

'détermination de l'orientation E/O
'
If RA * 1.5 + 0.5 - Int(RA * 1.5 + 0.5) > 0.5 Then
OrientU1 = OrientU1 & "O"
Else
OrientU1 = OrientU1 & "E"
End If

Case 39.0001 To 50
' NUranoV1 = 59 + Int((RA + 24 / 60) * 60 / 48) simplifié en
NUranoV1 = 59 + Int(RA / 0.8 + 0.5)
If NUranoV1 = 89 Then NUranoV1 = 59
'
'détermination de l'orientation N/S pour l'hemisphere N.
Call orientationNS(Decl, 44.5, NUranoV1, 327, OrientU1)

'détermination de l'orientation E/O
'
If RA / 0.8 + 0.5 - Int(RA / 0.8 + 0.5) > 0.5 Then
OrientU1 = OrientU1 & "O"
Else
OrientU1 = OrientU1 & "E"
End If

Case 50.0001 To 61
' NUranoV1 = 35 + Int((RA + 30 / 60) * 60 / 60) simplifié en
NUranoV1 = 35 + Int(RA + 0.5)
If NUranoV1 = 59 Then NUranoV1 = 35
'
'détermination de l'orientation N/S pour l'hemisphere N.
'on renversera après pour hémis. sud
Call orientationNS(Decl, 55.5, NUranoV1, 381, OrientU1)

'détermination de l'orientation E/O
'
If RA + 0.5 - Int(RA + 0.5) > 0.5 Then
OrientU1 = OrientU1 & "O"
Else
OrientU1 = OrientU1 & "E"
End If

Case 61.0001 To 72.5
'NUranoV1 = 15 + Int((RA + 36 / 60) * 60 / 72) simplifié en
NUranoV1 = 15 + Int(RA / 1.2 + 0.5)
If NUranoV1 = 35 Then NUranoV1 = 15
'
'détermination de l'orientation N/S pour l'hemisphere N.
Call orientationNS(Decl, 66.75, NUranoV1, 425, OrientU1)

'détermination de l'orientation E/O
'
If RA / 1.2 + 0.5 - Int(RA / 1.2 + 0.5) > 0.5 Then
OrientU1 = OrientU1 & "O"
Else
OrientU1 = OrientU1 & "E"
End If

Case 72.5001 To 84.5
'NUranoV1 = 3 + Int((RA + 50 / 60) * 60 / 120) simplifié en
NUranoV1 = 3 + Int(RA / 2 + 1 / 2.4)
If NUranoV1 = 15 Then NUranoV1 = 3
'
'détermination de l'orientation N/S pour l'hemisphere N.
Call orientationNS(Decl, 78.5, NUranoV1, 457, OrientU1)

'détermination de l'orientation E/O
'
If RA / 2 + 1 / 2.4 - Int(RA / 2 + 1 / 2.4) > 0.5 Then
OrientU1 = OrientU1 & "O"
Else
OrientU1 = OrientU1 & "E"
End If

Case 84.50001 To 90
NUranoV1 = 1 + Int(RA / 12)
'
If RA > 6 And RA < 18 Then OrientU1 = "S" Else OrientU1 = "N"
If Decl < 0 Then
NUranoV1 = 474 - NUranoV1
If OrientU1 = "N" Then OrientU1 = "S" Else OrientU1 = "N"
End If
'
If RA > 0 And RA < 12 Then
OrientU1 = OrientU1 & "O"
Else
OrientU1 = OrientU1 & "E"
End If
'
Case Else
MsgBox "Ascension droite >90° pour ligne" & ligne.Row & "!!!"
NUranoV1 = "prob: Ascension droite >90°"

End Select
'
' test du n° de vol puis affichage
'
If Decl > 5.5 Then
NUranoV1 = "Vol I,n°" & NUranoV1 & "; " & OrientU1
ElseIf Decl < -5.5 Then
NUranoV1 = "Vol II,n°" & NUranoV1 & "; " & OrientU1
Else
NUranoV1 = "Vol I&II,n°" & NUranoV1 & "; " & OrientU1
End If
ligne.Cells(1, 37).Value = NUranoV1
End Sub

Sub Urano2emeEd(ligne, RA, Decl)

'
'
' N° carte Uranometria 2ème édition (après nov 2001)
'
'
Select Case Abs(Decl)
Case 0 To 5.5
'NUranoV2 = 121 - Int((RA + 36/ 60) * 60 / 72) simplifié en
NuranoV2 = 121 - Int(RA / 1.2 + 0.5)
'si on est sur la partie droite de la première carte 101, on tombe sur 121...
If NuranoV2 = 121 Then NuranoV2 = 101
'
'détermination de la partie de la carte ou se situe l'objet:
'orientation N/S
If Decl > 0 Then OrientU2 = "N" Else OrientU2 = "S"
' puis de quel coté de la page g/d et dans ce coté quel orientation O/E
Call orientationEO(OrientU2, RA / 1.2 + 0.5 - Int(RA / 1.2 + 0.5))

Case 5.5001 To 17.5
'NUranoV2 = 101 - Int((RA + 36 / 60) * 60 / 72) simplifié en
NuranoV2 = 101 - Int(RA / 1.2 + 0.5)
'
If NuranoV2 = 101 Then NuranoV2 = 81
'détermination de l'orientation N/S pour l'hemisphere N.
Call orientationNS(Decl, 11.5, NuranoV2, 40, OrientU2)
' puis de quel coté de la page g/d et dans ce coté quel orientation O/E
Call orientationEO(OrientU2, RA / 1.2 + 0.5 - Int(RA / 1.2 + 0.5))
'

Case 17.5001 To 29.5
'NUranoV2 = 81 - Int((RA + 40 / 60) * 60 / 80) simplifié en
NuranoV2 = 81 - Int(RA * 0.75 + 0.5)
If NuranoV2 = 81 Then NuranoV2 = 63
'détermination de l'orientation N/S pour l'hemisphere N.
Call orientationNS(Decl, 23.5, NuranoV2, 78, OrientU2)
' puis de quel coté de la page g/d et dans ce coté quel orientation O/E
Call orientationEO(OrientU2, RA * 0.75 + 0.5 - Int(RA * 0.75 + 0.5))
'
'
Case 29.50001 To 40.5
' NUranoV2 = 63 - Int((RA + 40 / 60) * 60 / 80) simplifié en
NuranoV2 = 63 - Int(RA * 0.75 + 0.5)
If NuranoV2 = 63 Then NuranoV2 = 45
'détermination de l'orientation N/S pour l'hemisphere N.
Call orientationNS(Decl, 35, NuranoV2, 114, OrientU2)
' puis de quel coté de la page g/d et dans ce coté quel orientation O/E
Call orientationEO(OrientU2, RA * 0.75 + 0.5 - Int(RA * 0.75 + 0.5))

Case 40.5001 To 51.5
' NUranoV2 = 45- Int((RA + 48 / 60) * 60 / 96) simplifié en
NuranoV2 = 45 - Int(RA / 1.6 + 0.5)
If NuranoV2 = 45 Then NuranoV2 = 30
'détermination de l'orientation N/S pour l'hemisphere N.
Call orientationNS(Decl, 46, NuranoV2, 147, OrientU2)
' puis de quel coté de la page g/d et dans ce coté quel orientation O/E
Call orientationEO(OrientU2, RA / 1.6 + 0.5 - Int(RA / 1.6 + 0.5))
'
'
Case 51.5001 To 62.5
' NUranoV2 = 30 - Int((RA + 60 / 60) * 60 / 120) simplifié en
NuranoV2 = 30 - Int(RA / 2 + 0.5)
If NuranoV2 = 30 Then NuranoV2 = 18
'détermination de l'orientation N/S pour l'hemisphere N.
Call orientationNS(Decl, 57, NuranoV2, 174, OrientU2)
' puis de quel coté de la page g/d et dans ce coté quel orientation O/E
Call orientationEO(OrientU2, RA / 2 + 0.5 - Int(RA / 2 + 0.5))

'
Case 62.50001 To 73.5
' NUranoV2 = 18 - Int((RA + 72 / 60) * 60 / 144) simplifié en
NuranoV2 = 18 - Int(RA / 2.4 + 0.5)
If NuranoV2 = 18 Then NuranoV2 = 8
'détermination de l'orientation N/S pour l'hemisphere N.
Call orientationNS(Decl, 68, NuranoV2, 196, OrientU2)
' puis de quel coté de la page g/d et dans ce coté quel orientation O/E
Call orientationEO(OrientU2, RA / 2.4 + 0.5 - Int(RA / 2.4 + 0.5))
'
'
Case 73.5001 To 84.5
' NUranoV2 = 8 - Int((RA + 120 / 60) * 60 / 240) simplifié en
NuranoV2 = 8 - Int(RA / 4 + 0.5)
If NuranoV2 = 8 Then NuranoV2 = 2
'détermination de l'orientation N/S pour l'hemisphere N.
Call orientationNS(Decl, 79, NuranoV2, 212, OrientU2)
' puis de quel coté de la page g/d et dans ce coté quel orientation O/E
Call orientationEO(OrientU2, RA / 4 + 0.5 - Int(RA / 4 + 0.5))
'
'
Case 84.50001 To 90
NuranoV2 = 1
If RA > 6 And RA < 18 Then OrientU2 = "N" Else OrientU2 = "S"
If Decl < 0 Then
NuranoV2 = 220
If OrientU2 = "N" Then OrientU2 = "S" Else OrientU2 = "N"
End If
'
If RA > 0 And RA < 12 Then
OrientU2 = ",G," & OrientU2 & "O"
Else
OrientU2 = ",D," & OrientU2 & "E"
End If
'
Case Else
MsgBox "Ascension droite >90° pour ligne" & ligne.Row & "!!!"
NuranoV2 = "prob: Ascension droite >90°"

End Select
'
' test du n° de volume puis affichage
'
If Decl > -5.5 Then
NuranoV2 = "Vol I,n°" & NuranoV2 & OrientU2
Else
NuranoV2 = "Vol II,n°" & NuranoV2 & OrientU2
End If
ligne.Cells(1, 38).Value = NuranoV2

End Sub
Sub Millenium(ligne, RA, Decl)

'
'
' N° carte Millénium star atlas
'
'
' Pour le millénium, on passe par une variable RAMil qui est
' le RA -0 , -8 ou -16h selon la partie du ciel ou on est
If RA > 16 Then
RAMil = RA - 16
ElseIf RA > 8 Then
RAMil = RA - 8
Else
RAMil = RA
End If

Select Case Abs(Decl)
Case 0 To 3
'NMillenium = 270 - Int(RAMil * 60 / 20) simplifié en
NMillenium = 270 - Int(RAMil * 3)
'
'détermination de la partie de la carte ou se situe l'objet:
'orientation N/S
If Decl > 0 Then OrientMil = "N" Else OrientMil = "S"
' puis de quel coté de la page g/d et dans ce coté quel orientation O/E
Call orientationEOMil(OrientMil, RAMil * 3 - Int(RAMil * 3))

Case 3.00001 To 9
'NMillenium = 246 - Int(RAMil* 60 / 20) simplifié en
NMillenium = 246 - Int(RAMil * 3)
'
Call orientationNS(Decl, 6, NMillenium, 48, OrientMil)
' puis de quel coté de la page g/d et dans ce coté quel orientation O/E
Call orientationEOMil(OrientMil, RAMil * 3 - Int(RAMil * 3))
'

Case 9.0001 To 15
NMillenium = 222 - Int(RAMil * 3)
'détermination de l'orientation N/S pour l'hemisphere N.
Call orientationNS(Decl, 12, NMillenium, 96, OrientMil)
' puis de quel coté de la page g/d et dans ce coté quel orientation O/E
Call orientationEOMil(OrientMil, RAMil * 3 - Int(RAMil * 3))
'
'
Case 15.0001 To 21
NMillenium = 198 - Int(RAMil * 3)
'détermination de l'orientation N/S pour l'hemisphere N.
Call orientationNS(Decl, 18, NMillenium, 144, OrientMil)
' puis de quel coté de la page g/d et dans ce coté quel orientation O/E
Call orientationEOMil(OrientMil, RAMil * 3 - Int(RAMil * 3))

Case 21.0001 To 27
NMillenium = 174 - Int(RAMil * 3)
'détermination de l'orientation N/S pour l'hemisphere N.
Call orientationNS(Decl, 24, NMillenium, 192, OrientMil)
' puis de quel coté de la page g/d et dans ce coté quel orientation O/E
Call orientationEOMil(OrientMil, RAMil * 3 - Int(RAMil * 3))
'
'
Case 27.0001 To 33
NMillenium = 150 - Int(RAMil * 60 / 21.8181)
'détermination de l'orientation N/S pour l'hemisphere N.
Call orientationNS(Decl, 30, NMillenium, 238, OrientMil)
' puis de quel coté de la page g/d et dans ce coté quel orientation O/E
Call orientationEOMil(OrientMil, RAMil * 60 / 21.8181 - Int(RAMil * 60 / 21.8181))

'
Case 33.00001 To 39
NMillenium = 128 - Int(RAMil * 60 / 21.8181)
'détermination de l'orientation N/S pour l'hemisphere N.
Call orientationNS(Decl, 36, NMillenium, 282, OrientMil)
' puis de quel coté de la page g/d et dans ce coté quel orientation O/E
Call orientationEOMil(OrientMil, RAMil * 60 / 21.8181 - Int(RAMil * 60 / 21.8181))
'
'
Case 39.0001 To 45
' NMillenium = 106 - Int(RAMil * 60 / 24) simplifié en
NMillenium = 106 - Int(RAMil * 2.5)
'détermination de l'orientation N/S pour l'hemisphere N.
Call orientationNS(Decl, 42, NMillenium, 324, OrientMil)
' puis de quel coté de la page g/d et dans ce coté quel orientation O/E
Call orientationEOMil(OrientMil, RAMil * 2.5 - Int(RAMil * 2.5))
'
'
Case 45.0001 To 51
' NMillenium = 86 - Int(RAMil * 60 / 24) simplifié en
NMillenium = 86 - Int(RAMil * 2.5)
'détermination de l'orientation N/S pour l'hemisphere N.
Call orientationNS(Decl, 48, NMillenium, 364, OrientMil)
' puis de quel coté de la page g/d et dans ce coté quel orientation O/E
Call orientationEOMil(OrientMil, RAMil * 2.5 - Int(RAMil * 2.5))
'
'
Case 51.0001 To 57
' NMillenium = 66 - Int(RAMil * 60 / 30) simplifié en
NMillenium = 66 - Int(RAMil * 2)
'détermination de l'orientation N/S pour l'hemisphere N.
Call orientationNS(Decl, 54, NMillenium, 400, OrientMil)
' puis de quel coté de la page g/d et dans ce coté quel orientation O/E
Call orientationEOMil(OrientMil, RAMil * 2 - Int(RAMil * 2))
'
'
Case 57.0001 To 63
NMillenium = 50 - Int(RAMil * 60 / 34.2857)
'détermination de l'orientation N/S pour l'hemisphere N.
Call orientationNS(Decl, 60, NMillenium, 430, OrientMil)
' puis de quel coté de la page g/d et dans ce coté quel orientation O/E
Call orientationEOMil(OrientMil, RAMil * 60 / 34.2857 - Int(RAMil * 60 / 34.2857))
'
'
Case 63.0001 To 69
' NMillenium = 36 - Int(RAMil * 60 / 40) simplifié en
NMillenium = 36 - Int(RAMil * 1.5)
'détermination de l'orientation N/S pour l'hemisphere N.
Call orientationNS(Decl, 66, NMillenium, 456, OrientMil)
' puis de quel coté de la page g/d et dans ce coté quel orientation O/E
Call orientationEOMil(OrientMil, RAMil * 1.5 - Int(RAMil * 1.5))
'
'
Case 69.0001 To 75
' NMillenium = 24 - Int(RAMil * 60 / 48) simplifié en
NMillenium = 24 - Int(RAMil * 60 / 48)
'détermination de l'orientation N/S pour l'hemisphere N.
Call orientationNS(Decl, 72, NMillenium, 478, OrientMil)
' puis de quel coté de la page g/d et dans ce coté quel orientation O/E
Call orientationEOMil(OrientMil, RAMil * 60 / 48 - Int(RAMil * 60 / 48))
'
'
Case 75.0001 To 81
' NMillenium = 14 - Int(RAMil * 60 / 60) simplifié en
NMillenium = 14 - Int(RAMil)
'détermination de l'orientation N/S pour l'hemisphere N.
Call orientationNS(Decl, 78, NMillenium, 496, OrientMil)
' puis de quel coté de la page g/d et dans ce coté quel orientation O/E
Call orientationEOMil(OrientMil, RAMil - Int(RAMil))
'
'
Case 81.0001 To 86
' NMillenium = 6 - Int(RAMil * 60 / 120) simplifié en
NMillenium = 6 - Int(RAMil * 0.5)
'détermination de l'orientation N/S pour l'hemisphere N.
Call orientationNS(Decl, 83.5, NMillenium, 508, OrientMil)
' puis de quel coté de la page g/d et dans ce coté quel orientation O/E
Call orientationEOMil(OrientMil, RAMil * 0.5 - Int(RAMil * 0.5))
'
'

Case 86.00001 To 90
NMillenium = 1
If RAMil > 4 And RAMil < 16 Then NMillenium = 2
If RAMil > 10 And RAMil < 22 Then OrientMil = "N" Else OrientMil = "S"
If Decl < 0 Then
NMillenium = NMillenium + 514
If OrientMil = "N" Then OrientMil = "S" Else OrientMil = "N"
End If
'
'If RAMil > 0 And RAMil < 12 Then
' OrientMil = ",G," & OrientMil & "O"
'Else
' OrientMil = ",D," & OrientMil & "E"
'End If
'
Case Else
MsgBox "Ascension droite >90° pour ligne" & ligne.Row & "!!!"
NMillenium = "prob: Ascension droite >90°"

End Select
'
' test du n° de volume puis affichage
'
If RA < 8 Then
NMillenium = "Vol I,n°" & NMillenium & OrientMil
ElseIf RA < 16 Then
NMillenium = "Vol II,n°" & NMillenium + 516 & OrientMil
Else
NMillenium = "Vol III,n°" & NMillenium + 1032 & OrientMil
End If
ligne.Cells(1, 39).Value = NMillenium

End Sub
Sub orientationNS(Decl, MidDecl, Nurano, AjoutHemSud, Orient)
'détermination de l'orientation N/S pour l'hemisphere N.
'on renversera après pour hémis. sud
If Abs(Decl) > MidDecl Then Orient = "N" Else Orient = "S"
'
If Decl < 0 Then
Nurano = Nurano + AjoutHemSud
If Orient = "N" Then Orient = "S" Else Orient = "N"
End If

End Sub
Sub orientationEO(Orient, TestOrientation)
' puis de quel coté de la page g/d et dans ce coté quel orientation O/E
Select Case TestOrientation
Case 0 To 0.25
Orient = ",D," & Orient & "E"
Case 0.25 To 0.5
Orient = ",D," & Orient & "O"
Case 0.5 To 0.75
Orient = ",G," & Orient & "E"
Case 0.75 To 1
Orient = ",G," & Orient & "O"
End Select
End Sub
Sub orientationEOMil(Orient, TestOrientation)
' puis de quel coté de la page g/d et dans ce coté quel orientation O/E
Select Case TestOrientation
Case 0 To 0.5
Orient = "," & Orient & "E"
Case 0.5 To 1
Orient = "," & Orient & "O"
End Select
End Sub

[Thierry 0]

Raphaël
Hier soir je me suis penché sur Sky Atlas et j'avais saisi le truc. c'est effectivement utile et efficace. en effet lorsque l'on est dehors avec juste les coordonnées, c'est pas toujours evident, au moins avec ça, on degrossi fortement.
Bravo à toi, tu m'as l'air d'être un as d'Excel!!!

Thierry.