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

[marcelio]

Bonjour à tous,

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 d' "Indiquez les kilomètres parcourus"
1000 Kilomètres parcourus
La "Ville de départ"
Paris
Les "Ville étapes" il y en à 2
Lyon
Saint Etienne
Et la "Ville d'arrivée"
Marseille

Le tout sous la forme d'un commentaire

Voici mon code actuel :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, [N13:N22]) Is Nothing Then
Dim reponse As String
Cancel = True
With Target
If .Comment Is Nothing Then
reponse = InputBox("Indiquez les kilomètres parcourus")
If reponse <> "" Then
.AddComment reponse & " kilomètres parcourus"
With .Comment.Shape.OLEFormat.Object
.AutoSize = True
.Interior.ColorIndex = 38 'rose saumon
With .Font
.Name = "Comic Sans MS"
.Size = 8
.Bold = True
.ColorIndex = 10
End With
End With
End If
Else
.Comment.Delete
End If
End With
End If
End Sub

Merci beaucoup de votre aide

Marcelio

 

[gilbert_RGI]

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

Alors voilà

mais pour modifier un commentaire déjà créé faire un clic droit puis cliquer sur modifier le commentaire

 

[marcelio]

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

Re,

Merci beaucoup pour ce nouveau fichier.
Je pense que maintenant tout iras bien.
encore merci et bonne fin de journée à vous et au Forum.

Marcelio