Discussion :

[thomas93]

Bonjour à tous !

Me voici devant un problème que je n'arrive pas à résoudre :
Imaginons un fichier avec :
A1:A5 fusionnée = 2
A6:A8 fusionnée = 6
A9:A13 fusionnée = 15

Je souhaiterais faire un test permettant de trouver d'abord la valeur 2, ensuite 6, enfin 15. C'est à dire un test de haut en bas, capable de lire la valeur dans chaque cellule fusionnée.
Auriez-vous une petite idée à me soumettre ? svp

Cordialement,

Tom

[SfJ5Rpw8]

Bonjour,


Chaque cellule est un objet range qui comprend la propriété MergedArea qui est en fait la plage fusionnée , le principe du code suivant est de parcourir toutes les cellules d'une plage et de ne prendre en compte que les cellules dont leur adresse correspond à l'adresse de la première cellule de la plage fusionnée ( Merged Area ) ..

cela donne :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub ParcoursCellules()
Dim r As Range
Dim plage As Range
Set plage = ThisWorBook.Sheets("Feuil1").Range("A1:A3")
For Each r In plage
    If r.Address = r.MergeArea.Cells(1, 1).Address Then 'On ne traite que la premiére cellule d'une plage
        Debug.Print r.Address & " => " & r.Value 'Voir résultat dans fenêtre exécution CTRL+G
    End If
Next
End Sub

[thomas93]

Parfait ! Merci beaucoup !

C'est exactement ce que je cherchais !

Tom