Bonjour à toutes et à tous,
Je vous souhaite un beau dimanche
Il y a quelques temps, job75 m'avait donné un code qui fonctionne parfaitement :
Ce code copie des valeurs jusqu'à la dernière ligne NON VIDE de la colonne précédente
J'ai besoin d'y apporter une modification que je n'arrive pas à coder
A la place de = "=IF(RC[-1]<>"""",LOOKUP(RC[-1],km),"""")"
je voudrais remplacer LOOKUP(RC[-1],km) par la formule =RC[-3]"
Pourriez-vous me donner le bon code ?
Je vous remercie,
Amicalement,
lionel
Je vous souhaite un beau dimanche
Il y a quelques temps, job75 m'avait donné un code qui fonctionne parfaitement :
VB:
Sub Gérard()
With [A1].CurrentRegion
If .Rows.Count > 1 Then .Cells(3, 9).Resize(.Rows.Count - 1) = "=IF(RC[-1]<>"""",LOOKUP(RC[-1],km),"""")"
.Columns(9) = .Columns(9).Value 'supprime les formules
End With
End SubJ'ai besoin d'y apporter une modification que je n'arrive pas à coder
A la place de = "=IF(RC[-1]<>"""",LOOKUP(RC[-1],km),"""")"
je voudrais remplacer LOOKUP(RC[-1],km) par la formule =RC[-3]"
Pourriez-vous me donner le bon code ?
Je vous remercie,
Amicalement,
lionel