Jeu d'Usf - faire disparaitre le premier !!!

[titilex]

Bonjour,

J'ai un petit soucis sur une des mes applications Excel.
Voila à l'ouverture du fichier j'ai un Usf qui demande qq renseingment
Selon la réponse cela appel un autre Usf.
Mon problème est que quand l'autre Usf apparait, j'ai tjs le premier qui est la...
Je voudrais qu'à l'ouverture du deuxième Usf, le premier disparaisse...
Que faut-il comme code ?
Merci pour l'aide qu'on pourra m'apporter...

Alex

 

[Orodreth]

Re : Jeu d'Usf - faire disparaitre le premier !!!

Salut Staple, Re tout le monde.

Voici ma solution au format zip.
Activation avec le deuxième bouton "Appel acceuil".

Est-ce que cela te convient ?

Thomas

 

[titilex]

Re : Jeu d'Usf - faire disparaitre le premier !!!

Pas tout as fais mais c'est déja une bonne piste pour d'autre petit trucs que je dois faire...
je vais explorer un peu le code,

Merci de vous casser la tete sur mon probleme en tout cas !!!$
Je m'attarde un peu sur ta proposition et j'essaye de l'adapter a mon cas !!!
A bientot !!!

 

[Staple1600]

Re : Jeu d'Usf - faire disparaitre le premier !!!

Re


Tu parles d'inscire la valeur du Texbox1 en Feuil2?

Private Sub CommandButton1_Click()
USF_ACC.Hide
derlig = Sheets("Feuil2").Range("A65536").End(xlUp).Row
Sheets("Feuil2").Range("A" & derlig + 1).Value = UCase(TextBox1.Text)
End Sub

 

[Orodreth]

Re : Jeu d'Usf - faire disparaitre le premier !!!

Re.

J'ai utilisé une liste car facile à manipuler (ou presque).
En revanche, si tu persistes avec les radiobutton, c'est plus complexe car il faut du code objet pour créer les controles.

Et là, je ne sais pas le faire sur excel 🙁

Thomas

 

[titilex]

Re : Jeu d'Usf - faire disparaitre le premier !!!

Code objet ?

Je vais tacher de me renseigner un peu dessus...
Je sais je suis exigent, mais comme c'est un document qui va circuler un peu partout, je tiens a ce qu'il soit le plus convivial... en tout cas merci de m'aider... dans ma ptite aventure...
Je vais bosser la dessus pour améliorer mon projet !!!
Merci encore !!!

 

[Orodreth]

Re : Jeu d'Usf - faire disparaitre le premier !!!

Tu peux déjà regarder ici pour voir à quoi ça ressemble.

C'est de l'objet dans le sens que tu crées des objets qui n'existaient pas avant. Le problème, c'est que la syntaxe objet de VBA est particulièrement chiante.

L'objet, c'est mieux avec un outil de développement orienté objet (eclipse pour java, Visual Studio 2005 pour VB.net, etc etc)
Mais là, c'est autre chose qu'excel 🙂

 

[titilex]

Re : Jeu d'Usf - faire disparaitre le premier !!!

C'est tres interessant ce que tu m'as mis en lien,
Je crois avoir une petite idee pour faire qq chose de sympa !!!
J'essaye de re-post !!!

 

[Orodreth]

Re : Jeu d'Usf - faire disparaitre le premier !!!

Ok, montre nous 🙂

(je sens que je vais halluciner moi 😱 )
😀

 

[titilex]

Re : Jeu d'Usf - faire disparaitre le premier !!!

héhé,

C'est clair que c'est un vrai casse-tete, la pour le moment je veux m'attaquer a un autre probleme celui de ma combobox.
Voila en fait j'ai commenté le bout de code pour une meilleur compréhension.
Mon problème et en fait une histoire de sélection...
Comment faire pour regénérer un liste que l'on trouve par le chemin suivant "insertion/Nom/définir".

