recup valeur d'une cellule?

L

lenain

Guest
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
 
M

Moa

Guest
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
 

Discussions similaires

Réponses
7
Affichages
292

Statistiques des forums

Discussions
311 711
Messages
2 081 794
Membres
101 817
dernier inscrit
carvajal