recup valeur d'une cellule?

[lenain]

J'ai une macro pour selectionner les cases de "b" à "l" de la ligne active pour la mettre en couleur (jaune).


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



J'aimerais ajouter une ligne pour que la macro recupere la valeur de la case en colone "d" et la copie dans la colone "o". Mais comme on ne sait pas dire quelle est la cellule active quant l'utilisateur lance la macro, je ne sais pas utiliser la commande

ActiveCell.FormulaR1C1 = "=RC[-2]"

Est ce que quelqu'un connait une commande ou une astuce pour utiliser cette commande là?

Merci d'avance à tous et toutes

 

[Roland]

salut lenain

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

bye

 

[Moa]

Salut Roland et Lenain !

Roland, une petite faute que je suis sur, Lenain aura corrigée.

activecell;row, 15 plutôt un point à la place du point-virgule :

ActiveCell.row, 15

Et puis comme il s'agit d'un PasteSpecial xlValue, on peut faire plus court, tel que :

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

Bonne journée

Moa

 

[lenain]

Merci à tous les 2, mes calculs sont beaucoup plus simples maintenant