Discussion :

[alea83]

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

[alea83]

Re Bonjour,

Une image du tableau qui vient d'un prestataire ou je dois récupérer le numéro de la couche en C10

[laurent_ott]

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é... La formule renvoie C$7:C$10 alors que je voudrais que C10..

Bonjour,
Si la fusion couvre C7:C10 alors le code suivant renvoie C10 :

Code VBA :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(Range("C7").Row + Range("C7").MergeArea.Count - 1, Range("C7").Column).Address

[alea83]

Re Bonjour,

Si je fais : Range("D" & Ligne).Formula = "=(" & Plage.Offset(0, -1).Address(0, 0) & ")" j'obtiens C7 (soit la première ligne) et si je fais :
Range("D" & Ligne).Formula = "=(" & Plage.Offset(Plage.Rows.Count, -1).Address(0, 0) & ")" j'obtiens C14 et évidemment moi c'est C10

[alea83]

Bonjour,

je n'avais pas vu votre post avant d'écrire à nouveau, je viens d'essayer mais ça ne fonctionne pas, erreur 438.

Pour plus de clarté, je dois copier dans la cellule fusionnée D7 (qui contient 4 lignes en fusion) la valeur de C10 (Chaussée - couche 1)
Si vous avez une solution.. car je ne sais plus quoi tester..

[laurent_ott]

Bonjour,
A tester et à adapter à votre besoin, mais voici le principe :

Code VBA :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub exemple()
Dim Rg As Range
' Retrouve la dernière cellule de la colonne précédente de la plage fusionnée en D7:D10 (soit C10)
Set Rg = Range(Cells(Range("D7").Row + Range("D7").MergeArea.Count - 1, Range("D7").Column - 1).Address)
' Met en D7 la valeur de C10:
Range("D7") = Rg
End Sub

[alea83]

Bonjour à tous,

J'ai reçu une aide précieuse pour résoudre le souci, ci-dessous la réponse pour ceux que cela peut intéresser.

Plage.Formula = "=" & Cells(Plage.Row + Plage.Rows.Count - 1, Plage.Column - 1).Address

Bonne journée à tous.