Microsoft 365 code que je n'arrive pas à modifier

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bonjour à toutes et à tous,
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 Sub
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 :)
 

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Re,
J'ai du me planter ça ne fonctionne pas :
1635671017127.png


et sans le "=" ça beug aussi :mad:
 

Discussions similaires

Statistiques des forums

Discussions
299 847
Messages
1 979 562
Membres
206 773
dernier inscrit
becaye80