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

Résolu
marcelio Messages postés 64 Date d'inscription   Statut Membre Dernière intervention   -  
marcelio Messages postés 64 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
--

4 réponses

  1. marcelio Messages postés 64 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
  2. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    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
  3. marcelio Messages postés 64 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