Petit Probleme

[tonyboy]

Bonjour a tous et a toute, avant toute chose je vous remercie pour votre travail qui est d'un grand secours pour nous debutant.
Je suis technicient en telecom et j'ai un petit souci, je viend de faire un fichier excel qui m'aide a remplir des unitées dans un pabx mais je souhaiterais pouvoir l'automatiser avec une macro ou vba ...
Je vous joint mon fichier si vous avez du temp devant vous afin de me donner un coup de pouce je vous en remerci d'avance.

http://homepc.free.fr/Repartition IT T2.xls

 

[JYLL]

Re : Petit Probleme

Bonsoir Tonyboy et le Forum,

J'ai regardé ton fichier, mais je ne comprends pas ce que tu cherches à effectuer. Tu as un peu de texte au début qui est probablement destiné aux utilisateurs du dit fichier. J'ai vu que dans les colonnes "AA" et AB" il y avait des renseignements, veux-tu faire un brassage en disant tel fil à tel endroit ou quelque chose du genre. ces références doivent être probablement des références que tu retrouves sans cesse. Maintenant j'aimerai savoir pour ne pas m'endormir idiot ce qu'est un pabx, certainement une abréviation propre à ton métier!

au plaisir de te lire et te comprendre.

 

[Catrice]

Re : Petit Probleme

Bonsoir,

Un Pabx je crois que c'est un autocommutateur ou central téléphonique.

Je n'ai pas bien compris ce que tu voulais faire mais je propose qd meme un truc sans macro ...
Voir fichier joint

 

[Compte Supprimé 979]

Re : Petit Probleme

Salut TonyBoy, bonsoir Catrice, bonsoir JYLL ...

Je ne sais pas non plus si j'ai bien compris,
mais voilà le fichier avec une ou deux petites macros sympa, pour l'aide à la saisie et la recopie 😉

Moi je n'ai pas compris le coup des IT mixer, j'ai bien un mixer chez moi, mais il n'est pas de chez IT 😀

A+

 

[tonyboy]

Re : Petit Probleme

Merci pour vos réponses

pour ceux qui mont demandé ce qu'est un PABX c'est bien un commutateurs téléphoniques qui sert a distribuer et acheminer les appels vers les téléphones avec une gestion centraliser droits, horaire, debordement .....

qu'es ce qu'une it ?
avant de répondre a cette question il faut savoir que ex: france telecom delivre des gros tuyaux appelés T2 délivrant 30 appels simultané par T2 au lieu d'une pour chez vous ,
certain gros clients pour ne pas cité un gros operateur téléphonique mobile en ont plus de 30 "30 T2 x 30 IT = 900 appels simultanée"

Dans les machines que nous installons chaque T2 est connecté a une carte Physique, chaque carte a un emplacement ex 01A12
maintenant une carte représente 30 IT "ou appel" ex 01A1201, 01A1202, 01A1203..... jusqu'à 01A1231 "31 car on supprime la 16"

donc supposons qu'on est 4 cartes 01A01 01A03 01C05 01B08:

Je souhaite avoir un fichier dans lequel j'indique les emplacements des cartes et le fichier doit me générer un tableau avec les IT dans un ordre particulier
01A0101
01A0301
01C0501
01B0801

01A0102
01A0302
01C0502
01B0802

01A0103
01A0303
01C0503
01B0803

......
01A0115
01A0315
01C0515
01B0815

01A0117
01A0317
01C0517
01B0817

......
01A0131
01A0331
01C0531
01B0831

c'est ce que j'appel mixer les IT dans le jargon téléphonique, cela sert a repartir la charge ou le taux d'utilisation sur toute les cartes, ex: un appel arrive il prend l'IT 01A0101 un autre se présente il prendra l'IT 01A0301 puis un autre 01C0501 "en reprenant l'exemple précédant".

imaginer mixer 900 IT "la galere" sachant que la position et nombre de carte varie d'un client a l'autre

Voila j'espère que je vous ais donné tout les éléments

Encore une fois Merci a tous

 

[Catrice]

Re : Petit Probleme

Bonsoir,

Je crois avoir compris ce que tu veux faire mais je n'ai pas compris comment tu voulais présenter les données ...

Voir fichier joint.

 

[tonyboy]

Re : Petit Probleme

Ouah exactement ce que je voulais, par contre une erreure au niveau de l'IT 16
Comme je le disais dans le message precedent il faudrais avoir les IT de 1 A 15 et 17 a 31 donc supprimer les lignes avec 16 a la fin

En tout cas grand merci pour votre aide

 

[tonyboy]

Re : Petit Probleme

hello
je viens de modifier la macro comme ceci

Sub test()
For i = 1 To 15
For Each x In ActiveSheet.Range("A2:" & ActiveSheet.Range("A65536").End(xlUp).Address)
ActiveSheet.Range("C65536").End(xlUp).Offset(1, 0).Value = x & Format(i, "00")
Next
Next
For z = 17 To 31
For Each x In ActiveSheet.Range("A2:" & ActiveSheet.Range("A65536").End(xlUp).Address)
ActiveSheet.Range("C65536").End(xlUp).Offset(1, 0).Value = x & Format(z, "00")
Next

Next
End Sub


ca marche impecable

ais- je bien fais ??