Pour mon 1519ème message

[Guest]

Bon, je fête mon 1519 ème message!😀 euh 1520 avec celui-ci

Voici un fichier avec deux exemples, et deux modules de classe pour gérer une collection de TextBox de userForm


(il y a eu un meli melo dans les versions alors vous n'avez peut-etre pas la dernière)
A bientôt les amis

 

[Brigitte]

Re : Pour mon 1519ème message

Coucou,

Bon moi c pas la peine que j'ouvre ca, je vais prendre mal à la tête pour rien.

Mais si tu pouvais créer un nouvel "événement rencontre", je suis partante.


B
i
s
o
u
s

et Bravo.

 

[BERRACHED said]

Re : Pour mon 1519ème message

Salut,Hasco,Brigitte

je suis sur 2003 ça marche bien,bravo c'est une saisie guidé par les couleur un setfocus comme ça les utilisateurs ne peuvent pas ce tromper un truc a ajouter au grenier Bravo

Cordialement

 

[Staple1600]

Re : Pour mon 1519ème message

Bonjour à tous




Pas de problèmes sous Excel 2000
Félications monsieur Hasco


PS: Tu as oublié de mettre le code du bouton fermer Exemple1 😀

Donc 19,5/20 (lol)

 

[Guest]

Re : Pour mon 1519ème message

Hello Staple,

Remarque que cette fois je ne mets qu'un p à Staple!😀

Tu as entièrement raison pour le bouton. Je suis virussé, et n'ai pas les idées plus claires que d'habitude pour autant.

A+

 

[Staple1600]

Re : Pour mon 1519ème message

Re


Hasco: tu as vraiment un virus sur ton PC?


Pour t'aider à préserver tes idées

Je t'écris le code manquant pour que tu le copies/colles 🙂

Me.Hide

ou

UnLoad.Me

C'est cadeau 🙂

 

[Guest]

Re : Pour mon 1519ème message

Hey Staple,

Nein, pas virus sur pc🙄 virus dans nez, gorge, poumon.( j'chuis pas encore identifié à mon PC)
Je m'en vais coller de ce pas.

A+++

 

[skoobi]

Re : Pour mon 1519ème message

Salut Gérard, Jean-Marie 🙂,
Re aux autres,

Ges, splendide ce que tu as fait car tous les événements d'un contrôle ne figure pas dans la liste lors de leurs créations dans un module de classe, notamment GotFocus, LostFocus...
Mais je ne t'apprends rien 😉.
C'est quand même dommage que ces événements n'y figure pas 🙁.
Je regarderait tout ça de plus près à tête reposé (avec le tube d'aspirine à coté 😀) car je n'utilise pas souvent les modules de classe.

Merci!

J'oubliai, ça tourne rond sur excel 2003 🙂.

A bientôt.

A(Tchouuumm)mitiés 😛

 

[Cousinhub]

Re : Pour mon 1519ème message

Salut Gérard, le fil

Fonctionne également sous 2007

Pffffft, c'est ton rhube qui t'es monté à la tête?
Elles peuvent faire des dégâts, ces p'tites bêtes, la preuve........

Félicitations

A mettre dans le grenier

Et au plaisir de te revoir

 

[porcinet82]

Re : Pour mon 1519ème message

Salut,

J'ai également tester sous 2007 et pas de soucis.
Par contre, meme l'exemple "simple" est loin d'etre simple pour quelqu'un qui n'y connait pas grand chose au module de classe... 😉

@+

 

[Guest]

Re : Pour mon 1519ème message

Brigitte,Said, Staple,Skoobi,BH²,Porcinet,

On les voit les copains, que des compliments.

Je crois que je vais guérir plus vite.

A+++ vous tous

Je reviendrai avec des améliorations de la classe avec un exemple de contrainte de saisie.

Woao c'est piti, sortez vos lunettes.

 

[Staple1600]

Re : Pour mon 1519ème message

Re


Pour Hasco 😀

Sub Hasco_Remede()
Dim i as Rhum
Dim Grog as Range
Set Grog= Range("Godet")
For i= 1 to 4 
Range("Boire")=Range("Godet").Offset(-i,1)
Next
End Sub

Recette : Grog au rhum - Une recette de cuisine Marmiton - Recettes - Marmiton.org

 

[JCGL]

Re : Pour mon 1519ème message

Bonjour à tous
Salut aux amis

Pour le rhume, je préconise le RHUM (recommandé aussi par Staple)

A++ mon cher Hasco et BRAVO pour tes codes
A++ S...t 😉
A+ à tous

 

[mth]

Re : Pour mon 1519ème message

Bonsoir Gérard, et bonsoir le fil 🙂

Un peu comme Brigitte, bien difficile pour moi tout ça…. mais admirative, et tout fonctionne merveilleusement bien sous 2000.

Soigne toi bien (avec les potions de Staple et JC, ça devrait marcher...)

@ +

Mireille

PS : ça fait plaisir de retrouver ton menhir ... 🙂

 

[Guest]

Re : Pour mon 1519ème message

JCGL😀
Staple😀
Mth😀

Tout d'abord merci pour vos encouragements.
Staple, je garde la recette, mais je ne comprends pas le -i

Range("Boire")=Range("Godet").Offset([COLOR=red]-i[/COLOR],1)

Mais sûrement qu'avec la pratique je comprendrai mieux (une dizaine d'essais d'affilée).

Ensuite, j'ai amélioré nettement la classe collection et fait une mini appli à partir d'elle, que vous trouverer dans le Post #1.

A++les amis