Faire un Userform

Gruick · 21 Octobre 2006

Bonsoir à tous.
De mes tribulations en Chine, j'ai constaté que le climat de Pékin était très chaud en début d'été. Pas étonnant, Pekin est à le hauteur de Madrid, et c'est le nord de la Chine.
Me vint l'idée de comparer, donc par Excel, les lattitudes et longitudes de certaines villes.
J'ai confectionné donc un planisphère sur Excel, et une 'tite macro qui me place les villes selon ses coordonnées.
Je voudrais me servir d'une userform qui reprendrait l'idée de la macro, mais plus facile à manipuler. Mais les userform et moi....

Il faudrait lui inscrire :
- le nom de la ville
- Capitale ou non (un bouton)
- Sa lattitude (un nombre), et son sens cardinal (Nord ou Sud) 2 boutons
- Sa longitude (un nombre), et sons sens cardinal (Ouest ou Est) 2 boutons
- un OK, et un annuler.
Le tout devant faire la même chose que la macro.

Alors si une bonne âme...

Merci d'avance.

Gruick, qui est revenu de loin, les Chinois aiment trop le cochon...

Bebere · 22 Octobre 2006

Re : Faire un Userform

bonjour Gruick
un essai avec listbox,le bouton quitter est opérationnel
tu choisis dans la listbox et la ville s'inscrit dans la feuille
liste des villes et coordonnées en feuil2,le but y ajouter celles qui manquent
à toi de voir
à bientôt

Gruick · 23 Octobre 2006

Bonjour Bebere,
Un grand merci d'abord.
Je me suis inspiré de ta solution, et repris un vieux cours en ligne très bien fait
Exemples de procédures Visual Basic Edition Applications pour Excel
J'ai réussi un truc super, en éprouvant une difficulté inattendue. La recherche verticale sur la lattitude ne trouvait rien, alors qu'en longitude, ça marchait. (il m'indiquait la colonne et pas la ligne), les deux processus étant les mêmes.
J'ai tout essayé, des with, d'autres noms... rien n'y faisait.
Le désespoir m'envahissait, mais j'ai trouvé ce matin la commande miracle.
Le problème n'était pas dans les noms, mais dans la comparaison.
J'ai remplacé le = par like, et ça marche.
(Je ne comprends toujours pas, tout est nombre dans ces zones, mais bon...)
Si ça t'intéresse, je te l'envoie par message privé, vu que toi seul aies répondu à ma requête.
A plus, et encore merci.
Gruick

Bebere · 23 Octobre 2006

Re : Faire un Userform

bonjour Gruick
oui cela m'intéresse mais n'oublie pas que nous sommes dans un forum de partage de connaissance(juste pour rappel)
à bientôt

Gruick · 23 Octobre 2006

Re : Faire un Userform

re,
J'ai crié VICTOIRE trop top, ça a marché un certain temps, et puis bogué sans avoir rien changé.
Pas compris.
V'la le fichier, si tu trouves...
nb. Ca marche parfaitement en traditionnel mais pas en UF.
Merci et à plus
Gruick

Gruick · 23 Octobre 2006

Re : Faire un Userform

J'ai trouvé.
Je testais sur "LongitudeA" (comme adaptée),
Mais mes longitudes paires restaient dans la variable "Longitude". D'où erreur sur BAKOU ou MONTREAL.
Quelle Andouille....

donc
Else
LongitudeA=Longitude

après les adaptations et avant le End if. (Flamandes évidemment).

Ensuite, lui préciser que ce sont des chiffres donc le Csng est là pour ça

Private Sub TextBox2_Change()
Longitude = CSng(UserForm1.TextBox2)
End Sub

Private Sub TextBox3_Change()
Lattitude = CSng(UserForm1.TextBox3)
End Sub

Là, je crois qu'on y est. Mais il ne faut jurer de rien disait Alfred.
C'est spécial les UserForms, mais ça m'a appris des trucs. Je vais en mettre partout...

Amicalement,
Gruick

et pas de problème pour le partage du forum (pléonasme), sur 350 messages, il y a plus de 300 réponses. (voir mon palmarès)

Faire un Userform

Gruick

XLDnaute Accro

Pièces jointes

Bebere

XLDnaute Barbatruc

Pièces jointes

Gruick

XLDnaute Accro

Bebere

XLDnaute Barbatruc

Gruick

XLDnaute Accro

Pièces jointes

Gruick

XLDnaute Accro

Discussions similaires