Kilomètres parcourus

[marcelio]

Bonjour le forum,

Un double clic sur ma cellule m'ouvre un InputBox, j’inscris des chiffres ce qui me permet à la fin l'insertion d'un commentaire et cela me donne:
Ex: 1245 Kilomètres parcourus
Pour amélioré mon fichier et sur une nouvelle feuille je voudrais ajouter automatiquement le mot "Dont" avant les chiffres
Ex: Dont 1245 Kilomètres parcourus

Sur ma nouvelle feuille je travail sur plusieurs colonnes
A partir de la colonne D et toutes les 7 colonnes
D4😀43
K4 : K43
R4 : R43
Y4 : Y43
AF4 : AF43
Jusqu'à la colonne EK4 : EK43


Mon code Actuel :

ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
True
If Not Intersect(Target, [N13:N22]) Is Nothing Then
Cancel = True
With Target
If .NoteText = "" Then
reponse = InputBox("Indiquez les kilomètres déja parcourus")
If reponse <> "" Then
.AddComment reponse & " kilomètres parcourus"
With .Comment.Shape.OLEFormat.Object
.AutoSize = True
.Interior.ColorIndex = 10
With .Font
.Name = "Comic Sans MS"
.Size = 8
.Bold = True
.ColorIndex = 2
End With
End With
End If
Else
.Comment.Delete
End If
End With
End If

Merci de votre aide

Marcelio

 

[bbb38]

Re : Kilomètres parcourus

Bonsoir marcelio, le forum,
En espérant avoir répondu à ta question.
Cordialement,
Bernard

 

[marcelio]

Re : Kilomètres parcourus

Bonjour Bernard et le Forum,
Désolé de répondre si tard.
Merci c'est exactement ce que je voulais je te remercie beaucoup.
Par contre en ce qui concerne mes colonnes sur lesquels je travail aurait tu une solution à me proposer.

Encore merci et bonne fin d'après midi à toi et au forum
Marcelio

 

[bbb38]

Re : Kilomètres parcourus

Bonjour Marcelio, le forum,
Peux-tu mettre un exemple de la nouvelle feuille ?
Cordialement,
Bernard

 

[marcelio]

Re : Kilomètres parcourus

Bonjour Bernard et le forum,
Je te joint un fichier avec ma demande
Merci de ton aide

Marcelio

 

[bbb38]

Re : Kilomètres parcourus

Bonjour Marcelio, le forum,
Peux-tu compléter l’exemple avec des chiffres, car je ne comprends pas le but de ton tableau ?
Cordialement,
Bernard

 

[marcelio]

Re : Kilomètres parcourus

Bonsoir Bernard le forum,

Plusieurs de mes collègues m’envoie ce tableau toutes les fin de semaine avec leurs données que je travail et que je renvoi.
Le double clic me permet d’inscrire rapidement des données qu'ils peuvent par la suite visualiser rapidement.
J’espère avoir été un peu + clair

Marcelio

 

[bbb38]

Re : Kilomètres parcourus

Bonjour Marcelio, le forum,
Un essai ci-joint.
Cordialement,
Bernard

 

[marcelio]

Re : Kilomètres parcourus

Bonjour Bernard et le forum,

Merci beaucoup pour ton aide, car le fichier que tu me joint est superbe, c'est bien ce que je voulais.

Je te remercie une nouvelle fois et je te souhaite un bon week-end à toi et au forum

Marcelio