macro incomplete

[poipoi]

bonjour
je desire que cette macro concerne toutes les cellules que j'ai selectionnées
"Sub Points()
ActiveCell.Value = ActiveCell.Value & " :"
End Sub"

j'avais essayer avec : For Each Cellule In Selection.Cells mais je n'y arrive pas, je suis nul en VBA..
pouvez vous m'aider??
un grand merci

 

[Pierrot93]

Re : macro incomplete

Bonjour poipoi,

essaye le code ci-dessous :

Sub test()
Dim c As Range
For Each c In Selection
    c.Value = c.Value & " :"
Next c
End Sub

bonne journée.
@+

 

[Dull]

Re : macro incomplete

Salut poipoi, le Forum

Peut-être comme cela

Sub Points()
Dim C As Range
For Each C In Selection
    C.Value = C.Value & " :"
Next C
End Sub

EDITION: Salut Pierrot Même Code

Bonne Journée

 

[Pierrot93]

Re : macro incomplete

Re, salut Dull

aarf t'as encore copié, même le nom de la variable, comme le mot de passe la dernière fois, tu abuses quand même......... Bonne journée à toi, toujours un plaisir de te croiser.

Edition : t'es pardonné, tu l'a mis en majuscule.

 

[poipoi]

Re : macro incomplete

bonjour à vous Pierrot93, Dull
voilà une journée qui démarre bien.. merci à vous
à bientôt
(je vais quand même essayer de comprendre pourquoi ça foirait chez moi !!!)