Bonjour à tous,

Sur une cellule qui est fusionnée, j'essaie de récupérer la valeur de la dernière ligne de la colonne d'à côté.
Mon code se présente comme ceci, et avec la fonction adress ca ne fonctionne pas.
La formule renvoie C$7:C$10 alors que je voudrais que C10..
Il me manque sûrement encore une fonction..
Merci pour votre aide car tous mes essais ont échoués.;

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Dim Nblg As Long, Plage As Range, Ligne As Long
 
  Application.ScreenUpdating = False
  Nblg = Range("A" & Rows.Count).End(xlUp).Row
  Range("D7:D" & Nblg) = ""
  Ligne = 7
  While Ligne < Nblg
    Set Plage = Range("D" & Ligne).MergeArea
  '  Range("D" & Ligne).Formula = "=cellule_fusion(" & Plage.Offset(0, -1).Resize(Plage.MergeArea.Cells.Count).Row & ")"
   Range("D" & Ligne).Formula = "=RIGHT(" & Plage.Offset(0, -1).Resize(Plage.Rows.Count).Address(, 0) & "),1)"
    Ligne = Ligne + Plage.Rows.Count