Macro qui ajoute une valeur dans une cellule contenant du texte Fermé

Question

Bonjour, 

Dans un fichier excel, j'ai une liste de tâche qui contiennent chacuns des "délais"..
Soit donc une colonne délai.

A l'aide d'une macro, j'aimerai faire en sorte que lorsque ma sélection est sur une date délai, en cliquant sur ma macro, cela ajoute un symbole du genre "§" ou bien "*" (peu importe le texte ou symbole en fait) mais tout en conservant la "date délai" déjà existante.

Comment dois-je procéder pour le code VBA ?

--------
15.05.2015 = 10 caractères, soit au 11ème, ajouter un "§" afin que le résultat donne:   15.05.2015§

Merci d'avance de votre aide =)

Configuration: Windows 7 / Firefox 37.0

ozone_ · Answer

Salut,

Je te propose ce code :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    ' Ici j'ai fais en sorte que toute la colonne A réagisse à la macro soit A:A
    If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
        Target.Value = Target.Value & "§"
    End If
End Sub 

A mettre dans ThisWorkBook. (En faisant ALT + F11,  voir le panneau à gauche)

Ainsi quand tu double-clique dans une des cellules de la colonne "A" alors cela ajoutera "§" à la fin de ce qu'il y a déjà dans ta cellule.
 
1f u c4n r34d th1s u r34lly n33d t0 g37 l41d !

Macro qui ajoute une valeur dans une cellule contenant du texte

1 réponse

Discussions similaires