recup valeur d'une cellule? (bis)

[lenain]

J'avais un petit probleme : dans une macro me permetant de selectionner les cases de "b" à "l" de la ligne active pour la mettre en couleur (jaune)., je voulais ajouter une ligne pour que la macro recupere la valeur de la case en colone "d" et la copie dans la colone "o".


With Range("b" & ActiveCell.Row & ":l" & _
ActiveCell.Row).Interior
.ColorIndex = 36
.Pattern = xlSolid
End With



On m'a proposé comme solution

cells(activecell.row,4).copy
cells(activecell.row,15).pastespecial paste:=xlvalue

ou une methode avec moins de ligne

Cells(ActiveCell.Row, 15) = Cells(ActiveCell.Row, 4).Value


Ca marche tres bien mais je me demandais s'il existait une commande qui tienne compte de la modification de la case "d" et qui automatiquement change la valeur de la case "o".


Encore merci à ceux qui vont se creuser la tete )

 

[Denis]

Bonjour lenain et le Forum
cette macro dans ton code de feuille
dès que la cellule active change, cela effectue ton code
je ne sais pas si c'est celà que tu cherche


Private Sub Worksheet_SelectionChange(ByVal Target As Excel.range)
Cells(ActiveCell.Row, 15) = Cells(ActiveCell.Row, 4).Value
End Sub

Bon courage et @+
Denis