Ma liste doit s'appeler "L_NOM" car en fait la combobox dépend de cette liste.
Le problème c'est que j'ai un code qui se fige sur une plage définit en l'occurence sur A1 à A4 mais en fait ce que je veux c'est que la liste se redéfinisse a chaque fois sur la plage de cellule sur lesquelles il y a un nom!!!! C'est à dire qu'il prend A5 dans mon exemple joint pour redéfinir "L_nom"...

 

[titilex]

Re : Jeu d'Usf - faire disparaitre le premier !!!

Bon déja j'ai réussi à faire en sorte que le nom s'affiche bien en fin de liste et sélectionner la liste avec le code suivant :

Private Sub CommandButton1_Click()
USF_ACC.Hide
' Ecrit la nouvelle entrée sur la feuil2 à la suite des entrées existante
derlig = Sheets("Feuil2").Range("A65536").End(xlUp).Row
Sheets("Feuil2").Range("A" & derlig + 1).Value = UCase(TextBox1.Text)
Dim valeur As String, Celldest As Range, Ligne As String
Ligne = Range("A65536").End(xlUp).Row
Range("A1", "A" & Ligne).Select
' Remet par ordre alphabétique le contenu de la colonne

End Sub

Je vais faire en sorte que cette liste se remète en ordre alphabétique mais la je galere,
Qq'un peut m'expliquer comment refaire un ordre alphabétique sur une selection de plusieurs cellules dans Vba ?

 

[Staple1600]

Re : Jeu d'Usf - faire disparaitre le premier !!!

Re

Juste pour flatter mon ego

Nous avons réussi

derlig = Sheets("Feuil2").Range("A65536").End(xlUp).Row
Sheets("Feuil2").Range("A" & derlig + 1).Value = UCase(TextBox1.Text)

 

[titilex]

Re : Jeu d'Usf - faire disparaitre le premier !!!

T'inquiete pas Staple1600,

Je tiens compte de chacun me donne car je pense que "tout travail merite salaire".
J'ai integrer ton morceau de code mon fichier et cela marche parfaitement bien !!!
La le probleme va un peu plus !!!
Une fois que j'ai recomposé ma liste je veux la remettre en ordre alphabétique et réetablir la liste "L-nom", je touche au but... Donc c'est cool
En tout cas merci de ton aide, ca a contribué a la reussite de ce que je souhaite faire !!!

Maintenant qq'un à une idée pour réetablir l'ordre "croissant" de la selection préetablie ?

 

[titilex]

Re : Jeu d'Usf - faire disparaitre le premier !!!

Bon j'arrive a bout de mon periple,

Voila comment faire une selection que j'appelerai active, et j'arrive maintenant à la remettre dans l'ordre,
Mon probleme est que pour refaire la liste "L_nom", il demande de référerà R1C1
Voila le code :

ActiveWorkbook.Names.Add Name:="L_NOM", RefersToR1C1:="=Feuil2!R1C1:R7C1"
Comment remplacer ceci par la selection active :
RefersToR1C1:="=Feuil2!R1C1:R7C1"

 

[Staple1600]

Re : Jeu d'Usf - faire disparaitre le premier !!!

Re

Il faudrait que L_NOM soit "dynamique"

Il y a plusieurs exemples sur le forum

(utilisation de DECALER)

 

[titilex]

Re : Jeu d'Usf - faire disparaitre le premier !!!

Staple je galere pour trouver qq chose qui convienne a mon cas,

En revanche qq'un peut juste m'expliquer a quoi correspond :

"RefersToR1C1:="=Feuil2!R1C1:R7C1"

Deja cela me permettrai d'y voir plus clair.
plus precisement a quoi correspond "R1C1"

Car quand je vais voir la plage de reference de "L-NOM" j'ai ca :

"=Feuil2!$A$1:$A$7" au lieu de "=Feuil2!R1C1:R7C1"