1 InputBox pour activer un commentaire, passer à 5 InputBox.

Résolu
marcelio Messages postés 56 Date d'inscription   Statut Membre Dernière intervention   -  
marcelio Messages postés 56 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour le Forum,

Avec un double clic sur ma feuille j'ouvre un InputBox, que je remplis et
qui me permet à la fin d' avoir un commentaire.
Est il possible d'ouvrir un InputBox avec 5 cases à remplir pour obtenir un commentaire
Un Exemple :
Un double clic et ont me demande : (en gras les titres et en italique ce que j'inscris)
Kilomètres parcourus :
1020
Ville de départ :
Paris
Ville étapes : (il y en à 2)
Lyon
Saint Étienne
Ville d'arrivée :
Marseille
Et avoir une couleur différente des titres et mes inscriptions.
Le tout sous la forme d'un commentaire
Je vous met un fichier pour voir mon code actuel que j'utilise.
Merci de votre aide

Marcelio
https://www.cjoint.com/?0JxrNorRYew
--
A voir également:

4 réponses

f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

vous choisirez les couleurs qui vous conviennent,

https://www.cjoint.com/?CJznfwH8MTZ
0
marcelio Messages postés 56 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour le Forum,
Bonjour f894009,

Une fois de plus vous êtes mon sauveur.
Ce fichier est vraiment formidable, j'aurais pas pensez à utiliser un USF .
Par contre j'aurais 2 questions :
A quoi sert le code dans le module1 et le Range ("K1")
et
je suis sous Excel 2003, les couleurs de la palette pour le fond d'un USF ne me convienne pas est t'il possible avec un code de choisir sa couleur.

A+
--
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Re,

module 1 : supprimer le sub Ajoutcommentaire()
module 2 : a supprimer

ce sont des codes de test

pour la couleur de UF, voir le site ci-dessous

'table RGB
'http://vela.astro.ulg.ac.be/Vela/Colors/rgb.html
Private Sub UserForm_Initialize()
Me.BackColor = RGB(238, 221, 130)
End Sub
0
marcelio Messages postés 56 Date d'inscription   Statut Membre Dernière intervention  
 
Re,

Merci pour toutes ces infos.

Encore merci du coup de main et bon weekend à vous et au Forum.

A+
Marcelio

--
0