Petit Challenge VBA

Victor21

XLDnaute Barbatruc

Supporter XLD

• 27 Novembre 2011

• #2

Re : Petit Challenge VBA

Bonjour.

Joli titre qui résume bien la problématique !
Les liens en bas de page (discussions similaires) devraient vous être d'un grand secours.

lisez quand même Lien supprimé.

 

Dernière édition: 27 Novembre 2011

Vote positif 0 Vote négatif

B

belerofon

XLDnaute Occasionnel

• 27 Novembre 2011

• #3

Re : Petit Challenge VBA

ah j avais oublié... le code 3 lettres correspondant a la ville est stocké dans une cellule de mon fichier que l on appellera A1

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 27 Novembre 2011

• #4

Re : Petit Challenge VBA

Bonjour le fil, bonjour le forum,

C'est con j'ai la solution mais comme je suis loin d'être le meilleur j'attends qu'il réponde pour voir si j'ai juste...

 

Vote positif 0 Vote négatif

B

belerofon

XLDnaute Occasionnel

• 27 Novembre 2011

• #5

Re : Petit Challenge VBA

Trop modeste Robert 🙂)) mais bien joué

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 27 Novembre 2011

• #6

Re : Petit Challenge VBA

Bonsoir beloforon, le fil

(re à messieurs Robert et Victor21 auxquels j'ajoute MJ13)


beloforon: il me semblait pourtant avoir compris dans un autre fil que tu avais pris connaissance de la charte ??

Tu as déjà oublié ??

L'est où le fichier exemple ?

 

Dernière édition: 27 Novembre 2011

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 27 Novembre 2011

• #7

Re : Petit Challenge VBA

Bonjour à tous

Merci à tous et que le meilleur reponde le plus vite... 🙂

Cliquez pour agrandir...

Et ça nous rapporte quoi ? 😉

Peut être, qu'on prend le forum pour de la main-d'oeuvre pas cher (j'en ai vu quelques uns ces derniers temps 🙂).

Merci Belerofon (P....n, c'est dur à dire): Allez les petits, le fichier vient d'arriver. Maintenant, vous avez assez discuté, la pause est terminée. Tout le monde au boulot. Je n veux pas entendre une mouche pétée 😱.

 

Dernière édition: 27 Novembre 2011

Vote positif 0 Vote négatif

B

belerofon

XLDnaute Occasionnel

• 27 Novembre 2011

• #8

Re : Petit Challenge VBA

Salut MJ13,
Ben ecoute j suis toujours partant pour boire une mousse avec les gens qui m aide a progresser 🙂

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 27 Novembre 2011

• #9

Re : Petit Challenge VBA

Re

beloforon: tu as lu mon précédent message ? ( celui ou j'évoque un fichier exemple ....)

 

Vote positif 0 Vote négatif

B

belerofon

XLDnaute Occasionnel

• 27 Novembre 2011

• #10

Re : Petit Challenge VBA

Staple,
effectivement, tu pourras constater la presence d un edit sur le post de base normalement...

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 27 Novembre 2011

• #11

Re : Petit Challenge VBA

Re

Ok j'ai vu Edith

Quelques précisions cependant
Ce que tu appelles un dossier, j'appelle (et d'autres avec moi) cela un classeur.
(Un dossier chez Windows , c'est un répertoire)
Tu parles d'userform ?
Il n'y en a pas dans ta PJ.

 

Vote positif 0 Vote négatif

B

belerofon

XLDnaute Occasionnel

• 27 Novembre 2011

• #12

Re : Petit Challenge VBA

Staple,
le type de dossier que j evoquais dans mon exemple n est pas un classeur, mais un dossier professionnel a traiter (un ensemble d information relative a une demande), d ou l expression numero de dossier... Pour ce qui est de l userform , c est juste pour preciser la methode d obtention du resultat pour eviter que quelqu un me reponde qu il suffit de faire une concatenation de la valeur de differentes cellules... mais si c est reellement utile je peut rajouter un bouton ouvrant l userform
J.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 27 Novembre 2011

• #13

Re : Petit Challenge VBA

Re


Comme j'ai passé un peu de temps sur l'établi, je te livre ceci à titre d'exemple
(Pour te montrer que tu n'es pas obliger de stocker tes valeurs dans des cellules)

Code:

Sub b()
Dim t, tt, chaine  As String, x$, i
t = Array("Ablis", "Achères", "Aubergenville", "Bois d'Arcy", "Bonnière sur Seine", "Bréval", "Chanteloup les Vignes", "Chatou / Carrières", "Chevreuse", "Conflans Sainte Honorine", "Garancière", "Gargenville", "Houdan", "Houilles", "La Celle Saint Cloud", "Le Mesnil le Roi", "Le Vésinet", "Les Essarts le Roi", "Les Mureaux", "Limay", "Louvecienne", "Magnanville", "Magny les Hameaux", "Maison Laffite", "Marly le Roi", "Maule", "Maurepas", "Montesson", "Montfort l'Amaury", "Montigny le Bretonneux", "Plaisir", "Poissy", "Rambouillet", "Saint Arnoult en Yvelines", "Saint Germain en Laye", "Saint Leger en Yvelines", "Septeuil", "Vélizy", "Vernouillet", "Versailles", "Villepreux / Les Clayes sous Bois", "Viroflay")
tt = Array("ABL", "ACH", "AUB", "BOI", "BON", "BRE", "CLV", "CHA", "CHE", "CSH", "GRC", "GGV", "HOD", "HOI", "CSC", "MES", "VES", "ESS", "LMX", "LIM", "LOU", "MAG", "MLH", "MLF", "MAR", "MAL", "MPS", "MTS", "MOA", "MLB", "PLA", "PSY", "RAM", "STA", "SGL", "SLG", "SEP", "VLY", "VRN", "VRS", "CSB", "VIR")
Randomize
i = Int((Rnd * 999) + 1) 'utile simplement pour créer un exemple
x = t(Int((Rnd * UBound(t))) + 1)'utile simplement pour créer un exemple
chaine = tt(CLng(Application.Match(x, t)) - 1) & "-" & Right(Year(Now), 2) & "-" & Format(i, "000")
MsgBox x & vbCrLf & chaine
End Sub

Je laisse tester et voir si cela peut t'intéresser.

PS: As-tu regardé dans le forum si tu trouvais des discussions similaires à ta question ?

 

Dernière édition: 27 Novembre 2011

Vote positif 0 Vote négatif

B

belerofon

XLDnaute Occasionnel

• 27 Novembre 2011

• #14

Re : Petit Challenge VBA

Merci Staple,
En fait le stockage de ces infos dans des cellules s explique de la facon suivante:
ce classeur est destine a etre utilisé par plusieurs casernes... chaque caserne le personnaliserait par le nom de sa ville d implentation via une liste deroulante... cela generera un numero de dossier propre a sa caserne ce qui permettra au service receptionnant les dossier (qui est une entite unique decentralisee) de pouvoir classer ces demandes par caserne emettrice.
De cette facon une fois la ville selectionnee lors de la premiere utilisation , il ne leur sera plus utile de reselectionner leur caserne a chaque nouvelle demande via l userform....
je sais pas si j ai ete assez clair... j ai fait de mon mieux apres 11h de garde sur l ordi...
Merci beaucoup de t etre penché sur mon probleme je vais aller tester ca de suite...
J.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 27 Novembre 2011

• #15

Re : Petit Challenge VBA

RE


Une suggestion:
Prends le temps de créer un fichier exemple plus conséquent (avec un userform déjà créé par exemple)
et qui illustre plus avant ton problème.
(En fait tu veux simplement générer des numéros de dossier et les incrémenter sans doublons)

PS: En plus cela me laissera à moi le temps d'aller éplucher mes légumes pour la soupe de ce soir.

 

Vote positif 0 Vote négatif