Discussion :

[ericdev67]

Bonjour,

J'ai un feuille avec des cellules fusionnées, pour les reconnaitre, j'utilise le code de Silkyroad :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Sub VisualiserCellulesFusionnees()
Dim Cell As Range
 
'Boucle sur les cellules utilisées dans la feuille
For Each Cell In Worksheets("Feuil1").UsedRange.Cells
    'Si la cellule est fusionnée
    'Colorie en jaune si la cellule est fusionnée
    If Cell.MergeCells Then Cell.MergeArea.Interior.ColorIndex = 6
Next Cell
End Sub

Je cherche à connaitre les coordonnées de la cellule suivante :

Admettons que la cellule fusionnée soit A1:A3, il faudrait que le code me donne comme résultat : A4 ou cells(1,4)

En fait, j'ai ~500 fiches, toutes n'ont pas le même format, mais par contre, elles ont toutes les mêmes choses : Nom, date, ville, etc.....

Donc, j'ai commencé en faisant :

Code :

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

1
2
3
4
5
6
7
 
Sub VisualiserCellulesFusionnees()
Dim Cell As Range
 
'Boucle sur les cellules utilisées dans la feuille
For Each Cell In Worksheets("Feuil1").UsedRange.Cells
    if Cell = "Nom" then

et c'est là où je coince, je ne vois pas quoi mettre après le "Then", je n'arrive pas à récupérer la position de "Cell"...


Merci,
A+

[kiki29]

Salut, voir avec

Code :

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

Cell.MergeArea.Address

et

Code :

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

Split(Cell.MergeArea.Address, ":")(1)

et qqch comme ceci au final

Code :

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

Debug.Print Split(Split(Cell.MergeArea.Address, ":")(0), "$")(1) & Split(Split(Cell.MergeArea.Address, ":")(1), "$")(2) + 1

avec au choix 0/1 pour la cellule que tu considères comme étant la suivante, dans le cas d'une plage D13:G28 par exemple qui retournera D29 ou G29

[QuestVba]

Bonjour,

Te retourver juste derrière les cellules fusionnées.

Code :

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

If Cell.MergeCells Then Cells(Range(Split(Cell.MergeArea.Address, ":")(1)).Row, Range(Split(Cell.MergeArea.Address, ":")(1)).Column + 1).Activate

Voir aussi

http://www.developpez.net/forums/d57...es-fusionnees/

[kiki29]

Re, pour une plage nommée

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Option Explicit
 
Sub Tst()
Dim NomCell As Excel.Name
Dim sNom As String
    sNom = "Nom"
    For Each NomCell In ThisWorkbook.Names
        If NomCell.Name = sNom Then
            Range(sNom).Offset(1, 0).Activate
        End If
    Next NomCell
End Sub

PS : je viens de me rendre qu'il y avait plus concis, juste avant le post implacable de Mercatog et je corrige en conséquence

[mercatog]

Admettons que la cellule fusionnée soit A1:A3, il faudrait que le code me donne comme résultat : A4 ou cells(1,4)

pour colorier en rouge la cellule juste en dessous des cellules fusionnées

Code :

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

1
2
3
4
5
6
7
Sub ColorAfterMergedCells()
Dim c As Range
 
For Each c In Worksheets("Feuil1").UsedRange
    If c.MergeCells Then c.MergeArea.Offset(1, 0).Interior.Color = 255
Next c
End Sub

[ericdev67]

Merci kiki29,
Merci QuestVba,
Merci mercatog,

Je vous remercie pour votre aide, grâce à vous, j'ai fait une "compil" de vos codes et j'ai obtenu :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Tst()
 
Dim c As Range
 
 Dim n(30)
 
For Each c In Worksheets("Temp").UsedRange
    If c = "Nom" Then n(1) = c.MergeArea.Offset(0, 1)
    If c = "Ville" Then n(2) = c.MergeArea.Offset(0, 1)
Next c
End Sub

Qui fonctionne très bien !!!

(car j'avais des cellules fusionnées, d'autres non.....)

merci pour votre aide et à bientôt pour de prochaines aventures....

A+