modeifier un numéro en lettre & extraire ...

[LaurentG]

Bonjour,

J'ai dans une feuille en colonne A, des chiffres séquentiels de ce type :

54050010100
54050010101
54050010102
...

et en colonne B une date sous le format mm/dd/yyyy.

J'ai besoin d'une macro qui recherche le numéro séquentiel (précédement indiqué dans un usf) dans la feuille (çà ok).
Ensuite il faut que j'attribue une valeur à une variable 'nom_photo'.

Mes photos ont un nom de ce type : mmdd + une lettre séquentielle A, B... (par exemple pour aujourd'hui : 0102A)

Donc je dois tout d'abord modifier la date que j'ai dans moon tableau à la ligne correspondante au numéro séquentiel recherché en enlevant les '/' et en ne prenant que la valeur du mois et du jour.

Dans un deuxième temps, en fonction de mon numéro séquentiel, si il se termine par 0 alors la lettre sera A, si il se termine par 1 alors la lettre = B ... si il se termine par 27 alors la lettre = AA, si 28 alors AB ...

Quelqu'un a une petite idée sur la manière de faire?

Merci beaucoup!

Laurent

 

[Creepy]

Bonjour le Forum,Laurent,

Regarde en PJ la réponse.

2 remarques :

1 - J'ai mis deux fois la même macro, une en normale pour que tu suives et l'autre en plus condensée qui fonctionne aussi mais plus 'confuse'.
A toi de prendre celle que tu veux.

2 - Tu dis :

si il se termine par 0 alors la lettre
sera A, si il se termine par 1 alors la lettre = B ... si il se termine par 27 alors la lettre = AA, si 28 alors AB ...

Mais si tu commences en 0 et que 0= A alors AA n'est pas egale à 27, mais à 26. 27=AB non ?

@+

Creepy [file name=NomPhoto.zip size=10916]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/NomPhoto.zip[/file]

Message édité par: Creepy, à: 02/01/2006 16:35

 

[gbinforme]

Bonjour,

Ensuite il faut que j'attribue une valeur à une variable 'nom_photo'.

ActiveWorkbook.Names.Add Name:='nom_photo', RefersToR1C1:= _
'='nom de la feuille'!R' & ligne début & 'C' & colonne début & ':R' & ligne fin & 'C' & colonne fin
en mettant le bon nom de feuille et les bons N° de lignes et colonne.

en enlevant les '/' et en ne prenant que la valeur du mois et du jour.

=mois(cellule date)&jour(cellule date)&code

pour le code il faudrait savoir combien tu prends de caractère dans ton N°