cellules fusionnées

[Seb]

Bonjour,
j'utilise ça :
If Target.Rows.Count > 1 Or Target.Columns.Count > 1 Then Exit Sub
pour continuer la macro que si on a sélectionné une seule cellule (fusionnée ou pas).
Mais j'ai des cellules fusionnés (par ex: (u2,v2) ou (u2,u3) mais pas de (u2,u3,v2,v3) : je ne fusionne que sur une ligne ou une colonne ) et elles sont comptées avec des nombres de lignes ou colonnes > 1 et donc la macro ne continue pas, mais je voudrais qu'elle continue.
J'ai essayé :
If Target.Rows.Count > 1 And Target.Columns.Count > 1 Then Exit Sub
mais dans ce cas on peut sélectionner plusieurs cellules en ligne ou colonne.
Quelqu'un aurait une solution ?
Merci.

 

[Zon]

Bonjour,

Je ne comprends pas pourquoi dans ton exemple, tu rajoutes la condition If Target.Rows.Count > 1 Or Target.Columns.Count > 1 Then Exit Sub, car sans celle-ci, cellule fusionnée ou pas on a le même résultat avec le code dessous:


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(ActiveCell, Range("cel")) Is Nothing Then Exit Sub 'pour tester si la cellule et dans le cadre
If Not OldRng Is Nothing Then
OldRng.Interior.ColorIndex = xlNone
End If
Target.Interior.ColorIndex = 6
Set OldRng = Target
End Sub


A+++

 

[Seb]

J'ai rajouté des conditions pour qu'on ne puisse pas sélectionné une plage de cellule, mon problème c'est de savoir si c'est une seule cellule fusionné ou une plage de cellules.

 

[Zon]

Re,

Voilà, en rajoutant un test pour voir si target est fusionnée

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.MergeCells = True Then
OldRng.Interior.ColorIndex = xlNone
Target.Interior.ColorIndex = 6
Set OldRng = Target
End If
If Target.Rows.Count > 1 Or Target.Columns.Count > 1 Then Exit Sub
If Intersect(ActiveCell, Range("cel")) Is Nothing Then Exit Sub 'pour tester si la cellule et dans le cadre
If Not OldRng Is Nothing Then
OldRng.Interior.ColorIndex = xlNone
End If
Target.Interior.ColorIndex = 6
Set OldRng = Target
End Sub

A+++

 

[Seb]

Merci, je vais essayer ça...
Ca marche bien mais il y a toujours un petit quelquechose...
On peut toujours sélectionner une plage de cellules si la première est une cellule fusionnée...
Par exemple, si (a2,a3) est fusionnée on peut sélectionné (a2,a3,a4,...).
Désolé d'être aussi pointilleux...
Et merci pour ton aide...